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^ 1.0 INTHOOUCTION 

I -".I ABSTRACT 

J THE RM05/3/2 DISKLESS DIAGNOSTIC IS A STAND ALONE •^^OGRAff WHICH USES 

7 FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABRITY OF THE RM05/5/^ 

ft DISK SL3SYSTEM EXCLUDING AND INDEPENDENTLY OF THE ^STORAGE MODULE 

9 DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

-9 TO DETECT ERRORS AND FAULTS IN THE RH MASS8US CONTROLLER; 

13 TO DETECT ERRORS AND FAULTS IN THE RM NASS8US ADAOfcR; 

]c TO RESOLVE HARDWARE FAILURES IN THE RH/RM TO A FIELD 

15 REPLACEABLE MODULE OR MODULES. 

17 

18 

20 1.2 UNIT UNDER TEST 

II THE UNIT UNDER TEST IS THE RM05/3/2 DISK SUBSYSTEM. EXCLUDING 

THE STORAGE MODULE DISK DRIVE AND THE RHll OR RH70 MASSBUS CONTROLLER. 

25 

27 2.0 OPERATING REQUIREMENTS 

29 2.1 HARDWARE REQUIREMENTS 

19 THE FOLLOWING MINIMUM HARDWARE CONFIGURATION. ASSJ^ED TO BE 

l], OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RM05/3/2 DISKLESS 

3^ DIAGNOSTIC: 

35 PDP-11 PROCESSOR 

36 20K MEMORY 

37 KW11-L OR KW11-P CLOCK 

38 PROGRAM LOADING DEVICE 

39 TERMINAL 

J? TVo 8%?SK°DRr?'Jf(AN! COI^INATION OF RMOS'S. RM03'S OR RM02'S) 

42 
43 

t\ 2.2 MEDIA REQUIREMENTS 
46 

^7 NONE 

48 

49 

5? 2.3 PREREQUISITE DIAGNOSTIC -PROGRAMS 

5^ NONE 

54 

55 

56 

t>? 3.0 OPERATING PROCEDURE 
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5? 3.1 LOADING 

T\ THE PROGRAM MAY . BE LOADED BV EITHER PAPER TAPE. USING THE 

fc2 STANDARD PAPER TAPE LOADING PROCEDURE. OR XXDP MEDIA. USING THE 

65 APPROPRIATE LOADING DEVICE. 

64 

bb 

66 

^7 3.2 SWITCH OPTIONS 

68 ^ 

09 THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 

70 SWITCH IS ON. 

71 

7? SW15 HA.LT ON ERROR 

73 SWU LOOP ON TEST (CURRENTLY BEING EXECUTED) 

7i. SW13 INHIBIT ERROR TYPEOUTS 

75 SW12 UNUSED 

76 SWn INHIBIT TEST ITERATIONS 

77 SWia BELL ON ERROR 

78 SWC^ LOOP ON ERROR 

79 SW08 LOOP ON TEST IN SW07-00 
80 

81 ' /THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SW08 TO SPECIFY 

82 'A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON. 

83 
84 
85 

86 3.3 STARTING 

87 

88 ThC PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 

89 200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 

90 THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 

91 ENVIRONMENT. THE PROGRAM USES CONSOLE DiALOGUE TO ALLOW THE OPERATOR 

92 TO CONTROL TEST CONDITIONS. 
93 

94 
95 

96 3.4 HALTING 

97 

98 THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 

99 BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL. 
100 

101 
102 

105 3.5 RESTARTING 

105 THE PROGRAM CAfJ BE RESTARTED "aT ADDRESS 200 OR 204. (SEE SEC ION 3.3) 

106 

189 4.0 OPERATOR INTERFACE 



SEQ 0004 



4.1 PROGRAM ID 



110 

in 

III THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIR5^ TIME IT 

1U IS STARTED AFTER BEING LOADED. 
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'IS 
117 

1*8 4.2 CONSOLE DIALOGUE 
119 

120 WHEN THF PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 

121 CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 
122 

123 THE FIRST QUESTION TYPED OUT IS: 'TYPE HELP TEXT (L) N ?". 

124 IF THE OPERATOR RESPONDS WITH A "Y". THE PROGRAM WILL TYPE A BRIEF 

125 HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 

126 TO 'HE QUESTION IS CONSIDERED A 'M'" AND NO HELP TEXT IS TYPED. THIS 

127 QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 

128 SUBSEQUENT START-UP'S. 
129 

150 ON THE PROGRAM INITIAL START AND WHEN RE-^T'-RTING AT LOrATION 204. 

131 THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSLj WITH THE FOLLOWING 

^32 DIALOGUE. 
133 

134 EXAMPLE 1 

135 

136 RMCS1 =176700 <CR> ;N0 CHANGE IN ADDRESS 

137 RMVEC=000254 <CR> ;N0 CHANGE IN ADDRESS 
158 

159 EXAMPLE 2 

140 

141 RMCS1 =176700 177200<CR> .-CHANGE BASE ADDRESS TO 17^200 

142 RMVEC=000254 260<CR> .-CHANGE VECTOR ADDRESS tq 260 
145 

144 ON THE INITIAL START, THE NEXT QUESTION TYPED IS, 'TYPE "A" TO 

145 TEST ALL DRIVES, OR TYPE DRIVE NLMBER(S) AND TERMINATE INPUT WITH 
14t> A CARRIAGE RETURN'. THEN, 'DRIVECS):' IS TYPED AND VMJS FOR THE 

147 OPERATOR TO TYPE AN "A". TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 

148 STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
1'.9 "CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
'50 ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
*51 SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
152 STARTS. ONLY THE 'DRIVECS):' PROMPT IS TYPED. 

155 

154 THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 

155 DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
r'6 IS AN EXAMPLE PRINTOUT: 

157 

158 'UNIT STATUS: 

159 0 ONLINE RM03 

160 1 LOAD DEVICE 

161 2 OFFLINE RM05 

162 3 NOT PRESENT 
165 4 NOT PRESENT 

164 5 NOT AN RM05/3/2 

165 6 NOT PRESENT 

166 7 NOT PRESENT' 
167 

168 THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED. WHILE DRIVES 

169 1. & 3 - 7 WILL NOT BE TESTED. 
I'D 

171 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE. BASED ON THE 
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STATUS Of THE DRIVE: 

•DRIVECS) TO BE TESTED. 0. ?' 

IF NO DRIVES ARE AVAILABLE FOR TESTING. THE FOLLOWING WSSAGE WILL BE 
TVPED TO THE OPERATOR: 

•DRIVE (S) TO BE TESTED. NONE' 

THE PROGRAM WILL THEN. EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING. THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 

•DRIVE 0 
DRIVE 2' 

AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED BY THE USER. D DECIMAL. 0-OC TAL AND 
L=LETTER. 

4.3 PROGRESS REPORTS 

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 



•END OF PASS 



1 



THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 



•TOTAL ERRORS SINCE LAST REPORT 



0' 



4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 



4.5 PROGRAM HALTS 

THERE ARE fJO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 



4.6 ERROR REPORTS 
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THE IW05/3/2 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (?) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED. DRIVE TYPE. THE TEST NUMBER. THE ERROR 
NUMBER WD THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH 
GIVE A COMPREHENSIVE DESCRIPTION OF THE ERROR. AND A LIST OF FAILING 
MODULES IN ORDER OF DECREASING PROBABILITY. THE cRROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS 
AND DATA PERTININENT TO THE ERROR. INCLUDING EXPECTED AND ACTUAL TEST 
RESULTS. 

THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS PROGRAM: 

DRV# C - RM05. TEST* 25. ERR* 66. PC "017566 
ILLEGAL REGISTER ERROR "ILR" (RMERl, BIT 01) SHOULD BE SET 
DURING REGISTER TRANSFER 
PROBABLE FAULT (S): 

(NOT INCLUDING CABLES OR CONNECTORS) 
IF MODULE. n7686, 

EXPCTD RECEVD TEST 
STATUS STATUS REGSTR 
000002 000000 176750 



4.6 ERROR REPORTS 

THE ftM05/3/2 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 

THP FIRST LINE OF THE ERROR REPORT CONTAINS THE UNIT NUMBER BEING 
TESTED. DRIVE TYPE. THE TEST NUMBER. THE ERROR NUMBER AND THE VALUE OF 
THE P'^OGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
B^' THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH GIVE A 
COMPREHENSIVE DESCRIPTION OF THE ERROR. AND A LIST OF FAILING MODULES 
IN ORDER OF DECREASING PROBASILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND 
DATA PERTININENT TO THE ERROR. INCLUDING EXPECTED AND ACTUAL TEST 
RESULTS. 



4.7 EXECUTION TIME 
TIME FOR RM02/3: 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. 
SUBSEQUENT PASSES TAKE 1 MINUTE 35 SECONDS. 

5.0 ENVIRONMENTAL SUPPORT 



PASS 2 AND 
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5.1 PROCESSOR COMPATIBILITY 

THE RM05/3/2 DISKLESS DIAGNOSTIC IS EXCfUTAatf ON ANY POP-II 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET. 



5.2 DUAL PORT CONFIGURATIONS 

THE RM05/3/2 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RM05/5/2 
SUBSYSTEMS HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B) A\D NOT TO TH^ PROGRAMMABLE 
POSITION (A/S). 



5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE WILL NOT Bfc USED DURING THE EXECUTION OF 
THE RM05/3/2 DISKLESS DIAGNGOSTIC. 



5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RM05/3/2 
DISKLESS DIAGNOSTIC. 



5.5 ACT11. APT11 COMPATIBILITY 

THE RM05/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. "^URTHER. THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 
MODE. 



5.6 XXDP COMPATIBILITY 

THE RM05/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP 
IN DUMP AND CHAIN MODES. 



5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT REQUIRED TU BE COMPATIBLE WITH ANY OPERATING 
SYSTEM. 



6.0 TEST DESCRIPTION 

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 



► ^1*5, DSKLS TST 1 



J 1 

MACRO VOA.OO 4-APR-81 0^:2^,:^5 PAGE 3-6 



SEO OOCK/ 



54-; 

545 

546 

347 

348 

349 

5S0 

351 

552 

353 

334 

355 

556 

357 

358 

359 

360 

361 

562 

363 

364 

365 

366 

567 

568 

569 

570 

371 

372 

573 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

588 

389 

390 

391 

392 

393 

394 

59S 

396 

597 

598 
599 



GENERALLY 
TEST. 



USES A MORE COMPLEX SUBSET Of HARDWARE THAN ThE PREVIOUS 



MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE. 
NONTRANSIENT HARDWARE FAILURES. 



THE RM05/3/2 DISKLESS DIAGNOSTIC CAN BE 
OR AN RHll MASS8US CONTROLLER. 



EXECUTED USING AN Rh70 

THE 



UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABuE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 

THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 

IF 
CS 
DS 

MASS8US MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 



TEST 1 TRANSFER TEST 
PURPOSE : 

TO VERIFY THAT THE RM05/3/2 CAN COMPLETE A REGISTER TRANSFER 
ON THE MASS8US, AND. IN PARTICULAR, TO VERIFY THAT "TRANSFER" IS 
NOT STUCK IN AN INACTIVE STATE. 



PROCEDURE : 



READS REMOTE 
CONTENTS AND 
A 'NONEXISTENT 



REGISTERS FOR THE 
PARITY ERRORS ARE 
DEVICE ERROR" OR 
. IF THE TEST FAILS 
WHICH SELECTS THE 



THE PROGRAM WRITES AND 
SELECTED DEVICE. REGISTER 
IGNORED. AND THE TEST FAILS IF 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER 
NEXT DEVICE TO BE TESTED. 

PROBABLE FAULT: 

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 

SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 

THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 

PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 

3. CS MODULE 
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400 

401 

402 
40? 

4,04 TEST 2 CTOD TEST 

405 

406 PURPOSE : 

407 

408 TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE 

409 RM05/3/2 USIN5 THE CONTROL BUS AND. IN PARTICULAR. TO VERIFY THAT 

410 "CONTROLLER TO DEVICE" HAS NOT FAILED. 
411 

412 PROCEDURE: 
413 

414 THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 

415 REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF "IF3 CTOD HOLD 

416 H" IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 

417 AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 
418 

419 PROBABLE FAULT: 

420 

421 1. IF MODULE 

422 

423 2. ASYNCHRONOUS MASS8US MODULE 

424 

425 

426 

427 

428 

429 TEST 3 MASS8US INITIALIZE 1EST 

430 

43 1 PURPOSE: 
432 

433 TO VERIFY THAT THE MASS8US ADAPTER IS BEING INITIALIZED BY 

434 THE MASS BUS. _ 

436 PROCEDURE: *^ 

437 

438 USING CONTROLLER CLEAR TO INITIA».IZE THE SELECTED UNIT, THIS 

439 TEST THEN READS MASS8US ADAPTER REGISTERS TO VERIFY THAT AT LEAST 

440 ONE BIT IS CLEARED. NASS8US ADAPTER REGISTERS ARE PRESET TO A 

441 NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 
442 

443 ' PROBABLE FAULT: 

444 

445 1. ASYNCHRONOUS MASSBUS MODULE 

446 

447 2. IF MODULE 

448 

449 3. CS MODULE 

450 

451 

452 

453 

454 

455 TEST 4 CLEAR STUCK ACTIVE TEST 

456 
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4^7 PURPOSE: 

459 TO VF^^JFr THAT 'T«A CLR I" ON THE CS MODULE IS NOT STUCK IN 

460 AN ACTIVE STATE. 

462 PROCEDURE : 

464 CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT. 

465 AFTER WHICH TS ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 

466 MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 

467 IS OK. ELSE. 'WBA CLR L" IS PROBABLY STUCK ACTIVE. 
4o8 

469 PROBABLE FAULT: 
A70 

471 1. CS MODULE 
472 

473 2. IF MODULE 
474 

475 3. ASYNCHRONOUS MASSBUS MODULE 

476 
477 
478 
479 
480 

481 TEST 5 TRISTATE TRANSFER TEST 

^82 

483 PURPOSE : 

484 

485 TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 

486 TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 

487 BIT POSITION IS INDEPENDENT. 
488 

489 PROCEDURE: 
490 

491 THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A NONZERO 

492 VALUE. THEN, ASSUMING THE REGISTERS ARt PRFSET. IT CLEARS THEM 

493 USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 

494 AS IS NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 

495 POSITION. 
496 

497 THE TEST CLEARS MASSBUS ADAPTER REGISTERS. THEN. ASSUMING 

498 THE REGISTERS ARE CLEARED. IT LOADS THEM WITH ONES AND READS AS 

499 MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 

500 EACH BIT POSITION. 
501 

502 FINALLY. THE TEST WRITES A SINGLE ONE B' ^ ''ATTERN IN BIT 0 

503 OF SELECTED REMOTE REGISTERS AND VERIFIES THa.. iHE PATTERN CAN BE 

504 READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 

505 BIT POSITIONS. 
506 

507 PROBABLE FAULT: 

508 

509 1 . ASYNCHRONOUS MASSBUS MODULE 

510 

511 2. IF MODULE 

512 

513 3. CS MODULE 
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4. OS MODULE 



TEST 6 REGISTER SELECT TEST 
PURPOSE : 

TO VERIFY THAT THE REGISTER SELECT LINES APE NOT IN A 
POSITION. 

PROCEDURE: 



STUCK 



EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS IN 
THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO. THEN 
WRITING ONES IN THOSE DEVICZ REGISTERS FOR WHICH THE LINE MUST BE 
ONE. THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
STUCK AT ZERO. THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
IS REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE. 
THE ONES REGISTER IS WRITTEN FIRST. 

REGISTER SELECT LINES 1. 2, 4 AND 8 ARE TESTED IN THIS 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE "ILR TEST". 

PROBABLE FAULT: 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 



TEST 7 DRIVE TYPE TEST 
PURPOSE : 

TO TEST THE "DRIVE TYPE" REGISTER. RMDT. 
PROCEDURE : 

THE PROGRAM RFADS RMDT AND VERIFIES THAT 
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RM05. RM"' 

PROBABLE FAULT: 

1. IF MODULE 



THE RESULT 
OR RM02 DRIVE, 



TEST 10 DEVICE AVAILABLE TEST 



N 1 
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571 
572 

574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 



594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

62' 



PURPOSE: 

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 

THE PROGRAM TESTS "DVA". BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 



TEST 11 HOLDING REGISTER TRANSFER TEST 
PURPOSE : 

TO VERIFY THAT THE HOLDING REGISTER IS NOT STUCK 
STUCK AT ZERO. AND THAT THERE IS NO BIT INTERFERENCE. 

PROCEDURE : 



AT ONE. 



THE PROGRAM TRANSFERS ONES. THEN ZEROS TO THE HOLDING 
REGISTER AND VERIFIES THAT NONE OF THE BiTS ARE STUCK AT ONE. 

THE PROGRAM TRANSFERS ZEROS. THEN ONES TO THE HOLDING 
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO. 

FINALLY. THE TEST TRANSFERS A SHIFTING ONE BIT PATTERN AND 
VERIFIES THAT EACH BIT IS INDEPENDENT. 

PROBABLE FAULT: 

1. IF MODULE 



TEST 12 CONTROL STATUS #1 TRANSFER TEST 
PURPOSE : 

TO VERIFY THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER 
1 ARE NOT STUCK AT ONE OR ZERO. AND THAT THERE IS NOT BIT 
INTERFERENCE. 

PROCEDURE : 

THIS TEST WRITES ONES IN CONTROL STATUS REGISTER 1, RMCSl , 
THEN WRITES ZEROS AND VERIFIES THAT THE BITS ARE NOT STUCK AT 
ONE. THE GO BIT IS NOT TESTED IN THIS TEST. 



628 

6?9 

650 

631 

63? 

633 

634 

635 

636 

637 

638 

639 

640 

641 

64? 

643 

644 

645 

646 

647 

648 

649 

650 

651 

65? 

653 

654 

655 

656 

657 

658 

659 

660 

661 

66? 

663 

664 

665 

666 

667 

668 

669 

670 

671 

67? 

673 

674 

675 

676 

677 

678 

679 

680 

f81 

6a? 

683 
684 
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NEXT. THE TEST CLEARS THE CONTROL STATUS REGISiER. RMCSI. 
JRJTES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE 
NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED. 

THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO AND 
FROn RMCSl AND CHECKS FOR ADJACENT BIT INTERFERENCE. 

PROBABLE FAULT: 

1. IF MODULE 



TEST 13 ERROR REGISTER *1 TRANSFER TEST 
PURPOSE : 

TO VERIFY THAT ERROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO. 
AND THAT THERE IS NOT BIT INTERFERENCE. 

PROCEDURE : 

THIS TEST WRITES ONES IN ERROR REGISTER 1. RMERl , THEN 
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE. 
'UNSAFE" IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT THE 
PROBABLE FAULTS TO ONE OR TWO MODULES, THE TEST IS EXECUTED IN 3 
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PARTS WITH EACH PART TESTING THOSE BITS 
ARE DERIVED FROM THE SAME MODULE. 



WHOSE PRESET FUNCTIONS 



THE TEST WRITES ZEROS IN ERROR REGISTER 1. RMER1 , THEN 
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO. 

FINALLY. THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1 
AND CHECKS FOR ADJACENT BIT INTERFERENCE. 

PROBABLE FAULT: 

1. IF MODULE 

?. CS MODULE 

3. DS MODULE 



TEST 14 CLEAR OFFSET STUCK ACTIVE TEST 
PURPOSE : 



TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET 
STUCK IN ACTIVE STATE. 



MODE IS NOT 
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t85 PROCEDURE: 

SS? THE TEST WRITES A ONE IN THE OFFSET PIRECTION BIT WHKH IS 

688 CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 
689 

690 PROBABLE FAULT: 

69? 1. IF MODULE 

695 

694 2. DS MODULE 

69S 

696 

697 

698 

699 

700 TEST 15 OFFSET REGISTER TRANSrER TEST 

701 

70? PURPOSE : 

7cl TO VERIFY THAT THE OFFSET REGISTER IS NOT STUCK AT ONE. 

705 STUCK AT ZERO. AND THAT THERE IS NO ADJACENT BIT INTERFERENCE. 

706 

707 PROCEDURE: 

709 THE OFFSET REGISTER. RMOF . IS WRITTEN WITH ONES, THEN 

710 WRITTEN WITH ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE 

711 STUCK AT ONE. 

Ill THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS AND WRITTEN 

714 WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO. 

71! FINALLY. THE OFFSET REGISTER IS TESTED WITH A SHIFTING ONE 

717 BIT PATTERN. 

718 

719 PROBABLE FAULT: 

720 

721 1. IF MODULE 

722 

723 2. DS MODULE 

7?A 

725 

7?6 

727 

7? 8 

729 TEST 16 ERROR REGISTER #2 TRANSFER TEST 

730 

731 PURPOSE: 

755 TO VERIFY THAT ERROR REGISTER 2. RMER2. IS NOT STOCK AT 

734 ONE. STUCK AT ZERO. AND THAT THERE IS NOT BIT INTERFERENCE. 

736 PROCEDURE : 

7« THE TEST WRITES ONES THEN WRITES ZEROS IN RMER2 AND VERIFIES 

739 THAT NONE Of tUe BITS ARE STUCK AT ONE. ••SKI" AND "DyC" ARE NOT 

740 TESTED. IN ORDER TO LIMIT THE NUMBER OF PROBABLE FAULTS TO ONE 
7^1 OR TWO MODIJLES. THE TEST IS EXECUTED IN 5 PARTS WITH EACH PART 
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74,2 TESTING THOSE BITS WHOSE PRESET fUNCTlONS ARE DERIVED FROM THE 

743 SAME MODULE. 

7^5 THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2. AND WRITES 

7<,6 ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO. 

Vil FIMALLV. THE TEST WRITES A SHIFTING ONE BIT PATTERN IN THE 

747 REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT. 

751 PROBABLE FAULT: 

753 1. IF MODULE 

755 2. CS MODULE 

757 3. DS MODULE 

7S8 

759 

760 

761 

76? 

7t,3 TEST 17 SERIAL NUMBER TEST 

764 

765 PURPOSE : 

767 TO VERIFY THAT THE SERIAL NUMBER CAN BE READ. 

768 

769 PROCEDURE: 

771 THE TEST READS THE SERIAL NUMBER REGISTER SEVERAL TIMES AND 

772 VERIFIES THAT THE NUMBER IS THE SAME EACH TIME. 
773 

774 PROBABLE FAULT: 

775 

776 1. CS MODULE 

777 

778 

779 

780 

781 

782 TEST 20 CONTROL BUS PARITY DETECTION TEST 

783 

784 PURPOSE : 

785 

786 TO TEST THE RM05/3/2'S PARITY CHECKING LOGIC FOR THE MASSBUS 

787 ASYNCHRONOUS CONTROL BUS. 
788 

789 PROCEDURE: 
790 

791 THIS TEST WRjTES A SHIFTING ONE BIT DATA PATTERN IN THE DISK 

792 ADDRESS REGISTER USING 'T>AT" TO CONTROL THE STATE OF THE PARITY 

793 BIT. 'PAR" STATUS, BF 03 OF RMER1 . IS CHECKED AFTER EACH 

794 PATTERN IS TRANSFERRED. .NOTE THE FOLlOWING TABLE SHOWS A SET OF 

795 TEST PATTERNS THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT 

796 PATTERN. 
797 

798 DATA PATTERN PAT PAR 
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799 

aoc 

801 

8C2 

803 

80<. 

805 

806 

807 

608 

809 

810 

811 

812 

813 

8K 

815 

816 

817 

818 

819 

820 

821 

822 

825 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

854 

835 

8% 

837 

838 

839 

840 

841 

842 

84 3 

844 

84 ^ 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 



000000 
075266 
163753 
116535 



1 
C 
0 
1 



1 
0 
0 
1 



PR08ABLE FAULT: 

1. IF MODUIE 

2. ASSyNCHRONOUS MASSBUS MODULE 



TEST 21 CONTROL BUS PARITY GENERATION TEoT 
PURPOSE : 

TO TEST THF RM05/3/2'S PARITY GENERATING LOGIC FOR THE MASSSUS 
ASYNCHRONOUS CONTROL BUS. 

PROCEDURE ; 

THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO ^hE 
DISK ADDRESS REGISTER- AFTER EACH PATTERN IS READ BACK. 'MASSBUS 
CONTROL BUS PARITY ERROR" IS TESTED AND SHOULD BE ZERO.. NOTE THE 
FOLLOWING SET OF TEST PATTERNS COULD BE USED INSTEAD OF THE 
SHIFTING ONE BIT PATTERN. 

DATA PATTERN MCPE 

000000 0 

056747 0 

135672 0 

163135 0 

PR08A8LE FAULT: 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 



TEST 22 RMDA. RMDC FAULT TEST 
PURPOSE : 

TO VERIFY THA^ THERE ARE NOT FAULTS WHICH INHIBIT THE 
PROGRAM FROM WRITING RMDC AND RMDA. SPECIFICALLY. 1HESE FAULTS 
INCLUDE : 

."GO H" STUCK HIGH. WHICH WOULD INHIBIT THE REGISTER LOAD 
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856 FUNCTION. 

857 

858 .-filP I" STUCK LOW. WHICH WOULD CONSTANTLY CLfAR THE 

859 REGISTER 
860 

361 ."E8L" STUCK. WHKH WOULD INHI8IT THE CLOCK FUNCTION. 

862 

865 PROCEDURE: 
86^ 

865 THE TEST WRITES AND RCADS BOTH RMDC. AND RMDA. WITH 7ER0S. 

866 THEN ONES. THE TEST PASSES ]f EITHER REGISTER CAN BE WRITTEN 
8o7 WITH ONES. 

868 

869 PROBABLE FAULT: 

870 

871 1. DS MODULE 

872 

873 2. IF MODULE 

874 

875 3. CS MODULE 

876 

877 

878 

879 

880 

881 TEST 23 DISK ADDRESS TRANSFER TEST 

882 

88? PURPOSE: 
884 

885 TO \/ERlFy THAT THE DISK ADDRESS REGISTER IS f40J STUCK AT ONE 

886 OR ZERO. AND THAT THERE IS NOT BIT INTERFERENCE. 
887 

888 PROCEDURE: 
889 

890 THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE. THEN 

891 USES A MOVE TO CLEAR THE REGISTER. THE TEST THEN READS RMDA AND 

892 VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 
893 

894 THEN THE TEST PRECLEARS THE MASS8US ADAPTER DISK ADDRESS 

895 REGISTER (RMDA), LOADS IT TO ALL ONES. AND VERIFIES THA^ NONE OF 

896 THE BITS ARE STUCK AT ZERO. 
897 

898 A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE 

899 DISK ADDRESS REGISTER. RMDA. AND THE TEST VERIMES THAT EACH BIT 

900 IS INDEPENDENT. 
901 

902 PROBABLE FAULT: 

905 

904 1. DS MODULE 

905 

906 2. IF MODULE 

907 

908 

909 

910 

911 

912 TEST 24 DESIRED CYLINDER TRANSFER TEST 
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9? J PURPOSE : 

VA TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER. RMDC, 

Xi^ IS NOT STUCK AT ONE OR ZERO. AND THAT THERE IS NOT BIT 

918 INTERFERENCE. 
919 

920 PROCEDURE : 

qH THIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RHDC, 

9%^ THEN WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 

924 ONE . 

Ill THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER. 

9%> RMDC. WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 

9?8 ZERO. 

Jlo FINALLY. A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM 

931 RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE. 

912 

933 PROBABLE FAULT: 

935 1. DS MODULE 

936 

957 2. IF MODULE 

938 
959 
940 
941 
942 

qlS TEST 25 ILLEGAL REGISTER TEST 

94<« 

945 PURPOSE: 

94$ TO TEST ILLEGAL REGISTER ERROR DETFCTION IN THE RM05/3/2. 

948 

949 PROCEDURE : 

119 THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT "ILR". 

l\\ BIT 2 OF RMER1 DOES NOT SET. THEN. TO THE EXTENT ALLOWED BY THE 

9?^ MASS8US CONTROLLER. IT READS ILLEGAL REGISTERS AND VERIFIES ^HAT 

954 "ILR" IS SET. 

955 

956 PROBABLE FAULT: 

957 

958 1. IF MODULE 
959 

%0 ASSYNCHRONOUS MASS8US MODULE 

961 
962 
96! 
964 
965 

966 TEST 26 RESET 60 BY INIT TEST 

967 

968 PURPOSE : 

969 



973 
974 

9/5 
976 
97-/ 

978 

979 
980 
981 
98? 
983 
984 
985 
98t 
987 
988 
989 
990 
991 
992 
995 
994 
995 
996 
997 
998 
999 
1000 
100 1 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
10U 
1015 
1016 
1017 
'018 
1019 
1020 
1021 
1022 
1023 

'O^'S 
1026 
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TO VERIFY THAT GO CAN BE RESET 8r JNlTIALlZE. 
PROCEDURE : 

THE TEST SETS GO THEN CLEARS GO USING MASSBuS INHIAlI/E. 
I.E.. CO^JTROLLER CLEAR. 

PROfSABLE FAULT: 

1 . CS MODULE 

2. IF MODULE 



TEST 27 DIAGNOSTIC MODE TEST 
PURPOSE : 

TO VERIFY THAT •'DIAGNOSTIC MODE", BIT 0 OF RMMRl . IS NOT 
STUCK AT ONE OR ZERO. 

PROCEDURE: 

THE RM05/3/2 IS INITIALIZED AND "DMD" IS CHECKED FOR ZERO. 
•■DMD" IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK 
AT ZERO. THEN WRITTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT 
STUCK AT ONE. 

PROBABLE FAULT; 

1. CS MODULE 

2. IF MODULE 



TEST 30 MOL TEST 
PURPOSE : 

TO VERIFY THAT 'WEDIUM ON LINE" STATUS CAN BE SE^ AND RESET 
USING MAINTENANCE UNIT READY. 

PROCEDURE: 

AFTFR INITIALIZING THE SUBSYSTEM, THE TEST SETS •'DIAGNOSTK 
MODE: aSdR ADS T^E DRIVE STATUS REGISTER, R^^S EXPECTING MOL 
RIT 1? TO BE ZERO 'HAINTENANCE UNIT READY , BIT 9 OF RMMR1 . IS 
SET AND MOL SHOULD BE ONeT THE TEST THEN WRITES A ZERO IN MUR 
AND READS RMDS. VERIFYING THAT 'MEDJUM ON LINE" IS ZERO. 

PROBABLE FAULT: 
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'02' 

'028 1- CS rtODULF 

1C2<> 

1030 , 2- If MODULE 

10?1 

1052 

1033 

1054 

t035 

1056 TEST 51 WRITE LOCK JEST 

1037 

1038 PURPOSE: 

!o40 TO VERiFr THAT 'MRVl LOCK"' STATUS. WRL. CAN BE SET AND 

loZl RESET USING 'MAINTENANCE WRITE PROTECT", MWP. 

1042 

1043 PROCEDURE: 
1044 

1045 WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MWP, BIT 03 OF 

1046 RWRI. AND READS RMDS TO VERIFY THAT WRL. BIT 11 IS SET. THEN 

1047 MWP IS RESET AND WRL SHOULD BE ZERO. 
1048 

1049 PROBABLE FAULT: 

1050 

1051 1. CS MODULE 

1052 

1053 2. IF MODULE 

1054 

1055 

1056 

1057 

1058 

1059 TEST 32 DRIVE FAULT TEST 

1060 

1061 PURPOSE; 
106? 

1065 TO VERIFY THAT "DEVICE CHECK". DVC. AND 'UNSAFE". UNS, CAN 
1064 BE SET AND RESET USING 'MAINTENANCE DRIVE FAULT", MDF . 

1065 

1066 PROCEDURE: 
1067 

1068 WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF. BIT 06 OF 

1069 RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT 07 IS SET RMER1 IS 

1070 ALSO READ AND UNS, BIT U SHOULD ALSO BE SET. THEN MDF IS RESET 

1071 AND DVC AND UNS SHOULD BE RESET. 
1072 

1073 PROBABLE FAULT: 

1074 

1075 1. CS MODULE 

1076 

1077 2. IF MODULE 

1078 

1079 

1080 

1081 

1082 

1083 TEST 33 SEEK ERROR TEST 



rZRMPBO W105/5/? DSklS tst 



J 2 

MACRO VW.OO 4-APR-81 01:?4:25 PAGE 5-19 



1084 
1080 
1086 
1087 
1088 
1089 
1090 
1091 
109? 
1093 
1094 
109S 
1096 
1097 
1098 
1099 
1100 
1101 
110? 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 

1113 

1114 

lilt) 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1159 

1140 



PURPOSE : 

TO VERIFY THAT "SEEK ERROR". SKI. CAN BE SET AND RESET USING 
■miNTENANCE SEEK ERROR". MSER. 

PROCEDURE : 

WITH DIAGTJOSTIC MODE SfT, THE TEST SETS MSFR. BIT 07 OF 
RMWl AND READS RMER3 TO VERIFY THAT SKI. BIT 14 IS SET. MSER IS 
RESET AND SKI SHOULD RESET. 

PRG8A8LC FAULT: 

1 . CS MODULE 

2. IF MODULE 



TEST 34 PIP TEST 
PURPOSE : 

TO VEHFY THAT 'POSITIONING IN PROGRESS". PIP. CAN BE SET 
AND RESET USING 'TiAINTENANCE ON CYLINDER". MOC. 

PROCEDURE : 

DIAGNOSTIC MODE IS SET THEN MOC. BIT 08 OF RMMR1 IS SET AND 
PIP. BIT 13 OF RMDS. SHOULD BE ZERO. MOC IS THEN RESET AND PIP 
SHOULD BE ONE. 

PROBABLE FAULT: 

1. CS MODULE 

2. IF MODULE 



TEST 35 E8L TEST 
PURPOSE ; 

TO VERIFY THAT END OF BLOCK STATUS "E8L' 
RESET USING DIAGNOSTIC END OF BLOCK "DE8L". 

PROCEDURE: 



CAN BE SFT AND 



THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES THAT EBL IS 
RESET. THEN IT SETS DE8L AND VERIFIES THAT EBL IS SET. FINALLY, 
THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMRI . AND CHECKS FOR 
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1K1 

1U3 

1U5 

1U6 

1U7 

1K8 

1U9 

1150 

1151 

1152 

115? 

115A 

1155 

1156 

M57 

1158 

1159 

1160 

1161 

1162 

116? 

n6A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 

1179 

1180 

118^ 

1182 

1183 

118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

119? 

1194 

1195 

1196 

1197 



debl being set by an adjacent bit. 
probable fault: 
1. cs module 



TEST 36 LAST SECTOR. LAST TRACK TEST 

PURPOSE : 

TO VERIFY THE DESIRED TRACK/SECTOR PLA ON ^HE DS MODULE 
USING RMWI. BITS 01 AND 02. 

PROCEDURE: 

THE TEST WRITES ALL POSSIBLE PATTERNS IN THE DISK ADDRESS 
REGISTER. RMDA, AND VERIFIES "l-S" AND '1-ST" STATUS FOR EACH 
PATTERN. THE PROCEDURE IS DONE ONCE FOR 18 BIT FORMAT AND ONCE 
FOR 16 BIT FORMAT. 

PROBABLE FAULT: 

1. DS MODULE 

2. CS MODULE 



TEST 37 RMDA COUNT TEST 
PLIRPOSE : 

TO VERIFY THAT THE DISK ADDRESS REGISTER (RMDA) INCREMENTS 
PROPERLY. 

PROCEDURE : 

THE TEST INCREMENTS RMDA USING DIAGNOSTIC END OF BLOCK 
"DEBL" AND VERIFIES THE RESULT IN 18 BIT FORMAT AND ONCE FOR 16 
BIT FORMAT. 

PROBABLE FAULT: 

1. DS MODULE 



TEST AO RMDC COUNT TEST 
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M98 PURPOSE: 

■'199 

IPOO TO VERIFY THAT THE DESIRED CYLINDER REGISTER, RMDC. 

1201 INCREMENTS PROPERLY. 

IPG? 

1203 PROCEDURE: 
12(K 

1205 THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END Of BLOCK, 

1206 "DE8L". AND VERIFIES THE RESULT IN 18 BIT FORMAT AND 16 BIT FORMAT, 

1207 

1208 PR08A8LE FAULT: 

1209 

1210 1. DS MODULE 

1?11 

121? 

1213 

12U 

1215 

1216 'EST 41 LQT TEST 

1217 

1?18 PURPOSE: 
1219 

1220 TO INSURE THAT LAST BLOCK TRANSFERRED. "LBl", CLEARS WHEN 

1221 RMDA IS WRITTEN, AND SETS WHEN THE LAST SECTOR IS TRANSFERRED. 
122? 

1223 PROCEDURE: 
1??4 

1225 THE TEST USES DIAGNOSTIC E8L TO SET L8T, AND TRANSFERS TO 

1226 RMDA TO RESET LBT. THE RESULTS ARE VERIFIED IN 18 BIT FORMAT AND 
12?7 16 BIT FORMAT. 

1?28 
1??9 

1230 PROBABLE FAULT: 

1251 

1232 1. DS MODULE 

1233 

123A 2. IF MODULE 

1235 

1236 

1237 

1238 

1239 

1240 TEST 42 COMPOSITE ERROR TEST 

1241 

1242 PURPOSE: 
1243 

1244 TO TEST "COMPOSITE ERROR", BIT 14 OF RMDS. 

124'5 

1246 PROCEDURE: 
1 "^47 

1248 THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE ALL 

1249 ERRORS TO ZERO THEN VERIFIES THAT 'TRR" IS ZERO. EACH ERROR IS 

1250 INDIVIDUALLY SET AND "ERR" SHOULD BE ONE FOR EVERY ERROR TESTED. 

1251 ADDRESSES #2 AND *17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED. 

1252 "ABORT" AND "EXCEPTION" OUTPUTS OF THE PI A ARE NOT TESTED. THE 

1253 TEST FAILS IF ERR IS NOT ZERO WITH AlL SET ARGUMENTS ZERO OR IF 

1254 ERR IS NOT ONE WITH ANY SET ARGLflENT ONE. 



CZRMPBC DSKLS TST 1 



n 2 

MACRO VOA.OO <.-APR-81 01:?4:25 PAGE 1-12 



ip5/b PROBABLE FAULT: 

1?57 

1258 1. IF MODULE 

1259 

1260 

1261 

1262 

1?6^ TEST 43 WRITE GO TLST 

1266 PURPOSE: 
126/' 

TO VERIFY THAT GO CAN BE SET. 

1269 

1270 PROCEDURE: 

ilrj THE TEST ENABLES THE DEBUG CLOCK. THEN TRANSFERS A NOP 

FUNCTION CODE AND GO BIT TO RMCS1. VERIFYING THAT GO SETS. ALL 
^27^, FUNCTION CODES ARE TESTED. 

127S 

1276 PROBABLE FAULT: 

1277 

1278 1. IF MODULE 

1279 

1280 2. CS MODULE 

1281 

1282 

1283 

128A 

1285 

1286 TEST 44 BRANCH MULTIPLEXOR TEST 

1287 

1288 PURPOSE: 
12P9 

1290 TO VERIFY THAT THE OUTPUT OF THE COMMAND SEQUENCER BRANCH 

1291 MULTIPLEXOR DOES NOT HAVE A FAULT. 
1292 

1293 PROCEDURE: 
1294 

1295 WITH DEBUG CLOCK ENABLED, THE TEST USES VARIOUS FUNCTION 

1296 CODES AND REGISTER CONDITIONS TO ADDRESS THE TEST BIT ML'LTIPLEXOR 

1297 SUCH THAT THE TEST BIT. BIT12 OF RMMR2, CAN BE CHECKED FOR A 

1298 STUCK FAULT. 
1299 

1300 PROBABLE FAULT: 

1301 

1302 1. CS MODULE 

1503 

1304 

1305 

1306 

1507 

1308 TEST 45 SET/RtSET GO TEST 

1309 

1310 PURPOSE: 
1311 
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1512 TO VERJFY THAT GO CAN BE SET AND RESET. 

15T3 

15U PROCEDURE: 

THE SIBSYSTEM IS INITIALIZED AND ^UT IN MAGNOSTIC MODE WITH 

1517 "DEBUG CLOCK ENABLE". BIT U OF RWR1 SET. 'CERTAIN FUNCTION CODES 

1518 ARE WRITTEN IN RMCSI AND THE PROGRAM READS RMCS1 TO VERIFY THAT 
1319 GO IS SET. RWDS IS ALSO READ TtJ VERIFY THAT "DRY" IS RESET. 
1520 THEN THE PROGRAM STEPS THE DEBUG CLOCK USING BIT 15 OF RMMR1 AND 

1321 VERIFIES THAT "GO" RESETS AND "DRY" SETS. USING A FUNCTION CODE 

1322 THAT RESETS GO AT A DIFFERENT PROM ADDRESS. THE TEST FAILS IF GO 

1323 DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE 

1324 TEST ALSO FAILS IF "DRIVE READY" IS NOT THE COMPLIMENT OF GO. 

islj PR08A8LE FAULT; 

1327 

1528 1. CS MODULE 

1329 

1330 2. IF MODULE 

1531 

1332 

1333 

133A 

1336 TEST A6 END 1 RESET 60 TEST 

1337 

1 338 PURPOSE : 

1339 

1340 TO VERIFY THAT THE COMMAND SEQUENCER CAN RESFT GO AT THE 

1341 END1 LOCATION. 
1342 

1343 PROCEDURE: 
1344 

1345 THE TEST EXECUTES RELEASE. SEARLH AND ILlEGAL FUNCTION CODE 

1346 32 IN DIAGNOSTIC MODE AND VERIFIES THAT 60 RESETS ON THE 

1347 SPECIFIED CLOCK CYCLE. 
1348 

1349 PROBABLE FAULT: 

1350 

1351 1. CS MODULE 

1352 

1353 

1354 

1355 

1356 

1357 

1358 TEST 47 SET PULSE TEST 

1359 

1 360 PURPOSE ; 

1362 TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE. 

1563 

1 564 PROCEDURE : 

1366 WITH DEBUG CLOCK ENABLED. THE TEST STEPS THE COMMAND 

1567 SEQUENCER THROUGH PARTS OF VARIOUS FUNCTION CODES AND CHECKS 

1368 CONTINUE. BIT 06 OF RMMR1 TO DETERMINE IF SET PULSE IS BEING 
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1569 GENERATED. 
1370 

1371 PROBABLE FAULT: 

137§ 1 . CS MODULE 

1574 

1375 

13'6 

1377 

1378 

1579 TEST 50 SET/RESET IVC TEST 

1330 

1 381 PURPOSE : 

1 '^fi? 

1583 TO TEST "INVALID COMMAND" STATUS FOR EACH FUNCTION CODE. 

138A 

1385 PROCEDURE: 
1 386 

1387 THE PROGRAM RESETS VOLUME VALID USING 'MAINTENANCE UNIT 

1388 READY". BIT09 Of RMMR1 , THEN LOADS THE FUNCTION CODE AND GO IN 

1389 RMCS1. EACH FUNCTION CODE IS TESTED AND "IVC". BIT 12 OF RMER2 

1390 IS CHECKED. 
1391 

1392 PROBABLE FAULT. 

1393 

1594 1. CS MODULE 

1395 

139C 2. IF MODULE 

1397 

1398 

1399 

UOO 

KOI 

1402 TEST 51 SET LSC TEST 

1403 

K04 PURPOSE: 

1406 TO VERIFY THAT "LOSS Of SYSTEM CLOCK" CAN SET AND RESET. 

1407 

1408 PROCEDURE: 

14?0 THE TESl ENABLES THE DEBUG CLOCK AND SETS THE GO BIT. AFTER 

1411 WAITING ENOUGH TIME FOR THE ONE SHOT TO SET. THE TEST DISABLES 

1412 THE DEBUG CLOCK AND VERIFIES THAT LSC SETS. 
1413 

1414 PROBABLE FAULT: 

1A15 

1416 1. CS MODULE 

1417 

1418 2- If MODJ'E 

U19 

1420 

1421 

1422 

1423 

1424 TEST 52 DECODE TEST 

1425 
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H26 PURPOSE: 

U28 TO VERIFY THAT THE "DECODE" FLOP ON THE IF MODULE SETS WITH 

K?9 THE LEADING EDGE OF "SET PULSE" EXCEPT WHEN "COMPOSITE ERROR" IS 

U?0 ACTIVE. 
1/.31 

143i PROCEDURE: 
K33 

THE TEST USES 'VOLli'iE VALID" AND 'XJCCUPPIED" TO DETERMINE IF 

K35 THE DECODE FLOP IS SET OR RESET. INITIALLY, VV AND OCCUPPIED ARE 

U36 RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET VV OR OCC 

K37 AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE 

K38 EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES 

U39 THAT NEITHER BIT SETS. 
HAO 

K41 PROBABLE FAULT. 

U43 1. IF MODULE 

H48 

K49 tEST 53 SET/RESET VOLUME VALID TEST 

H50 

K51 PURPOSE: 
U52 

U53 TO VERIFY THAT 'VOLUME VALID" RESETS WITH THE LEADING EDGE 

U54 OF UNIT READY. AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET 

U55 COMMANDS. 
K56 

K5/ PROCEDURE: 
US8 

H59 USING 'MAINTENANCE UNIT READY". BIT 9 OF RMMR1 . THIS TEST 

U60 FORCES A ZERO TC ONE TRANSITION OF UNIT READY AND VERIFIES THAT 

K61 VOLUP« VALID.6IT 6 OF RMDS IS ZERO. THEN THE TEST EXECUTES A 

Ht,2 F-ACK ACKNOWLEDGE COMMAND. VERIFYING THAT VV SETS. THE PROCEDURE 

1463 IS REPEATED WITH A READ IN PRESET COMMAND. 

U64 

U65 PROBABLE FAULT: 

U66 

U6? 1. IF MODULE 

U68 

K69 

K70 

U7T 

U72 

1A73 TEST 5A ILLEGAL FUNCTION TEST 

U74 

U75 PURPOSE: 

\t?7 TO TEST ILLEGAL FUNCTION ERROR IN THE RM05/3/2. 

U78 

U79 PROCEDURE: 

148? WITH DIAGNOSriC CLOCK ENABLED TO INHIBIT THE COMMAND 

K82 SEQUENCER. THIS TEST VERIFIES THAT "ILF". BIT 0 OF RMER1 . IS OFf 
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H83 

U8S 

K86 

U87 

U88 

U89 

1490 

K91 

H92 

U93 

K94 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15U 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 



FOR LEGAL FUNCTION CODES AND ON ^OR iLcEGAL FUNC T lONCOOES. THE 
STATUS OF THE 'WBH IS IGNORED. 

PR08A8LE FAULT: 

1. IF WDULE 



TEST 55 OCCUPIED TEST 
PURPOSE : 

TO VERIFY THAT '10CCUPIE0" IS SET DURING DATA TRANSFERS AND 
IS RESET FOR ALL OTHER COMMANDS. 

PROCEDURE: 

FOR EACH DATA TRANSFER COMMAND. "TDCC". BIT ^5 OF RMMR1 
SHOULD BE ONE. DEBUG CLOCK IS ENABLED TO PREVENT GO FROM 
RESETTING BEFORE STATUS IS SAMPLED. 

PROBABLE FAULT: 

1. IF MODULE 

2. CS MODULE 



TEST 56 READ IN PRESET TEST 
PURPOSE : 

TO VERIFY THAT "READ IN PRESET" COMMAND IS DECODED, AND IN 
PARTICULAR. TO VERIFY THAT "IF5 READ IN CMD L" IS NOT STUCK AT 
ONE. 

PROCEDURE; 

EACH VISIBLE STATUS OR REGISTER BIT WHICH IS CLEARED BY 
"READ IN PRESET" IS SET. THEN THE RIP COMMAND IS EXECUTED AND 
THE TEST VERIFIES THAT ONE OR MORE BITS ARE CLEARED. THE 
FOLLOWING ARE USED DURING THE TEST. 

. ALL BITS OF RMOF ARE SET BY A MOVE INSTRUCTION AND THE TEST 
PASSES IF USED BITS ARE ZERO AFTER THE RIP COMMAND. 

. THE DESIRED CYLINDER REGISTER, RMDC, IS SET WITH A MOVE 
INSTRUCTION AND THE TEST PASSES IF BITS 00-09 ARE ZERO AFTER THE 
RIP COMMAND. 

. THE DISK ADDRESS REGISTER, RMDA, IS SET WITH A MOVE INSTRu.'ION 
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154.0 AND THE TEST PASSES IF BITS 00-07. AND BITS 08-15 ARE ZERO AFTER 

154.1 THE RIP COMMAND. 

154,3 THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP 

154A COMMAND. 

15A6 PR08A8LE FAULT: 

1548 1. IF MODULE 

15A9 

(550 2. DS MODULE 

1551 

1552 

1553 

1554 

1555 TEST 57 RIP/RMOF TEST 

1556 

1557 PURPOSE: 
1558 

1559 TO VERIFY THAT "READ IN PRESET" RESETS FMT16. ECI AND HCI BITS 

1560 10. n AND 12 OF RMOF. 
1561 

1562 PROCEDURE: 
1563 

1564 FMT16. ECI AND HCI ARE SET. THEN A RIP COMMAND IS EXECUTED AND 

'565 EACH BIT SHOULD BE ZERO. 

1566 

1567 PR08A8LE FAULT: 

1068 

1569 1. IF MODULE 

1570 

1571 2. DS MODULE 

1572 

1573 

1574 

1575 

1576 

1577 TEST 60 RMDA/RMDC/RIP TEST 

1578 

1579 PURPOSE: 

158? TO VERIFY THAT "READ IN PRESET" RESETS THE DESIRED CYLINDER 

1582 ADDRESS. RMDC. AND THE DISK ADDRESS. RMDA. 

1583 

1584 PROCEDURE: 
1585 

1586 RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AF'ER THE RIP 

1587 COMMAND. 
1588 

1589 PROBABLE FAULT: 

1590 

1591 DS MODULE 

1592 

1593 

1594 

1595 

'596 
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ISQ? TEST 61 OFFSET COIWVND TEST 

1S98 

1 599 PURPOSE : 

j^O? TO VERIFY THAT 'lOFFSET MODE" SETS WITH OFFSET COWAND. 

160? 

1603 PROCEDURE: 

lJo5 THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT 'W, BIT 

1606 00 OF RMDS IS ONE. 

1607 

1608 PROBABLE FAULT: 

1609 

1610 1. IF MODULE 

1611 

1612 

1613 

16U 

1615 

1616 "EST 62 RETURN TO CENTER TEST 

1617 

1618 PURPOSE: 

1620 TO VERIFY THAT '"RETURN TO CENTER" RESETS OFFSET MODE. 

1621 

1622 PROCEDURE: 

1624 OFFSET MODE. BIT 00 OF RMDS. IS SET WITH OFFSET COMMAND, 

1655 THEN THE TEST EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES 

1626 THAT OFFSET MODE RESETS. OFFSET DIRECTION IS ALSO SET AND 

1627 CHECKED FOR ZERO AFTER THE COMMAND. 
1628 

1629 PROBABLE FAULT: 

1630 

1631 1- If MODULE 

1632 

1633 

163A 

1635 

1637 TEST 63 RMDC CLEAR OFFSET TEST 

1638 

1639 PURPOSE: 

164? TO VERIFY THAT CLEAR OFFSET IS ACTIVE WHEN THE DESIRED 

16A2 CYLINDER ADDRESS IS WRITTEN. 

16A3 

16«A PROCEDURE: 
1645 

1646 THE ^EST EXECUTES AN OFFSET COMMAND. WRITES RMDC. AND 

1647 VERIFIES THAT OM. BIT 00 OF PMDS IS ZERO. 
1648 

^649 PROBABLE FAULT; 

1650 

1651 1. DS MODULE 

1652 

1653 2. IF MODULE 
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16SS 
1656 
1657 

1659 TEST 64 E8L CLEAR OFFSET TEST 

1660 

1661 PURPOSE: 

TO VERIFY THAT OFFSET WDE CLEARS WHEN HEAD SWITCHING 
166A OCCURS. 
16o5 

1666 PROCEDURE: 

1668 THE TE«=.T EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE. 

1669 AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 

1670 ADDRESS IN RMDA. THE TEST FORCES AN E8L AND VERIFIES THAT OFFSET 

1671 MODE RESETS. 
167? 

1675 PR08A8LE FAULT: 

1674, 

1675 1- OS MODULE 

1676 

1677 

1678 

1679 

1680 

1681 TEST 65 RUN AND GO TEST 

1682 

1683 PURPOSE: 

16t5 TO VERIFY THAT "RUN AND GO" FLOP SETS DURING READ AND WRITE 

1686 COMMANDS. 

1687 

1688 PROCEDURE: 

1690 THE RM05/3/2 IS INITIALIZED AND A DATA TRANSFER COMMAND WITH 

1691 GO SET IS WRITTEN IN RMCSl. "RUN AND GO", BIT U OF RMMR1 SHOULD BE 
169P ONE FOR EACH DATA COMMAND. THE DEBUG CLOCK IS ENABLED sO THAT GO 
1693 DOES NOT RESET BEFORE STATUS IS TESTED. 

1694 

1695 PROBABLE FAULT: 

1696 

1697 1. CS MODULE 

1698 

1699 2.' SYNCHRONOUS MASSBUS MODULE 

1700 

1701 

1702 

1703 

1704 

1705 TEST 66 SET lAE TEST 

1706 

1 707 PJRPOSE : 

1709 TO VERIFY THAT INVALID ADDRESS ERROR CAN SE^ 

I'lO 
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1711 PROCEDURE: 

171? THE TEST LOADS INVALID SECTOR. TRACK AND CYLINDER ADDRtSSES 

17U AND EXECUTES A SEARCH COMMAND. VERIFYING THAT "lAE" SETS. THE 

1715 PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE lAE DOES NOT 

1716 SET. AND THE TEST FAILS If lAE CAAWOT BE SET. 
1717 

1718 PROQABlE FAULT: 

1719 

1720 1- DS MODULE 

1721 

1722 2. IF MODULE 

1723 

1724 

172S 

1726 

1727 

1728 TEST 67 SEARCH. SEEK. RfAD. WRFE TEST 

1729 

1 730 PURPOSE : 

1732 TO VERIFY THAT THE "SCh SK R OR U" DECODE ON THE IF MODULE 

1733 IS CORRECT FOR ALL FUNCTION CCDES- 
1734 

1755 PROCEDURE: 

1737 THE TEST LOADS INVALID SECTOR. TRACK AND CYLINDER ADDRESSES 

1738 AND EXECUTES EACH COMMAND TO WHERE SET PULSE IS ACTIVE AND 

1739 VERIFIES THE DECODE BY CHECKING "lAE". 
1740 

1741 PR08A8LE FAULT: 

1742 

1743 1. IF MODULE 

1744 

1745 

1746 

1747 

1748 

1749 TEST 70 INVALID TRACK/SECTOR TEST 

1750 

1751 PURPOSE: 
1 75"* 

1753 TO VERIFY THAT INVALID TRACK AND SECTOR ADDRESSES ARE 

1754 DETECTED. 
1755 

1756 PROCEDURE: 
1757 

1758 THE TEST LOADS THE TEST PATTERN IN RMDA AND EXECUTES A 

1759 SEARCH COMMAND. VERIFYING THAT "lAE" SETS. 
1760 

1761 PR08A8LE FAULT: 

1762 

1763 1. DS MODULE 

1764 

1765 2. 'RACK ADDRESS OPTION JUMPER 

1766 

170/' 
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1?68 

1769 

1770 

1771 

1772 

1773 

1774 

177S 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1795 

1794 

1795 

1796 

1797 

1798 

179V 

1800 

1801 

1802 

1805 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

182^ 

1822 

1825 

1824 



TEST 71 INVALID CYLINDER TEST 
PURPOSE : 

TO VERIFY THAT INVALID CYLINDER ADDRtSSES ARE DETECTED. 

PROCEDURE : 

THE TEST LOADS THE TEST PATTERN IN RMDC AND EXECUTES A 
SEARCH COMMAND. VERIFYING THAT "lAE" SETS. 

PRCeABLE FAULTS: 

1. DS MODULE 

2. CYLINDER ADDRESS OPTION JUMPER 



TEST 72 SfcT AGE TEST 
PURPOSE : 

TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 
PROCED'JRE; 

THE TEST LOADS THE ADDRESS OF THE LAST SECTOR IN RMDA AND 
RMDC. THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ENABLED. 
END OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS. AND THE 
TEST VERIFIES THAT "AOE" IS SET. IN 18 BIT ^ORMAT AND 16 BIT FORMAT, 

PROBABLE FAULT: 
1. DS MODULE 



TEST 75 SET RMR TEST 
PU.S. OSE : 

TO VERIFY THAT '"REGISTER MODIFICATION REFUSED" SETS WHEN A 
REGISTER IS WRITTEN WHILE GO IS SET. EXCEPT WHEN THE ATTENTION OR 
MAINTENANCE REGISTER IS WRITTEN. 



PROCEDURE: 

"DEBUG CLOCK ENABLE" IS SET TO INHIBIT THE 



COMMAND 



tZRMPBO 



1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1854 
1835 
1836 
1837 
1838 
1839 
1840 
1841 



1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1368 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 
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SEQUENCER. THEN A NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1 . 
WITHOUT STEPPiNG THE DEBUG CLOCK. THE TEST WRITES RMMR AND RMAS, 
WHICH SHOULD NOT SET RMR STATUS. THEN RMDA IS WRITTEN AND RMR 
STATUS. BIT 02 OF RMER' . SHOULD BE ONE. 



PR0QA8LE FAULT; 
1. IF MODULE 



TEST 74 PGM STATUS CHECK 
PURPOSE : 

TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
REQUEST STATUS BIT ARE COMPAIABLE. 

PROCEDURE: 

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS OFF. PGM 
IS NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE 0^ THE 
PORT SELECT SWITCH. 

PROBABLE FAULT: 

1. IF MODULE 



TEST 75 DVA/DPR STATUS CHECK 
PURPOSE : 

TO VERIFY THAT DEVICE AVAILABLE STATUS AND DRIVE PRESENT 
STATUS ARE SET. 

PROCEDURE : 

DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON, 
PROBABLE FAULT: 
1. IF MODULE 



TEST 76 PORT REQUEST TEST. PART 1 
PURPOSE : 
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1882 TO VERIFr THAT THE PORT REQUEST FLOPS ON THE IF »100ULE SET 

T883 UHEN THE PROGRAM READS RMCSI . 

1884 

1885 PROCEDURE : 

1887 THE TEST EXECUTES A RELEASE COMMAND. THEN. ASSUMING THE PORT 

1888 IS RELEASED, IT READS RMCS1. THEN READS RMMR2 AND VERIFIES THAT 

1889 ONE OF THE PORT REQUEST FLOPS IS SET. 
1890 

1891 PROBABLE FAUL • : 

1892 

1893 1. IF MODULE 

1894 

1895 2. CS MODULE 

1896 

1897 

1898 

1899 

1900 

1901 "EST 77 PORT REQUEST TEST. PART 2 

1902 

1903 PURPOSE: 
100/ 

1905 TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 

1906 WHEN THE PROGRAM WRITES RMAS. 
1907 

1908 PROCEDURE: 
1909 

1910 THE TEST EXECUTES A RELEASE COMMAND THEN WRITCS RMAS AND 

1911 READS RMMR2. VERIFYING THAT ONE OF THE REQUEST FLOPS IS SET. 
1912 

191i PROBABLE FAULT: 

1914 

1915 1. IF MODULE 

1916 

1917 2. CS MODULE 

1918 

1919 

1920 

1921 

1922 

1923 TEST 100 PORT REQUEST TEST, PART 3 

1924 

1925 PURPOSE: 

1927 TO VERIFY THAT PORT REQUEST SETS WHEN ANY REGISTER EXCEPT 

1928 RMAS IS WRITTEN. 
1929 

1930 PROCEDURE: 
1931 

1932 THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES THAT 

19^3 THE PORT REQUEST FLOP IS ON. 

1934 

1935 PR0BA8.F FAULT: 

1936 

1937 1. IF MODULE 

1938 



CZRIiPBO PM05/5/2 DSKLS TST 1 



1959 

mo 

1941 

m2 

1945 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

196Z 

1965 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

^975 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1985 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1995 

'994 

1995 
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2. CS MODULE 



TEST 101 RELEASE TEST 
PURPOSE : 

TO VERIFY THAT A RELEASE COMMAND CAN RESET THE REQUEST FLOPS 
RQA AND ROe IN MAINTANCE REGISTER »2. 

PROCEDURE : 

THE PROGRAM SETS REQUEST FLOP BY WRJTTING THE RMCS1 REGISTER 
THEN. EXECUTES A RELEASE COMMAND TO RESET THE REQUEST FLOP. 

PROeABlE FAULT: 

1. IF MODULE 



TEST 102 WRITE ATA TEST 
PURPOSE : 

TO VERIFY THAT ATTENTION CAN BE CLEARED BY WRITING THE 
ATTENTION SUMMARY REGISTER. 

PROCEDLWE: 

THE PROGRAf-l RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN 
ATTENTION. THEN WRITES THE ATTENTION SUMMARY REGISTER AND 
VERIFIES THAT ATTENTION IS RESET. 

PR08ABLE FAULT: 

1. IF MODULE 

2. CS MODULE 



TEST 103 RESlT ATA BY GO TEST 

PURPOSE : 

TO VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE ERROR 
IS OFF. 

PROCEDURE: 
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1997 ^ THE PROGRAM SETS MAINTENANCE UNIT READY WHICH SHOULD CAUSE 

1998 AN ATTENTION. THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA 

1999 SHOULD BE ZERO. 
2000 

2001 PROBABLE FAULT: 

2002 

2003 1. If MODULE 

200^ 

2005 

2006 

2007 

2008 

2009 TEST 104 UNIT READY ATA lEST 

2010 

201 1 PURPOSE : 

2012 

2013 TO VERIFY THAT ONE-ZERO AND ZERO-ONE TRANSITIONS OF UNIT 

2014 READY SET ATTENTION. 
2015 

2016 PROCEDURE: 
2017 

2018 THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH TRANSITIONS OF 

2019 UNIT READY AND VERIFIES ThAT ATA SETS WITH EACH TRANSITION. 
2020 

2021 PROBABLE FAULT: 

2022 

2023 1. IF MODULE 

2024 

2025 

2026 

202/ 

2028 

2029 TEST 105 ERROR ATA TEST 

2030 

2031 PURPOSE : 

2033 . TO VERIFY THAT ATTENTION SETS WHEN COMPOSITE ERROR OCCURS 

2034 WHILE GO IS OFF. 
2035 

2036 . PROCEDURE : 

2037 

2038 THE PROGRAM CLEARS THE DEVICE AND SETS AN ERROR, THEN 

2039 VERIFIES ATA IS ON. 
2040 

2041 PROBABLE FAULT: 

2042 

2043 1. IF MODULE 

2044 

2045 

2046 

2047 

2048 

?049 TEST 106 REGISTER TRANSFER ATA TEST 

2050 

2051 PURPOSE: 
2052 
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?053 TO VERIFY THAT ATTENTIO^J SETS WHEN ANY REGISTER. EXCEPT FOR 

2054 RMAS AND RMCS. IS WRITTEN WHILE COMP ERROR IS SET. 

2055 

2056 PROCEDURE : 

2057 

2058 THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION FROM THE 

2059 ERROR. THE PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT 

2060 NO ATTENTION OCCURS. AND WRITES RMDC AND VERIFIES THAT ATTENTION 

2061 DOES OCCUR. 
2062 

2063 PR08A8LE FAULT: 

2064 

2065 1. IF MODULE 

2066 

2067 

2068 

2069 

2070 

2071 TEST 107 P SET ATA TEST 

2072 

2073 PURPOSE : 

2074 

2075 TO VERIFY THAT ATA IS SET AT THE COMPLETETION OF AN OFFSET AND 

2076 RETURN TO CENTER I INE COMMAND. 
2077 

2078 PROCEDURE: 
2079 

2080 THE PR0GR>V1 EXECUTES THE COMMANDS USING THE tTAINTANCE DEBUG 

2081 CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION. 
2082 

2083 PROBABLE FAULT: 

2084 

2085 1. IF MODULE 

2086 

2087 

20|fl 

2089 

2090 

2091 TEST 110 SET WLE TEST 

2092 

2093 PURPOSE : 

2094 

2095 TO VERIFY THAT '\1LE" IS SET OR RESET WHEN IT SHOULD BE. 

2096 

2097 PROCEDURE : 

2098 

2099 THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 

2100 MAINTANCE DEBUG CLOCK AND EXPECTS WLE SET OR RESET. 
2101 

2102 EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE P.ICTECT SET, 

2103 SHOULD EXPECT WLE TO BE SET. 
2104 

2105 EXECUTE WRITE DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT 

2106 SET. SHOULD EXPECT WLE TO BE RESET. 
2107 

2108 EXECUTE READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 

2109 SHOULD EXPECT WLE TO BE RESET. 



B 4 
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SEO OCXiO 



2110 

2111 

2112 

2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

214 

2142 

2143 

2144 

214S 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 



EXECUTE RE*D IN PRESET COfflAND WITH HAINTANCC WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 

PROBASLE FAULT: 

1. CS MODULE 

2. IF MODULE 



TEST 111 EXCEPTION TEST 
PURPOSE : 

TO VERIFY THAT "REX" OF RMMRI IS RESET AFTER THE CONTROLLER IS 
INTIALIALIZED AND SE^ WHEN AN ERROR IS DETECTED DURING A DATA TRANSFER 
COMMAND. 

PROCEDURE: 

THE PROGRAM WILL INITIALIZE THE MmSSBUS CHEX" SHOULD BE CLEAR) 
AND THEN EXECUTE THE WRITE DATA COMMAND USING THE MAINTANCE DEBUG CLOCK, 
WHILE THE COMMAND IS BEING EXECUTED (RUN A^•D GO SET), THE PROGRAM CAUSES 
A "RMR" ERROR. BY TRYING TO WRITE THE RMER1 REGiSTER CREX" SHOULD BE 
SET). 

PROBABLE FAULT: 

1. CS MODULE 

2. IF MODULE 



TEST 112 RECALIBRATE TEST 
PURPOSE : 

TO VERIFY THAT "tlPI" SETS, IF UNIT READY DROPS DURING RECALIBRATE 
COMMAND EXECUTION. 

TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS DURING COMMAND 
EXECUTION. 

TO VERIFY THAT "lOPI" SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 

TO VERIFY THAT "ATA" SETS, IF THE DRI^E COMPLETES THE RECALIBRATE 
COMMAND. 

TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS AFTER EXECUTION 
DURING A WAIT LOOP. 
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SEO 00-' 



2167 

2168 

2169 

2170 

2171 

2V2 

2175 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

218? 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

222\ 



TO VERIFY THE TAG BUS DURING A RECALIBRATE COWANO. 

PROCEDURE: 

THE PROGRAM EXECUTES THE FOLLOWING COfflANDS USING THE 
HAINTANCE DEBUG CLOCK AND EXPECTS THE RES</LTS FOLLOWING EACH COMMAND. 

EXECUTE RECALIBRATE COMMAND. DROP UNIT READY AND VERIFY THAT 'nPV 
IS SET. 

EXECUTE RECALIBRATE COMMAND, SET DRIVE f-AULT Vn>^" IN RMMRl ^ TO 
CAUSE COMMAND ABORT AND VERIFY THAT "GO" IS RESET. 

EXECUTE RECALIBRATE COMMAND. VERIFY THAT "lOPI" IS SET WHEN ON 
CYLINDER LATCH IS NOT CLEARED. 



THEN 



EXECUTE RECALIBRATE COMMAND. DROP ON CYLINDER TO RESET LATCH. 
SET ON CYLINDER AGAIN AND VERIFY THAT "ATA" IS SET. 



EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER TO RESET LATCH. 
LEAVE ON CYLINDER RESET AND VERIFY THAT "GO" IS STILL SET. 

EXECUTE RECALIBRATE COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE-DE TERMINED TABLE. 

PROBABLE FAULT: 

1. CS MODULE 



TEST 113 SEEK TEST 
PURPOSE : 

TO VERIFY THAT 'TOPI" SETS. IF UNIT READY DROPS DURING SEEK COMMAND 
EXECUTION. 

TO VERIFY THAT THE SEEK COMMAND ABORTS DURING COMMAND EXECUTION. 

to VERIFY THAT "IDPI" SETS, If ON CYLINDER LATCH DOES NOT CLEAR. 

to VERIFY THAT "ATA" SETS. IF THE DRIVE COMPLETES THE SEEK COMMAND. 

TO VERIFY THAT THE SEEK COMMAND ABORTS AFTER EXECUTION DURING A WAIT 
LOOP. 

TO VERIFY THE TAG BUS DURING A SEEK COMMAND. 
PROCEDURE: 

THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 
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2:2'* 

?2?7 

?228 

2229 

2230 

2251 

2232 

2233 

223A 

2235 

2236 

2237 

2238 

2239 

22^0 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2255 

2254 

225^) 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

227? 

2271 

227^ 

2275 

2276 

2277 

2276 

2279 

2280 



EXECUTE SEEH CQMHAMD. UNIT REAOV AND VERIFY THAT 'XPl" IS SET. 

FXECUTE SEEK COMMAND. SET DRIVE FAUL^ CW IN RMMR1) TO CAUSE 
C0FI1AND ABORT AND VERIFY THAT 'W IS RESET. 

EXECUTE SEEK COflAND. VERIFY THAT 'XyPl" IS SET WHEN ON CYLINDER 
LATCH IS NOT CLEARED. 

EXECUTE SEEK COMMAND. DROP ON CYLINDER TO RESET LATCH. THEN SET 
ON CYLINDER A3A1N AND VERIFY THAT "ATA" IS SET. 

EXECUTE SEEK COMMAND, DROP ON CYLINDER TO RESET LATCH, LEAVE ON 
CYLINDER RESET AND VERIFY THAT "GO" IS STILL SET. 

EXECUTE SEEK COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PftE-DETERMINED TABLE. 

PROBABLE FAULT: 

1. CS MODULE 



TEST 114 SEARCH TEST 

TO VERIFY THAT 'TOPI" SETS, IF UNI' READV DROPS DURING SEARCH COMMAND 
EXECUTION. 

TO VERIFY THAT THE SEARCH COMTWND ABORTS DURING COMMAND EXECUTION. 

TO VERIFY THAT 'TOPI" SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 

TO VERIFY THAT "ATA" SETS, IF THE DRIVE COMPLETES THE SEARCH COMMAND. 

TO VERIFY THAT THE SEARCH COMMAND ABORTS AFTER EXECUTION DURING A 
WAIT LOOP. 

TO VERIFY THAT SEARCH COMMAND ABORTS DURING SECTOR COMPARE LOOP 
TO VERIFY THE TAG BUS DURING A SEARCH COMMAND. 
PROCEDURE : 

THE PROGRAM EXECUTES THE FOLLOWING COMMANDS LSING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 

EXECUTE SEARCH COMMAND, DROP UNIT READV AND VERIFY THAT 'TDPI" IS SET. 

EXECUTE SEARCH COMMAND. SET DRIVE FAULT CMDF" IN RMMR1) '0 CAUSE 
COMMAND ABORT AND VERIFY THAT "60" IS RESET. 

EXECUTE SEARCH COMMAND. VERIFY THAT "IDPI" IS SET WHEN ON CYLINDER 
LATCH IS NOT CLEARED. 

EXECUTE SEARCH COMMAND. DROP ON CYLINDER TO RESET LATCH, THEN SET 
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2^8' ON CYLlf*>ER AGAIN AND VERIFY THAT "ATA" IS SET. 

2?e,l EXECUTE SEARCH COHHAND. DROP ON CYLINDER TO RESE^ LATCH, LEAVE ON 

2284 CYLINDER RESET AND VERIFY THAT •'GO" IS STILL SET. 

2286 EXECUTt SEARCH COWHAND. WHILE IN SECTOR COMPARE LOOP. SET DRIVE 

2287 FAULT C^OF" IN RMMR1 ) TO CAUSE COftWND ABORT AND VERIFY THAT "ATA" IS 

2288 SET. 
2289 

2290 EXECUTE SEARCH COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 

2291 ACCORDING A PRE-DE TERMINED TABLE. 
2292 

2293 PROBABLE FAULT: 

2294 

2295 1. CS MODULE 

2296 

2297 

2298 

2299 

2300 

2301 T.ST 115 SEARCH TIMEOUT TEST 

2302 

2303 PURPOSE : 

2304 

2305 TO VERIFY THAT 'XtPl" SETS. IF "MSEN" (SEARCH TIMEOUT ENABLE) IS 

2306 DROPPED DURING SEARCH COMMAND EXECUTION. 
2307 

2308 PROCEDURE : 

23?0 EXECUTE SEARCH COMMAND, VERIFY THAT "TOPI" IS SET WHEN 'WSEN" IS 

2311 CLEARED. 

2312 

2313 PROBABLE FAULT: 

2314 

2315 1. CS MODULE 

2316 

2317 

2318 

2319 

2320 

2321 TEST 116 - 120 DATA lOMMAND TESTS (1. 2, 3) 

2322 

2323 PURPOSE : 

2324 

2325 TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS. 

2326 

2327 PROCEDURE : 

2328 

2329 THIS TEST. LIKE RECALIBRATE, SEEK. AND SEARCH TESTS. USES 

2330 THE MAINTENANCE REGISTER TO SIMULATE DRIVE CONDITIONS AND FORCE 

2331 THE COMMAND SEQUENCER THROUGH EACH 8RA.NCH PATH. ADDITIONAL ITEMS 

2332 WHICH ARE 'ESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND 

2333 'tNABLE SEARCH", BIT 11 OF RMMR1 . 
2334 

2335 PROBABLE FAULT: 

2356 

2337 \ CS MODULE 
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SEQ 0044 



2-558 
2559 
2540 
2541 
2542 
2545 
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SfO 0(K 



677 
678 



679 



680 



68 
6&2 



.••LAST REVISION 04-APR-81 

TITLE C7RMP80 RM05/3/2 DSKLS TS^ 1 

•COPrRJGHT (C) 1981 

•DIGITAL EQUIPMENT CORPORATION 

•COLORADO SPGS., CO. 80919 

• 

•PROGRAM BY MIKE LEAVITT 
• 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 
•PACKAGE (MAINDEC-11-02QAC-C5). 18-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 



MAINDEC SYSMAC 



SWITCH 

15 
U 
13 
11 
10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 



USE 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

TNI 28 

TN6A 

TN52 

TN16 

TN8 

TN4 

TN2 

TNI 



.S8TTL BASIC DEFINITIONS 





.-•INITIAL ADDRESS 


001100 


STACK 


- 1100 


104000 


ERROR 


= EMT 


OOOOOA 


SCOPE 


= lOT 




.••MISCELLANEOUS Dl 


00001 1 


HT 


11 


000012 


LF 


= 12 


00001 5 


CR 


= 15 


000200 


CRLF 


- 200 


177776 


PS 


177776 


177776 


PSW PS 




U777(. 


STKLMT 


= 177774 


1 77772 


PIRQ 


= 177772 


177570 


DSWR 


- 177570 


177570 


DDISP 


177570 




.••GENERAL PURPOSE 


000000 


RO 


ZO 


000001 


R1 


= :i 


000002 


R2 


= 12 


000003 


R3 


Z3 


000004 


R4 


Z4 



;;8ASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 



CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



GENERAL REGISTER 
GENERAL REGISTER 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 



. : lif INPIONS 

000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 

ooouo 

000200 
000P40 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 



MACRO i/OA.OC 



R5 
R6 
«7 
SP 
PC 
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SfO n046 



15 
X6 
17 
Z6 
X7 



.-•PRIORITV LE»/EL 

PRO = 0 
PR1 40 

PR2 - 100 

PR3 = 140 
PR4 200 

PR5 = 240 

OR6 = 300 

PR7 - 340 

.-•••SWITCH REGISTERS 
SW15 - 100000 
SW14 - 40000 
SWI 3 20000 
SW12 = 10000 
SWI 1 4000 
SU10 = 2000 
SU09 = 1000 
SJOS - 400 
SW07 200 
SM6 = 100 
SW05 - 40 
SW04 = 20 
SW03 = 10 
SW02 - 4 
SW01 = 2 
SWOO = 1 
SW9=SW09 
SW8=SW08 
SW7=SW07 
SW6-SUI06 
5U5-SW05 
SW4-SW04 
SW3=SUI03 
SW2=SW02 
SWI -SW01 
SWO=SWOO 



.-•DATA BIT DEFINITIONS 

8IT15 - 100000 

BIT14 = 40000 

BITIi - 20000 

BIT12 = 10000 

BIT11 - 4000 

BIT10 - 2000 

BIT09 - 1000 

Biros - 400 

BIT07 - 200 

BIT06 100 

BIT05 40 

Bir04 20 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PR06RA/1 CCJNTER 



DEFINITIONS 

PRIORITY LEVEL 0 

PRIORITY LEVEL 1 

PRIORITY LEVEL 2 

PRIORITY LEVEL 3 

PRIORITY LEVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



(BITOO TO BIT15) 



'7R«PeO RM05/3/2 OSKLS TST 
BASIC DEFINITIONS 

0000"! 0 
000004 
000002 
OOOCOV 
001000 
000400 
000200 
0OO1O0 
000040 
000020 
000010 
000004 
000002 
000001 



U00004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
C00034 
000060 
000064 
000240 

683 
684 
68S 
686 
687 

688 004000 

689 000040 

690 000020 

691 000010 

692 000004 

693 000002 

694 000001 

695 000077 
696 

697 

698 000000 

699 000002 

700 000004 

701 000006 

702 000010 

703 000012 

704 000014 

705 000016 

706 000020 

707 000022 

708 000022 

709 000024 

710 000026 

71 1 000030 
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SCO 0047 



BIT03 
BIT02 
BIT01 
BITOO 

BIT9=8] 
B]T8=8I 
B]T7=6] 
BIT6=81 
BIT5=8I 
BIT4-81 
BIT3-8I 
BIT2-81 
BIT 1=81 
BIT0=8I 

; -BASIC 

ERRVEC 

RESVEC 

TBJTVEC 

TRTVEC 

BPTVEC 

lOTVEC 

PWRVEC 

EMTVEC 

TRAPVEC 

TKVEC 

TPVEC 

PIRQVEC 



= 10 
= 4 
- 2 

r 1 

'09 
T08 
T07 
T06 
T05 
T04 
T03 
T02 
T01 
TOO 

:pu" 

4 

10 
14 
14 
14 
20 
24 
30 
34 
60 
64 
240 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
iRESERVED AND ILLEGAL INSTRUCTIONS 
•T"' BIT 
TRACE TRAP 

iBREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) • •SCOPE 
; POWER FAIL 

lEMULATOR TRAP (EMT) ••ERROR** 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTV PRINTER VECTOR 
; PROGRAM INTERRUPT REQUEST VECTOR 



.S8TTL RM REGISTER BIT DEFINITIONS 



;*RMCS1 CONTROL STATUS REGISTER 



DVA 
F4 
F3 

F2 
F1 
FO 
60 

FNCMSK 

.•FUNCTION 
NOP 

ILF02 = 
SEEK 
RECAL 
DRVCLR = 
RLEASE - 
OFFSET = 
RTC 
RIP 

PAKACK = 
PACACK = 
ILF24 = 
ILF26 - 
SEARCH 



BIT11 
BIT05 
BIT04 
BIT03 
BIT02 
BITOT 
BITOO 
000077 

CODES (BITS 

000000 

000002 

000004 

000006 

000010 

000012 

000014 

000016 

000020 

000022 

PAKACK 

000024 

000026 

000030 



DEVICE AVAILABLE-READ ONLY 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

GO BIT 

FUNCTION CODE MASK 



01-05 OF RMCSl) 

NOP COMMAND 
ILLEGAL COMMAND 
SEEK COMMAND 
RECALIBRATE COMMAND 
DRIVE CLEAR COMMAND 
RELEASE COMMAND 
OFFSET COMMAND 
RETURN TO CENTERLINE COMMAND 
READ IN PRESET COMMAND 
PACK ACKNOWLEDGE COMMAND 

ILLEGAL COMMAND 
ILLEGAL COMMAND 
SEARCH COMMAND 
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SEO CXKn 



7U 



7", 

nt 

7M 

718 

719 

72Q 

72^ 

722 

721 

72^, 

72S 

726 

727 

72S 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

74 3 

744 

745 

746 

74 7 

748 

749 

750 

751 

75? 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 



000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 



010000 
004000 
002000 
001000 
000400 



000020 
000010 
000004 
000002 
000001 



1 77400 
000377 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000001 



II F7n 






• II 1 PRkI rOMMAMD 
« i L L C V^L. i> urxmniu 








• Ti 1 FdAt rnMMAMD 

« i L L C VJ'^i- L UPFWW 


ILr 




nnnn3^ 


«iLLC\I^L LI* w will/ 


ILr JO 






• II 1 FCAI rnMMAMD 
g i L L C L MTwmrtw 


1 1 cz.n 

ILr «iU 




UvUvhU 


• III FAAI rnMMAMD 


1 Lr Ht: 






■ II 1 PHAI rnMMAMD 






VVVVHH 


• III F(UU rOMMAND 


I Lr HO 






-IIIFGAI rOMMAND 


urn 






•URITP fHPrit DATA COMMAND 








■URITF CHPrK HFADFR AND DATA 


1 L" JH 




0000 S4 


■ 11 1 FGAl COMMAND 


1 1 F 
ILr JO 




OOOO'i*^ 


• 11 1 FGAl COMMAND 






oo^o^^o 


-URITF DATA COMM^D 


UU 
wn 




0000^^? 


■URITF HFADFR AND DATA COMMAND 


ILF64 




000064 


.•ILLEGAL COMMAND 


ILF66 




00C066 


.•ILLEGAL COMMAND 


RD 




000070 


;READ DATA COMMAND 


RH 




000072 


.-READ HEADER AND DATA COMMAND 


ILF74 




000074 


.•ILLEGAL COMMAND 


ILF76 




000076 


.ILLEGAL COMMAND 



.••RMDA DISK ADDRESS REGISTER 



; TRACK 
TA16 
TA8 
TA4 
TA2 
TA1 

.•SECTOR 

SA16 

SA8 

SA4 

SA2 

SA1 



ADDRESS DEFINITIONS 
= BIT12 

- BIT11 

- BIT10 
= BIT09 
= BIT08 



ADDRESS 
= BIT04 
= BIT03 
= BIT02 
- BITOT 
= BITOO 



DEFINITIONS 



.TRACK & SECTOR MASKS 
TADMSK = 177400 
SADMSK - 000377 

.••RMDS DRIVE STATUS REGISTER 



ATA 
ERR 
PIP 
MOL 
WRL 
LBT 
PGM 
DPR 
DR^ 

vv 

OM 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BITIO 
BIT09 
BIT08 
BIT07 
BIT06 
BITOO 



.•TRACK ADDRESS 16. 
; TRACK ADDRESS 8. 
.•TRACK ADDRESS 4 
.■TRACK ADDRESS 2 
; TRACK ADDRESS 1 



; SECTOR ADDRESS 16. 
.■SECTOR ADDRESS 8. 
.•SECTOR ADDRESS 4 
.•SECTOR ADDRESS 2 
.•SECTOR ADDRESS 1 



; TRACK ADDRESS MASK 
.•SECTOR ADDRESS MASK 



.•ATTENTION ACTIVE 
.•COMPOSITE ERROR 
.•POSITIONING IN PROGRESS 
.-MEDIUM ON LINE 
; WRITE LOCK 

.•LAST BLOCK TRANSFERRED 
.PROGRAfWABLE 
.•DRIVE PRESENT 
.•DRIVE READY 
.•VOLUME VALID 
.-OFFSET MODE ACTIVE 



.••RMER1 ERROR REGISTER *1 
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R« REGISTER BIT DEFINITIONS 



764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78A 

785 

786 

787 

768 

789 

790 

791 

792 

793 

794 

79S 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

11576C 



000377 



002000 
001000 
000400 
000200 
000100 

003700 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000010 
000004 
000002 
000001 



100000 
040000 



MACMO V04.00 



DCK 

UNS 

DPI 

DTE 

ULE 

lAE 

AGE 

HCRC 

HCE 

ECH 

UCF 

FER 

PAR 

RMR 

ILR 

ILF 
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BIT15 
BIT14 
BIT13 
BIT12 

ami 
smo 

BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BJT02 
BIT01 
BITOO 



SEO 004V 



DATA CHECK ERROR 
DRIVE UNSAFE 
OPERATION INCOMPLETE 
DRIVE TiniNG ERROR 
WRITE LOCK ERROR 
INVALID ADDRESS ERROR 
ADDRESS OVERFLOW ERROR 
HEADER CRC ERROR 
HEADER COMPARE ERROR 
ECC "HARO" ERROR 
WRITE CLOCK FAILURE 
FORMAT ERROR 
PARITY ERROR 

REGISTER MODIFICATION REFUSED 
ILLEGAL REGISTER 
ILLEGAL FUNCTION 



NDTMSK = DCK1DTE!WLE!A0E!HCRC:hCE!ECH.WCF 
.-'NDTMSK" IS USED TO MASK ERROR REGISTER 1 
.•COMMANDS. I.E.. HOUSEKEEPING AND POSITIONING 

;*RMAS ATTENTION SUMMARY REGISTER 



I FER 

DURING NON - 
COMMANDS 



DATA 



ATNMSK = 377 

;*RMLA LOOK AHEAD REGISTER 



SC4 
SC3 
SC2 
SCI 
SCO 



= BIT10 

- BIT09 
BIT08 

- BIT07 

- BIT06 



SCTMSK = 003700 

;*RMMR1 MAINTENANCE REGISTER *1 



.•WRITE 

DBCK 

DBEN 

DE8L 

MSEN 

MCLK 

MRD 

MUR 

MOC 

MSER 

MDF 

MS 

MWP 

MI 

MSC 

DMD 

.•READ 

OCC 
RG 



ONLY BITS 
= BIT15 
= BIT14 
= 8IT13 
= BIT12 
= BIT11 
= BIT10 
= BIT09 
= BIT08 
= BIT07 
= BIT06 
= BIT05 

- BIT03 

- BIT02 

- BITOT 

- BITOO 

ONLY BITS 

Bins 

- BIT14 



.•MASK FOR ATTENTION BITS 



SECTOR COUNT - 16 

SECTOR COUNT = 8 

SECTOR COUNT = 4 

SECTOR COUNT = 2 

SECTOR COUNT = 1 

.•SECTOR COUNT MASK 



DEBUG CLOCK 

DEBUG CLOCK ENABLE 

DIAGNOSTIC END OF BLOCK 

SEARCH TIMEOUT ENABlE 

MAINTENANCE CLOCK 

READ DATA 

UNIT READY 

ON CYLINDER 

SEEK ERROR 

DRIVE FAULT 

SECTOR PULSE 

WRITE PROTECT 

INDEX PULSE 

SECTOR COMPARE 

DIAGNOSTIC MODE 



.•OCCUPIED 
:RUN AND GO 



CZRMPBO RM05/5/2 DSKLS TST 1 
W1 REGISTER BIT DEFlf^ITIOTCS 

821 020000 

822 010000 

823 OOAOOO 

824 002000 

825 001000 

826 OOOAOO 

827 000200 

828 000100 

829 000040 

830 000020 

831 000010 

832 000004 

833 000002 

834 000001 

835 051401 
836 

837 
838 

839 100000 

840 040000 

841 020000 

842 004000 
843 

844 020024 

845 024024 
846 

847 
848 

849 010000 

850 004000 

851 002000 
85*? 000200 
853 161577 
854 

855 
856 

857 001777 

858 1 76000 
859 

860 
861 
862 

863 100000 

864 040000 

865 020000 

866 010000 

867 004000 

868 002000 
871 001000 

000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
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S£0 0050 



CQl 


□ i > > -J • 


FMD OF Rl OfK 


DP V 


- RIT1P 

tSi lie « 


t A 1 1 » i 1 


C OML 


— Oi III , 




PI F C 


- PI Tin 


lOOKiNG FOR ^YNC 




- RITn9 


FNABI F TRC DUT 


on A 


- RITOH 


DATA APFA 




- Ritn? 

□1 1 Ur t 


HFADFR ARFA 












WORD CLOCK 


EECC 


- BIT04 


ENABLE ECC OUT 


nuD 


BIT03 


WRITE DATA BIT 


LS 


BIT02 


LAST SECTOR 


LST 


= BITOT 


LAST SECTOR AND TRACK 


HMD 


BITOO 


DIAGNOSTIC MODE 


MO 1 AAA 






; "RMDT 


DRIVE TYPE REGISTER 






- RIT15 


NOT SECTOR ADDRESSED = 0 


TAP 


= BIT14 


TAPE DRIVE = 0 


MOH 


- BIT13 


MOVING HEAD = 1 


DRQ 


= BIT11 


DRIVE REQUEST REQUIRED 




= 020024 


•SINGLE PORT DRIVE TYPE 


Dill PPT 


= 024024 .-DUAL PORT DRIVE TYPE 




OFFSET REGISTER 




FMT16 


= BIT12 


;16 BIT WORD FORMAT 


ECI 


= BIT11 


;ECC INHIBIT 


HCI 


= BIT10 


;HEADER COMPARE INHIBIT 




= BIT07 


.•OFFSET FORWARD 


XNUOF 


- 161577 


;UNSED BITS OF RMOF 


;*RMDC 


DESIRED CYLINDER ADDRESS 


REGISTER 


CYLMSK 


= 001777 


.-MASK FOR CYI INDER ADDRESS 


XNUDC 


= 176000 


;UNSED BITS OF RMDC 


;*m^2 MAINTENANCE REGISTER »2 




.•READ 


ONLY BITS 




RQA 


= BIT15 


;PORT A REQUEST 


R08 


- BIT14 


;PORT B REQUEST 


TAG 


= BIT13 


;TAG CONTROL 


TST 


= BIT12 


.•COMMAND SEQUENCE TEST BIT 


CC 


- BIT11 


.•CONTROL OR CYLINDER TAG 


CH 


= BIT10 


.•CONTROL OR HEAD TAG 


B809 


= BIT09 


.-TAG BUS 


BB08 


- BIT08 


.-TAG BUS 


B807 


- BIT07 


;TAG BUS 


BB06 


= BIT06 


;TAG BUS 


B805 


= BIT05 


;TAG BUS 


B804 


- BIT04 


;TAG BUS 


B803 


= BIT03 


;TAG BUS 


B802 


= BIT02 


;TAG BUS 


B801 


= BITOT 


.TAG BUS 



CZRMPBO RM05/3/2 OSKLS TST 1 
fm REGISTER BIT DEFINITIOMS 



MACRO v(K.OC 



n 4 
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872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 



911 
912 
913 
9K 
915 
916 
917 
918 



000001 



100000 
040000 
020000 
010000 
004000 
002000 
000200 
000010 
001567 



100000 
040000 



000077 



SfO 00' 



BBOO = BITOO 

.••RMER2 ERROR REGISTER 2 



BSE 
SKI 
OPE 
JVC 
LSC 
LBC 
DVC 
DPE 

XNUER2 



BIT15 
BIT14 
BIT13 
8IT12 
BIT11 
BIT10 
BIT07 
BIT03 
001567 



.SBTTL PROGRAM MNEMONICS 



MSE 
USE 



= BIT15 
- BIT14 



.-TAG BUS 



BAD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COmAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
DATA PARITY ERROR 
UNSED BITS OF RMER2 



.•MANUFACTURING DETECTED SECTOR ERROR 
.•USER DETECTED SECTOR ERROR 



.SBTTL RM REGISTER INDEX VALUES 



892 


OOOCOO 


RMCS1 


— 


00 


CONTROL STATUS REGISTEk *1 


893 


000006 


RMDA 


- 


06 


DISK ADDRESS REGISTER 


894 


000012 


RMDS 




12 


•DRIVE STATUS REGISTER 


895 


000014 


RMER1 




H 


•ERROR REGISTER *1 


896 


000016 


RMAS 




16 


•ATTENTION SUMMARY REGISTER 


897 


000020 


RMLA 




20 


•LOOK AHEAD REGISTER 


898 


000024 


RMMR1 




24 


■MAINTENANCE REGISTER 


899 


000026 


RMDT 




26 


•DRIVE TYPE REGISTER 


900 


000030 


RMSN 




30 


■SERIAL NUMBER REGISTER 


901 


000032 


RMOF 




32 


•OFFSET REGISTER 


902 


000034 


RMDC 




34 


■DESIRED CYLINDER REGISTER 


903 


000036 


RMHR 




36 


■HOLDING REGISTER 


904 


000040 


RMMR2 




40 


;MAINTENANCE REGISTER 02 


905 


000042 


RMER2 




42 


; ERROR REGISTER »2 


906 


000044 


RMEC1 




44 


;ECC POSITION REGISTER 


907 


000046 


RMEC2 




46 


;ECC PATTERN REGISTER 


910 


000050 


ILR650 




50 


; ILLEGAL REGISTER 50 




000052 


ILR652 




52 


; ILLEGAL REGISTER 52 




000054 


ILR654 




54 


^ILLEGAL REGISTER 54 




000056 


ILRG56 




56 


^ILLEGAL REGISTER 56 




000060 


ILRG60 




60 


; ILLEGAL REGISTER 60 




000062 


ILRG62 




62 


; ILLEGAL REGISTER 62 




000064 


ILRG64 




64 


; ILLEGAL REGISTER 64 




000066 


ILRG66 




66 


rILLEGAL REGISTER 66 




000070 


ILRG70 




70 


; ILLEGAL REGISTER 70 




000072 


ILR672 




72 


; ILLEGAL REGISTER 72 




000074 


ILRG74 




74 


r ILLEGAL REGISTER 74 




000076 


ILRG76 




76 


; ILLEGAL REGISTER 76 



IDXMSK = 77 



.-MASK FOR REGISTER INDEX NUMBER 



.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
.••RMCS1 CONTROL STATUS REGISTER #1 



CZRMPBO RM05/3/2 DSKLS TST 1 MACRO VOA.OO 
RH CONTRaiER REGISTER BIT DEflMITIONS 



919 
9?0 
921 
912 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
93A 
935 
936 
937 
938 
939 
9A0 
941 
942 
945 



946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

%2 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 



100000 
040000 
020000 
002000 
001000 
000400 
000200 
000100 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000007 



100000 
040000 
020000 
010000 
004000 
002000 
000100 
000010 
000004 
000002 
000001 



000000 
000002 
Q00004 
000010 
000022 
000050 
000052 

1 76700 



SC 

TRE 

MCPE 

PSEL 

<V17 

A16 

RDY 

IE 
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BJT15 
SITU 
BIT13 
BIT10 
BIT09 
BJT08 
BIT07 
BIT06 



StO 00*^ 



SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 

MASS8US CONTROL BUS PARITY ERROR-READ ONLY 

PORT B SELECT 

ADDRESS EXTENSION 

ADDRESS EXTENSION 

READY-READ ONLY 

INTERRUPT ENABLE 



;*R«CS2 RH CONTROL STATUS REGISTER #2 



DLT 

WCE 

UPE 

NED 

NEM 

P6E 

MXF 

MDPE 

OR 

IR 

CLR 

PAT 

BAI 

U2 

Ul 

UO 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BJT09 
BIT08 
BIT07 
BIT 06 
BIT05 
BIT04 
BIT03 
BIT02 
BITOT 
BITOO 



.•UNIT SELECT MASK 
UNTMSK = 7 



DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNIBUS PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASS8US DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 



;UNIT SELECT MASK 



;*RMCS3 RH70 CONTROL STATUS REGISTER *3 



APE 

DPEHI 

DPELO 

WCEHI 

WCELO 

DBL 

IE 

IPCK3 
IPCK2 
IPCKl 
IPCKO 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BITIO 
BIT06 
8IT03 
BIT02 
BJT01 
BITOO 



ADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR LOW WORD 
WKITE CHECK ERROR HIGH WORD 
WRITE CHECK ERROR LOW WORD 
DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
INVERTr PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 



.S8TTL PH CONTROLLER REGISTER INDEX VALUES 



RMCS1 

RMWC 

RMBA 

RMCS2 

RMD8 

RMBAE 

RMCS3 

ABASE 



00 
02 
04 
10 

22 
50 
52 

176700 



CONTROL, STATUS REGISTER 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
CONTROL. STATUS REGISTER 
DATA BUFFER 
BUS ADDRESS EXTENSION 
CONTROL. STATUS REGISTER 

.-UNIBUS ADDRESS 



#1 



*2 



#3 
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Hh COMTROLLER register index values SCO 0055 

976 120254 AVECn = 120254 ;UNI8US VECTOR ADDRESS AND PRIORITY 

977 



C7WPeO DSKLS TST 



1 



000300 

2 

3 000204 

4 

5 



000046 
000052 



6 
7 
8 



000024 
000044 



001100 
001100 
001102 
001104 
001106 
001110 
001112 



ooocoo 



000174 
000174 000000 
000176 000000 



000137 
000157 



000210 
000046 
054020 
000052 
000000 
000210 

001100 



001100 
000024 
000200 
000044 
001100 
001100 



000000 
001222 
000024 
000024 
C00024 
000042 
001114 



C 5 
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.SSTTl trap catcher 
.=0 I 

•ALL UNUSED L0CATJ0f6 FROM <• - 776 CONTAIN A '•.♦2,HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.-174 



SEO 0054 



004652 
004642 



DISPREG; 
SWREG: 



.WORD 
.WORD 



C 
0 



.S8TTL STARTING ADDRESS(ES) 
JMP a^START 
JMP a#START1 

.S8TTL ACT11 HOOKS 



;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



;;JUMP TO STARTING ADDRESS OF PROGRAM 
.•CHANGE RH/RM BUS ADDRESS 



■HOOKS REQUIRED BY ACT11 

tSVPC=. .-SAVE PC 

.-46 

SENDAD ;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

.-52 

.WORD 0 ;;2)SET LOC.52 TO ZERO 

.-SSVPC ;; RESTORE PC 

.-1100 

.S8TTL APT PARAMETER BLOCK 

•****••••••••**•**•*****•*********•********•***•••••**•••****•** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

■*************************************************************** 
.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;F0« APT START iJP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;. -POINT TO APT HEADER BLOCK 
.=.$X ;;RESET LOCATION COUNTER 
-*»•••*••••**•**••****♦•*•*•*•*•******»•»»»»»*»•***»*»•»*»•»»*** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPli DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD 

SHIBTS 

SMBADR 

STSTM: 

SPASTM: 

SUNITM: 

TAGADR- 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

JMAIL 

20. 
20. 
20. 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST ^ASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 



$ETEND-$«AIL/2 .-.-LENGTH MA I L80X-E TABLE (WORDS) 



CZRMPBO RHCS/5/2 OSKLS TST 1 
romJH TAGS 



HACRO V04.00 
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.S8TTL COMMON TAGS 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.-•USED IN THE PROGRAM. 



0011U 
0011K 
001116 
001117 
001120 
001122 
0011 2A 
001126 
001130 
001131 
001132 
001 13A 
C01 1 36 
001 UO 
001 U2 
001 U4 
001 146 
001 1 50 
001151 
001152 
001154 
001 1 56 
001160 
001162 
001164 
001166 
001 1 70 
001171 
001 1 72 
001 1 73 
001174 
001 176 
001200 
001202 
C01204 
001206 
001210 
001212 
001216 
001217 
001220 



001114 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
1 77560 
1 77562 
177564 
177566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



.-TAGADR 



SCMTAG. 








.WORD 


0 


STSTNM 


• BYTE 


0 


SERFLG 


.BYTE 


0 


$ICNT: 


.WORD 


0 


$LPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


.WORD 


0 


SITEMB 


.BYTE 


0 


$ERMAX 


• BYTE 


1 


SERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


SBDADR 


.WORD 


0 


SGDDAT 


.WORD 


0 


SRDDAT 


■ .WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOe 


• .BYTE 


0 


SINTA6 


. .BYTE 


0 




.WORD 


0 


SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 


$TKS: 


1 77560 




$TK8: 


177562 




STPS: 


177564 




$TP8: 


1 77566 





$NULL: .BYTE 0 

SFILLS: .BYTE 2 

SFILLC: .BYTE 12 

STPFLG: .BYTE 0 

STMPO: .WORD 0 

STMPI : .WORD 0 

$TMP2: .WORD 0 

$TMP3: .WORD 0 

$TMP4: .WORD 0 

STIMES: 0 
$ESCAPE:0 

377 SBELL: .ASCIZ <207><377><377> 

SOUES: .ASCII /?/ 

$CRLF: .ASCII <15> 

$LF: .ASCIZ <12> 
••»»*»*»***************»*****»*** 

'.SBTTL APT MAIL80X-E TABLE 



; .-START OF COMMON TAGS 

; .-CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

;; CONTAINS SCOPE LOOP ADDRESS 

;; CONTAINS SCOPE RETURN FW? ERRORS 

;; CONTAINS TOTAL ERRORS DETECTED 

;; CONTAINS ITEM CONTROL BYTE 

;; CONTAINS MAX. ERRORS PER TEST 

;; CONTAINS PC OF LAST ERROR INSTRUCTION 

.-.CONTAINS ADDRESS OF 'GOOD' DATA 

.-.-CONTAINS ADDRESS OF 'BAD' DATA 

;; CONTAINS 'GOOD' DATA 

;; CONTAINS 'BAD' DATA 

.-.-RESERVED—NOT TO BE USED 

.-.•AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

;. -ADDRESS OF SWITCH REGISTER 
.-.-ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
.-.-TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
;;TTY PRINTER BUFFER REG. ADDRESS 
;; CONTAINS NULL CHARACTER FOR FILLS 
.-.-CONTAINS * OF FILLER CHARACTERS REQUIRED 
.-.-INSERT FILL CHARS. AFTER A "LINE FEED" 
;;' TERMINAL AVAILABLE" FLAG (BIT<07> 0-YES) 
;;USER DEFINED 
.-.-USER DEFINED 
.-.USER DEFINED 
.-.-USER DEFINED 
.-.-USER DEFINED 
;;MAX. NUMBER OF ITERATIONS 
;; ESCAPE ON ERROR ADDRESS 
.-.-CODE FOR BELL 
; .-QUESTION MARK 
;; CARRIAGE RETURN 

.-.-LINE FEED 
******************************** 



•***•****♦***•***••♦*««**•*•••*••••*»***•*•**»*•***♦»***»***♦**• 



001222 

001222 000000 

001224 000000 

001226 000000 



.EVEN 

$MAIL: 

SMSCTY 

SFATAL 

$TESTN 



.WORD AMSGTY 
.WORD AFATAL 
.WORD ATESTN 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 



:ioypQO miS/l/2 DSKLS TST 1 
AP' MAILBOX-ETABLE 



nAZRO vW.OC 
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StO 0056 



001230 


000000 


SPASS 




.WORD 


APASS 


.•PASS COUNT 


001232 


000000 


SDEVCT. 


.yoRD 


ADEVCT ; 


.•DEVICE COUNT 


00123A 


000000 


SUNIT 




.WORD 


AUN] T 


;I/0 UNIT NUMBER 


001236 


000000 


SnSGAD. 


.WORD 


Arts GAD ; 


.MESSAGE ADDRESS 


001240 


000000 


SnSGLG: 


.WORD 


AMSGLG : 


;MESSAGE LENGTH 


001242 




SE TABLE: 




.-APT ENVIROrflENT TABLE 


001242 


000 


SENV: 




.BYTE 


AENV ; 


.-ENViROnnENT BYTE 


001243 


000 


SENvn 




• BYTE 


AENVM 


.-ENVIROMiENT MODE BITS 


001244 


000000 


SSWREG. 


.WORD 


ASWREG ; 


.APT SWITCH REGISTER 


001246 


000000 


SJSUR. 




.UORD 


AU3WR 


;USER SWITCHES 


001 2S0 


000000 


SCPUOP: 


.WORD 


ACPUOP ; 


;CPU TYPE. OPTIONS 






• • 
• 






BITS 15-11=CPU TYPE 






• • 

m 








1 1 /04=01 , 1 1 /05-02, 1 1 /20=03, 1 1 /40=04 , 1 1 /45=05 






• • 








11/70=06. PDQ=07. 0=10 






• * 
• 






BIT 10=REAL TIME CLOCK 






• * 






BIT 9^FL0ATING POINT PROCESSOR 






• • 






BIT 8=(>1EM0RY MANAGEMENT 


001252 


000 


$MAMS1. 


.BYTE 


AMAMS1 ; 


.-HIGH ADDRESS,M.S. BYTE 


001253 


000 


SMTYPl 




.BYTE 


AMTvpi • 


;MEM. TYPE.BLMl 






• * 
• 






MEM. TYPE BYTE — (HIGH BYTE) 






• * 
• 








900 NSEC C0RE=001 






• 








300 NSEC BIP0LAR=002 






• 








500 NSEC M0S=003 


001254 


oooooc 


SMADRl. 


.WORD 


AMADRl ; 


.-HIGH ADDRESS ,BLK/ri 






• 








MEM.LAST ADDR.=3 BYTES. THI^ WORD AND LOW OF '^YPE" 


0012'56 


000 


$«AWS2 


.BYTE 


AMAMS2 ; 


.-HIGH ADDRESS.M.S. BYTE 


001257 


000 


$MTyp2 


.BYTE 


AMTV P2 ; 


; MEM. TYPE .8LK;»2 


00 '•260 


000000 


$MADR2 


.WORD 


fiJW)R2 ; 


.MEM.LAST ADDRESS.BLK*2 


001262 


000 


$rtA«S3 


-BYTE 


ArW1S3 ; 


.•HIGH ADDRESS .M.S. BYTE 


001263 


000 


$«TYP3 


.BYTE 


AMTYP3 ; 


; MEM. TYPE. BLK#3 


001264 


000000 


$«ADR3 


.WORD 


AMADR3 ; 


.MEM.LAST ADDRESS,BLK*3 


001266 


000 


$nAns4 


.BYTE 


ArW1S4 ; 


.HIGH ADDRESS.M.S.BYTE 


001267 


000 


SMTYP4 


.BYTE 


AMTYP4 ; 


;MEM.TYPE,BLMf4 


001270 


000000 


$«ADR4 


.WORD 


AMADR4 ; 


.-MEM.LAST ADDRESS, BLIC#4 


001272 


120254 


SVECTl 


.WORD 


AVECT1 ; 


.•INTERRUPT VECT0R#1.BUS PRIORI TY*1 


001274 


000000 


$VECT2 


.WORD 


AVECT2 ; 


; INTERRUPT VECT0R>r28US PRI0RITY*2 


001276 


176700 


S8ASE 




.WORD 


ABASE 


.-BASE ADDRESS OF EQUIPMENT UNDER TEST 


001300 


000000 


SDEVn 




.WORD 


ADEVM : 


.-DEVICE MAP 


001302 


000000 


SCDWl 




.WORD 


ACDWI 


; CONTROLLER DESCRIPTION W0RD#1 


001 304 


000000 


$CDU2 




.WORD 


ACDW2 


.-CONTROLLER DESCRIPTION W0RD*2 


001306 


000000 


SODUO 




.WORD 


ADDWO ; 


.•DEVICE DESCRIPTOR WORD#0 


001310 


000000 


$00U1 




• WORD 


ADDW1 ; 


.•DEVICE DESCRIPTOR W0RD#1 


001312 


000000 


$DDW2 




.WORD 


ADDW2 


.•DEVICE DESCRIPTOR W0RDXr2 


001314 


000000 


$DDW3 




.WORD 


ADDW3 


;DEVICE DESCRIPTOR W0RDXr3 


001316 


000000 


$D0U4 




.WORD 


ADDW4 ; 


.-DEVICE DESCRIPTOR W0RD/<r4 


001320 


000000 


$DDU5 




.WORD 


ADDW5 ; 


; DEVICE DESCRIPTOR W0RD«5 


001 322 


000000 


SDDW6 




.WORD 


ADDW6 ; 


.•DEVICE DESCRIPTOR W0RD*6 


001324 


000000 


tDnw7 




.WORD 


ADDW7 


.•DEVICE DESCRIPTOR W0RDXf7 


001526 




SFTEND 
."^lEXlT 









c;r.»ipbo rmos/?/? dskls tst i 

USEfii DEFINED TAGS 



001 3?6 000000 
001 330 000000 
001332 000000 



MACRO VC4.00 
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001 35A 
001335 



001 336 



000 
000 



SfO 005 



.S8TTL USER DEFINED TAGS 



AUTSIZ: 
CHGADR: 
XXDP: 



LSTRK: 



.WORD 
.WORD 
.WORD 



.8rTE 
.BYTE 



0 
0 
0 



C 
0 



ALLOW AUTO DRIVE SIZING - 0. USE riANUALLV INPUT DRIVES 

CHANGE RH/RM BUS ADDRESS = -1 . NO CHANGE = 0 

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 

THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

•XXDP' DEVICE CODE FOR THE RM05/3/a. 

LO BYTE - 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM02/3 = RM05 = 18. 



;THE REGISTER INPUT BUFFER 13 USED FOR 
.•STORING DRWE STATUS 

GFT8UF: 



00U12 



00K1? 
OOKK 
00K16 
00U20 
00K2? 
00U2A 
00U26 
00K30 
OOU32 
00U34 
00U^6 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 







.•REGISTER INPUT 


BUFFER 




001 336 


000000 


RMCS1I: .WORD 


0 


CONTROL. STATUS REGISTER *1 


Am 2/ r\ 
001 5*»U 


000000 


RMWCI 


.WORD 


0 , 


WORD COUNT REGJSTcR 


C01 342 


000000 


RMBAJ 


.WORD 


0 


BUS ADDRESS REGISTER 


001 3AA 


000000 


RMDAI 


.WORD 


0 


DISK ADDRESS REGISTER 


001 546 


000000 


RMCS2I: .WORD 


0 


CONTROL, STATUS REGISTER *2 


001 350 


000000 


RMDSI 


.WORD 


0 


DRIVE STATUS REGISTER 


001352 


000000 


RMER1I: .WORD 


0 


•ERROR REGISTER *1 


001354 


000000 


RMASI 


.WORD 


0 


•ATTENTION SUMMARY REGISTER 


001 356 


000000 


RMLAI 


.WORD 


0 


•LOOK AHEAD REGISTER 


001360 


000000 


RMDBI 


• .WORD 


0 


•DATA BUFFER 


001362 


000000 


RMMR1I: .WORD 


0 


•MAINTENANCE REGISTER *1 


001364 


000000 


RMDTI 


.WORD 


0 


•DRIVE TYPE REGISTER 


001366 


000000 


RMSNI 


.WORD 


0 


; SERIAL NUMBER REGISTER 


001370 


000000 


RMOFI 


.WORD 


0 


•OFFSET REGISTER 


001 372 


000000 


RMDCI 


.WORD 


0 


•DESIRED CYLINDER REGISTER 


001 374 


000000 


RMHRI 


.WORD 


0 


■HOLDING REGISTER 


001376 


000000 


RMMR2I: .WORD 


0 


•MAINTENANCE REGISTER #2 


001400 


000000 


RMER2I: .WORD 


0 


;ERROR REGISTER *2 


001402 


000000 


RMEC1I: .WORD 


0 


•ECC POSITION REGISTER 


001404 


000000 


RMEC2I: .WORD 


0 


;ECC PATTERN REGISTER 


001406 


000000 


RMBAEI: .WORD 


0 


;BUS ADDRESS EXTENSION REGISTER 


001410 


000000 


RMCS3I: .WORD 


0 


; CONTROL, STATUS REGISTER *3 



;THE REGISTER OUTPUT BUFFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 



PUT8UF ; 

.REGISTER OUTPUT BUFFER 
RMCS10: -WORD 0 



RMWCO: .WORD 

RMBAO: .WORD 

RMDAO: .WORD 

RMCS20: .WORD 

RMDSO: .WORD 

RMER10; .WORD 

RMASO: .WORD 



RMLAO: 

RMD80: 



.WORD 

.WORD 



RMMR10: .WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



CONTROL. STATUS REGISTER *1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER *2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER *1 



'ZawPBO DSklS TST 1 

jSft* DEF INED TAGS 
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UO 00S8 



OOHAO 
00U42 

001446 
00U50 
OOU52 
0OU54 
0CU56 
00U6C 
00H62 
001464 



001466 
C01470 
001510 



001512 
001514 

001516 
001 520 
001522 
001524 
001526 
001530 
001532 
001534 
001536 
001540 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 



oooooo 
oooooc 



172540 
172542 

000104 
000106 
177546 
000100 
000102 
OOOOOO 
OOOOOO 
OOOOOO 

oooooo 
oooooo 



RMDTO 
RMSNO 
RMOFO 
RMDCO 
RMHRO 

RMER20 
RMEC10 
RMEC20 
RMBAEO 
RMCS30 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 



DRIV"^ TfPE REGISTER 

SERIAL NUTBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER »2 

ERROR REGISTER *2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL. STATUS REGISTER *3 



EACH WORD Or THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 



TSTQUE; 



SLPCSR 
SLPCSB 
SLPVEC 

SLLCSR: 
SLLVEC: 

$PSW: 

TIME: 

WATCH: 

CLOCK: 

STOPCL: 



.WORD 0 
.8LKW 8. 
.WORD 0 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



172540 
172542 
104 
106 

177546 

100 

102 



CONTAINS DEVICE POINTER 
TEST QUE FOR DEVICES UNDER TEST 
TABLE TERMINATOR GOES HERE WHEN 
ALL 8. DEVICES ARE UNDER TEST. 

KW11-P CONTROL ♦ STATUS REGISTER 
KW11-P COUNT SET BUFFER 
KW11-P INTERRUPT VECTOR 

KW11-L CONTROL ♦ STATUS REGISTER 
KW11-L INTERRUPT VECTOR 

STORAGE FOR PRIORITY 

STORAGE FOR ELAPSED TIME 

STORAGE FOR REMAINING TIME 

ADDRESS OF START CLOCK SUB 

ADDRESS OF STOP CLOCK SUB 



;PUT TAGS HERE 



MACW rfCMi.OO 
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,S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INfORMATION IS OBTAINED BV USING THE INDEX NUMBER FOUND IN 

•LOCATION $ITEf«. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•NOTEl: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

•NCTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 

• EM ; .-POINTS TO THE ERROR MESSAGE 
DH ; .-POINTS TO THE DATA HEADER 
Di ;; POINTS TO THE DATA 

• DF ;; POINTS TO THE DATA FORMAT 



1 
2 
5 



00154? 



001 

C015A4 
001546 
001550 



4 
5 

6 



001552 
001554 
001556 
001560 



8 

9 



001562 
001564 
001 566 
001570 



10 
11 
1? 



001572 
001 S 74 
001576 
001600 



15 
14 
15 



001602 
001004 
001606 
001610 



064154 
072032 
072132 
072160 



064162 
072036 
072134 
072162 



064210 
000000 
000000 
000000 



064230 
000000 
000000 
000000 



064252 
072042 
072156 
072164 



SERRTB: 
.-ERROR 1 



EMT1 
EHTI 
EDT1 
EFT1 



; ERROR 2 



EMT2 

EHT2 
EDT2 
EFT2 



.•ERROR 3 



FMT3 
0 
0 
0 



.-ERROR 4 



EMT4 
0 
0 
0 



.-ERROR 5 



EMT5 
EHT5 
EDT5 
EFT5 



CANNOT CLEAR NED STATUS 



CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 



CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 



CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASS8US INIT 



CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 



16 
' 7 



.ERROR 6 



CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 



funon POINTER t/«lE 



18 



001612 064276 

001 6K 0720*2 

001616 072136 

001620 072164 



^9 
?o 

22 



001622 
001624 
001626 
001630 



?3 

?4 

25 



001632 
C01634 
001636 
001640 



26 
27 
28 



001642 
001644 
001646 
001650 



29 
30 
31 



001652 
001654 
001656 
001660 



32 
33 
34 



001662 
001664 
001666 
001670 



35 
36 
37 



001672 
001674 
001676 
001700 



?8 
39 



064320 
072046 
072136 
072164 



064342 
000000 
000000 
000000 



064360 
000000 
000000 
000000 



064376 
000000 
000000 
000000 



064414 
000000 
000000 
000000 



064432 
000000 
000000 
000000 
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Enr6 

EHT5 
EDT5 
Ef T5 



; ERROR 7 



EMT7 
EHT7 
EDT5 
EFTS 



.•ERROR 10 



EMTIO 
0 
0 
0 



; ERROR 1 1 



EMT11 
0 
0 
0 



.•ERROR 12 



EMT12 
0 
0 
0 



; ERROR 13 



EMT13 
0 
0 
0 



; ERROR 14 



EWT14 
0 
0 
0 



: ERROR 15 



CANNOT WRITE/READ SHIFTING ONE BP TO ALL BIT f>OSlTIONS 
OF DEVICE REGISTERS 



REGISTER SELECT 1 APPEARS S-A-0 



REGISTER SELECT 1 APPEARS S-A-1 



REGISTER SELECT 2 APPEARS S-A-0 



REGISTER SELECT 2 APPEARS S-A-1 



REGISTER SELECT 4 APPEARS S-A-0 



REGISTER SELECT 4 APPEARS S-A-1 



FRROR POINI£R TABLE 



AO 



001702 064450 

001704 000000 

001706 000000 

001710 000000 



41 
42 
45 



001712 064466 

001714 000000 

001716 000000 

001720 000000 
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E«n5 

0 
0 
0 



; ERROR 16 



EMT16 
0 
0 
0 



SfO 0061 



REGISTER SELECT 8 APPEARS S-A-0 



44 
45 
46 



001722 
001724 
C01726 
001730 



47 
48 
49 



001732 
001 ^'34 
001 736 
001740 



50 
5 

52 



001 ■'42 
001 744 
001 746 
001750 



53 
54 
55 



001 752 
001754 
001 756 
001 760 



064504 
000000 
000000 
000000 



064522 
072032 
072132 
072160 



064542 
072032 
072132 
072160 



064562 
072032 
072132 
072160 



.-ERROR 17 



EMT17 
0 
0 
0 



; ERROR 20 



EMT20 
EHT1 

ED-Il 
EFTl 



.•ERROR 21 



EMT21 
EHTl 
EDTl 
EfTl 



; ERROR 22 



EMT22 
EHTl 
EDTl 
EFTl 



REGISTER SELECT 8 APPEARS S-A-1 



CANT WRITE ZEROS RMDA 



CANT WRITE ONES RMDA 



BJT INTERFERENCE IN WRITING/READING RMDA 



56 
57 
58 



001762 064576 

001764 072032 

001766 072132 

001770 072160 



59 

60 
61 



; ERROR 23 



EMT23 
EHTl 
EDTl 
EFTl 



r ERROR 24 



CANT WRITE ZEROS RMCS1 



CANT WRITE ONES RMCS1 



CZRMPeO RM05/5/2 DSKLS TST 1 
FRROR POINTER TABLE 

001772 0646'' 6 
001774 072032 



001776 072132 
002000 072160 



62 
63 
64 



002002 
002004 
002006 
002010 



65 
66 

67 



002012 
002014 
002016 
002020 



064636 
072032 
072132 
072160 



064652 
000000 
000000 
000000 



68 
69 
70 



002022 064704 

002024 072032 

002026 072132 

002030 072160 



71 
72 
73 



002032 064716 

002034 072032 

002036 072132 

002040 072160 



74 
75 
76 



002042 
002044 
002046 
002050 



77 
78 
79 



002052 
002054 
002056 
002060 



064732 
072032 
072132 
072160 



064746 
072032 
072132 
072160 



80 
81 
82 



002062 064762 
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EMT24 
EHT1 
EDTI 
EFTI 



SfO 0062 



.ERROR 25 



EMT25 
EHT1 
EDTI 
EFTI 



.ERROR 26 



EMT26 
0 
0 
0 



; ERROR 27 



EMT27 
EHT1 
EDTI 
EFTI 



.ERROR 30 



EMT30 
EHT1 
EDTI 
EFTI 



.ERROR 31 



EMT31 
EHT1 
EDTI 
EFTI 



.•ERROR 32 



EMT32 
EHT1 
EDTI 
EFTI 



; ERROR 33 

EMI 33 



BIT INTERFERENCE IN WRITING/READING RMCS1 



MBA CLR L IS STUCK ACTIVE 



CANNOT CLEAR RMER1-PAR.RMR.ILF .ILR 



CANNOT CLEAR RMERl-DCK. lAE ,AOE .HCRC .HCE .ECH.WCF ,FER 



CANNOT CLEAR WIERl-OPl .DTE 



CANNOT WRITE 0 IN RMER1-PAR.RMR. ILF . ILR 



CANNOT WRITE 0 IN RMER1-DCK, I AE .AOE ,HCRC,HCE .ECH,WCF .FER 



rZRMPBO RM05/3/2 DSKLS TST 1 
FRROR POINTER TABLE 

002064 072032 
002066 072132 
002070 072160 



P3 
85 



002072 
002074 
002076 
002100 



86 
87 
88 



002102 
002104 
002106 
002110 



89 

90 
91 



002112 
002114 
002116 
002120 



92 
93 
94 



002122 
002124 
002126 
002130 



95 
96 
97 



002132 
002134 
002136 
002140 



98 
99 
100 



002142 
002144 
002146 
002150 



101 
102 
103 



002152 
002154 



065000 
072032 
072132 
072160 



065016 
072032 
072132 
072160 



065032 
072032 
072132 
072160 



065046 
072032 
072132 
072160 



065062 
072032 
072132 
072160 



065102 
072032 
0721 32 
072160 



065116 
000000 
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EHTl 
EDT1 
EFTl 



;ERR0f< 34 



Em34 
EHTl 
EDTl 
EFTl 



.ERkOR 35 



EMT35 
EHTl 
EDTl 
EFTl 



; ERROR 36 



EriT36 
EHTl 
EDTl 
EFTl 



.-ERROR 37 



EMT37 
EHTl 
EDTl 
EFTl 



.ERROR 40 



EMT40 
EHTl 
EDTl 
EFTl 



; ERROR 41 



EMT41 
EHTl 
EDTl 
EFTl 



.ERROR 42 



EMT42 

0 



CAWJOT WRITE 0 IN RMERl-OPI .DTE 



CANNOT WRITE 1 IN RMERl 



CANNOT WRITE SHIFTING ^ IN RMERl 



CANNOT WRITE ZEROS IN RMDC 



CANNOT WRITE ONES IN RMDC 



BIT INTERFERENCE IN WRITING/READING RMDC 



CA^WOT WRITE 1'S IN RMDC OR RMDA 



rZRMPBO RM05/3/2 DSKLS TST 1 
ERROP POINTER TABLE 



002156 000000 
002160 000000 



104 
105 
106 



002162 
002164 
002166 
002170 



107 
108 
109 



002172 
002174 
002176 
002200 



110 
11 I 
112 



002202 
002204 
002206 
002210 



113 
114 
115 



002212 
002214 
002216 
002220 



065 V.2 
072032 
072152 
072160 



065154 
072032 
072132 
072160 



065170 
072032 
072132 
072160 



065204 
072032 
072132 
072160 



H 5 

«ACW) »'04.00 4-APR-81 01:24:«f5 PAGE 8-5 



0 
0 



:ERR0A 43 



EMT43 
EHT1 
EOT! 
EFTI 



.ERROR 44 



EMT44 

EHTl 
EDT1 
EFTI 



; ERROR 45 



EMT45 
EHTl 
EDTl 
EFTI 



; ERROR 46 



EWT46 
EHTl 
EDTl 
EFTI 



CANNOT CLEAR RMCS1-FUNCT ION CODE 



UNUSED BITS OF RMER2 NOT ZERO 



CANNOT CLEAR Rf1ER2-0PE , I VC .LSC 



CANNOT CLEAR RriER2-L8C .DPE 



116 
M7 
118 



002222 
002224 
002226 
002230 



119 
120 
121 



002232 
002234 
002236 
0C?240 



065220 
072032 
072132 
072160 



065242 
072032 
072132 
072160 



;ERROR 47 



EMT47 
EHTl 
EDTl 
EFTI 



.•ERROR 50 



EriT50 
EHTl 
EDTl 
EFTI 



CANNOT WRITE ZEROS RMER2-0PE.IVC LSC 



CANNOT WRITE ZEROS RMER2-LBC.DPE 



122 
123 
124 



002242 
002244 
002246 



065264 
072032 
072132 



;ERR0R 51 



Ef1T51 

EHTl 

EDTl 



CANNOT WRITE ONES RriER2 



CZRMPSO RM05/3/2 OSKLS TST 1 
ERROR POINTER TABLE 



002250 072160 



125 
126 
127 



002252 06530A 

002254 072032 

002256 072132 

002260 072160 



128 
129 
130 



002262 065320 

00226A 072032 

002266 072132 

002270 072160 



131 
132 
133 



002272 
002274 
002276 
002300 



13A 
135 
136 



002302 
002304 
002306 
002310 



137 
138 
^39 



002312 
0023K 
002316 
002320 



uo 

K1 
14? 



002322 
002324 
002326 
002330 



143 
144 
145 



002332 
002334 
002336 
002340 



065334 
072032 
072132 
072160 



065354 
072032 
072132 
072160 



0653^4 
072032 
072132 
072160 



065410 
072052 
072140 
072166 



065424 
072032 
072132 
072160 
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EFTl 



.ERROR 52 



EMT52 
EHT1 
EDT1 
EFTl 



; ERROR 53 



EMT53 
EHT1 
EDT1 
EFTl 



.ERROR 54 



EMT54 
EHT1 
EDT1 
EFTl 



.•ERROR 55 



EnT55 
EHTl 
E0T1 
EFTl 



: ERROR 56 



EnT56 
EHTl 
E0T1 
EFTl 



.•ERROR 57 



EMT57 
EHT57 
EDT57 
EFT57 



; ERROR 60 



EMT60 
EHTl 
EDT1 
EFTl 



CANNOT WRITE SHIFTING ONES RMER2 



UNUSED BITS OF RMOF ARE NOT ZERO 



CANNOT WRITE ZEROS RMOF-FMT.ECI .HCI .OFD 



CANNOT WRITE ONES RMOF-FMT.ECI .HCl .OFD 



CANNOT WRITE SHIFTING ONES RMOF 



DEVICE IS NOT AN RM05/3/2 



DEVICE AVAILABLE IS NOT SET 



CZKMPBO W105/3/2 DSHLS * 
ERROR POI^TER TABlE 
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SEO 0066 



H6 
H8 



002342 
002344 
002346 
002350 



149 
150 
^31 



002352 
002354 
002356 
00236G 



152 
155 
154 



002362 
002364 
002366 
002370 



155 
156 
157 



002372 
002374 
002376 
002400 



158 
159 
160 



002402 
002404 
002406 
002410 



161 
162 
163 



002412 
002414 
002416 
002420 



U4 
165 
166 



002422 
002424 
002426 
002430 



065440 
072032 
072132 
072160 



0654^0 
072 . 2 
0721 32 
"'2160 



065500 
072032 
072132 
072160 



065514 
072032 
072132 
072160 



072056 
072142 
072170 



065542 
072056 
072142 
072170 



065556 
072032 
072132 
072160 



.-ERROR 61 



EMT61 
EHT1 
EDT1 
EFT1 



.•ERROR 62 



EMT62 
EHT1 
EDT1 
EFT1 



; ERROR 63 



EMT63 
EHT1 
EDT1 
EFTI 



; ERROR 64 



EMT64 
EHT1 
EDT1 
EFTI 



.•ERROR 65 



EMT65 
EHT65 
EDT65 
ErT65 



; ERROR 66 



EMT66 
EHT65 
EDT65 
EfT65 



; ERROR 67 



EriT67 
EHT1 
EDT1 
EFTI 



CATiMOr WRITE ZEROS RMHR 



CANNOT WRITE ONES RMHR 



CANNOT WRITE SHIFTING ONES RMHR 



CANNOT CLEAR ILR STATUS 



ILR ERROR SHOULD NOT BE SET 



ILR ERROR SHOULD BE SET 



CANNOT CLEAR PAR 5.TATUS-DPE IS RESET 



';R«1PB0 W10S/5/Z DSKLS TST 1 
FRROR POINTER TABLE 



167 
168 
169 



002^32 

002436 
002440 



170 
VI 
172 



002442 
002444 
002446 
002450 



173 
174 
175 



C02452 
002454 
002456 
002460 



065574 
072052 
072132 
072160 



065614 
072062 
072144 
0721 72 



065640 
072062 
072144 
072172 



176 
177 
178 



002462 065664 

0024o4 072062 

002466 072144 

002470 072172 



179 
180 
181 



002472 065704 

002474 072066 

002476 072146 

002500 0721 74 



182 
185 
184 



002502 
002504 
002506 
002510 



185 
186 
187 



0025)2 
002514 
002516 
002520 



065714 
072032 
0721 32 
072160 



065726 
072032 
072132 
072160 
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btU UiJO 



: ERROR 70 



EHT70 
EHTl 
EDT1 
EFTl 



.ERROR 71 



EMT71 
EHT71 
EDT71 
EFT71 



; ERROR 72 



EMT72 
EHT71 
EDT71 
EFT71 



.•ERROR 73 



EMT73 
FHT71 
EDT71 
EFT71 



.•ERROR 74 



EMT74 
EHT74 
EOT 74 
EFT74 



; ERROR 75 



EMT75 
EHfl 
EDT1 
EFTl 



; ERROR 76 



EMT76 
EHTl 
EDT1 
EFTl 



CAr#JOT CLEAR PAR AND DPE STATUS 



■•PAR" ERROR SHOULD Nf BE SET-'PAT" IS OFF 



••PAR" ERROR SHOULD 8E S:T-^^PAT" IS ON 



•WCPE" ERROR SHOULD NOT BE SET 



UNEXPECTED BUS TIMEOUT 



CANT CLEAR ""DMO' 



CANT WRITE ZERO "DMD' 



188 



'7HMPB0 RM05/3/2 1/5<^.lS TST 1 
fPROR POINTER T>«LE 



^89 

190 



002S22 065742 

0O252A 072032 

002526 072132 

002530 072160 



191 
192 
193 



002532 
002534 
002536 
0025AO 



194 
195 
196 



002542 
002544 
002546 
002550 



197 
198 
199 



002552 
002554 

002556 
002560 



200 
201 
202 



002562 
002564 
002566 
002570 



203 
204 
205 



002572 
002574 
002576 
002600 



206 
207 
208 



002602 
002604 
002606 
002610 



209 
210 



065756 
072062 
072142 
072170 



065776 
072032 
072132 
072160 



066016 
072032 
072132 
072160 



066036 
072062 
072142 
0721 ^0 



066062 
072032 
072132 
072160 



066102 
072032 
072132 
072160 
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SEO 00t>; 



; ERROR 77 



CANT WRITE ONE "DMD" 



EHT77 
EHTl 
EDT1 
EFTI 



.-ERROR 100 



m> SET BY WRONG BIT 



EMT100 
EHT7: 
EDT65 
EFT65 



;ERROR 101 CANT CLEAR 'WOl" IN DIAGNOSTIC MODE 



EMTIO! 
EHTl 
EDTl 
EFTI 



.•ERROR 102 



CANT SET "nOL" IN DIAGNOSTIC MODE 



EMT102 
EHTl 
EDTl 
EFTI 



.ERROR 103 



'NUR"' SET BY WRONG BIT 



EMT103 
EHT71 
EDT65 
EFT65 



; ERROR 104 



CANT RESET "V/RL" IN DIAGNOSTIC MODE 



EMT104 
EHTl 
EDTl 
EFTI 



.•ERROR "05 



CANT SET "WRL" IN DIAGNOSTIC TODE 



EMT105 
EHTl 
EDTl 
EFTI 



.-ERROR 106 



•MWP" SET BY WRONG BIT 



'ZRMPBO W105/5/*; DSHLS TST 1 
FRROfi POINTfR TABLE 



002612 
0026K 
002616 
002620 



212 
213 
2H 



002622 
002624 
002626 
002630 



215 
216 
217 



002652 
002o34 
C02636 
0026A0 



218 
219 
220 



002642 
0026A4 
002646 
002650 



066122 
072062 
072K2 
072170 



066146 
072052 
072152 
072160 



066166 
072052 
072152 
072160 



066210 
072052 
072152 
072160 
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EMT106 
EHT71 
EDT65 
EFT65 



; ERROR 107 



EMn07 
EHT1 
EDT1 
EFT1 



; ERROR 110 



EMTllO 
EHTI 
EDTl 
EFTI 



.■ERROR 111 



EMT111 
EHTI 
EDTl 
EFTI 



CANT RESET "TDVC" USING "WDVC 



■DVC" IS RESET BUT 'DNS" IS SET 



"DVC" IS SET BUT -yjus" IS NOT SET 



SEO OOt^ 



221 
223 



002652 
002654 
002656 
002660 



066230 

072032 
072132 
072160 



.•ERROR 112 



EMTn2 
EHTI 
EDTl 
EFTI 



CANT SET "DVC" USING MDVC 



224 
225 
226 



002662 
002664 
002666 
002670 



227 
228 
229 



002672 
002674 
002676 
002700 



250 
231 
252 



066250 
072032 
072152 
072160 



066274 
072032 
072132 
072160 



.•ERROR 113 



EMT115 
EHTI 
EDTl 
EFTI 



.•ERROR 114 



EMT114 
EHTI 
EDTl 
EFTI 



.-ERROR 115 



"DVC" IS RESET BUT "IWS" IS SET 



"DVC" IS SET BUT '\JNS" IS NOT SET 



'MDF" IS SET BY WRONG BIT 



rZRMP&O RM05/5/2 DSKLS TST 1 
FRROft POINTER TABLE 

002702 066316 
00270« 072072 



002706 072150 
002710 072176 



253 
255 



002712 
0027U 
002716 
002720 



236 
237 
238 



002722 
002 72 A 
002726 
002730 



239 
2A0 
241 



002732 
002734 
002736 
002740 



242 
243 

24<(« 



002742 
002744 
002746 
002750 



066342 
072032 
072132 
072160 



066 i62 
072032 
072132 
072160 



066402 
072072 
072150 
072176 



066426 
072032 
072132 
072160 



245 
246 
24/ 



002752 066446 

002754 072032 

002756 072152 

002760 072160 



248 
249 
250 



002762 066466 

002764 072072 

002766 072150 

002770 072176 



251 
252 
255 



002772 066*^12 
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Emi15 
EHT115 
EDT115 
EFT115 



;ERR0R 116 



EMT116 
EHT1 
EDT1 
EfTi 



; ERROR 117 



EMir 7 
EHT1 
EDT1 
EFTI 



; ERROR 120 



EMT120 
EHTIIS 
EDT115 
EFT115 



; ERROR 121 



EMT121 
EHT1 
EDTl 
EFTI 



; ERROR 122 



EMT122 
EHT1 
EDTl 
EFTI 



.•ERROR 123 



CANT RESET "•SKI" USING 'WSER' 



CANT SET "SKI" USING 'MSER" 



"SKI" SET BY WRONG BIT 



CANT RESE' 'PIP" USING 'MOC" 



CANT SET "PIP" USING 'MOC* 



*M0C" SET BY WRONG BIT 



EriT123 
EHT115 
EDT115 
EFT115 



.•ERROR 124 CANT CLEAR 'tSL" 
E«T'24 



ffih-^f^ POINTER TABLE 

00277^ 072052 
002776 072132 
005000 072160 



254 
?S5 

256 



005002 
005004 
003006 
003010 



257 
258 
25<5 



003012 
0030H 
003016 
003020 



260 
261 
262 



005022 
003024 
005026 
003050 



265 
264 
265 



005052 
005054 
005056 
005040 



266 
267 

268 



005042 
005044 
005046 
005050 



269 
270 
271 



005052 
003054 
003056 
003060 



cV2 
?73 
274 



003062 
005064 



066550 
072052 
072152 
072160 



066550 
072032 
072132 
072160 



066566 
072072 
072150 
0721 76 



066612 
072076 
072152 
072200 



066650 
072076 
072152 
072200 



066646 
072102 
072154 
072202 



066666 
072102 
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EHTI 
EDTI 
EFT1 



; ERROR 125 

EI«1T125 
EHTI 
EDTI 
EFT1 



.•ERROR 126 

EMT126 
EHTI 
EDTI 
EFT1 



;ERROJ- 127 

EMT127 
EHT115 
EDT115 
EFT115 



; ERROR 130 

EMT130 
EHTI 30 
EDT130 
EFT130 



.•ERROR 131 

EMT131 
EHT130 
EDT130 
EFT130 



.■ERROR 132 

EMTr32 
EHT132 
EDT132 
EFT132 



'18L" NOT ZERO IN DIAGNOSTIC MODE 



CANT SET "EeL" USING "DE8L" 



"DE8L" SET BY WRONG BJT 



"IS" NOT CORRECT ACCORDING TO RMDA 



'1ST" NOT CORRECT ACCORDING TO RMDA 



CANNOT INCREMENT SECTOR ADDRESS USING "DEBL 



.•ERROR 133 CANNOT INCREMENT TRACK ADDRESS USING '"DEBL' 

EMT133 
EHT132 



'lUPPSO RK)5/3/2 DSKLS TST 1 
►RROO POINTER TABLE 



003066 072154 
C03070 07220? 



?75 
276 
277 



003072 066706 

003074 072032 

003076 0721 32 

003100 072160 
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EDn32 
FFn32 



bid <y<i7' 



.ERROR 134 



EMT134 
EHT1 
EDT1 
EFT1 



UNUSED BITS OF RMDC NOT ZERO 



278 
279 
260 



003102 
003104 
003106 
003110 



066722 
072032 
072132 
072160 



; ERROR 135 



EMT135 
EHT1 
EDTl 
EFT1 



•VV" NOT RESET BY UNIT READY 



281 
282 
283 



003112 
003114 
003116 
003120 



06674C 
072032 
072132 
072160 



.•ERROR 136 



EMT136 
EHT1 
EDTl 
EFT1 



SE'^IAL NUMBER IS INCONSISTENT 



284 
28S 
286 



003122 
003124 
003126 
003130 



066752 
072032 
072132 
072160 



.-ERROR 137 



EMT137 
EHT1 
EDTl 
EFT1 



CANT CLEAR "GO" BIT 



287 
288 
289 



003132 
003134 
003136 
003140 



066770 
072102 
072154 
072202 



.•ERROR 140 



EMT140 
EHT132 
EDT132 
EFT132 



CANT INCREMENT CYLINDER USING 'T)E8L* 



290 
291 
292 



003U2 
003144 
003146 
003150 



067010 
072106 
072154 
072202 



.•ERROR 141 



EMT141 
EHT142 
EDT132 
EfT132 



CANT RESET ■'L8T" BY WRITING RMDA 



293 
294 
295 



003152 
003154 
003156 



067024 
072106 
072154 



; ERROR 142 



EMT142 
EHT142 
EDT132 



CANT SF' "IBT" JSING 'T)E8L* 



I 

I - 



FRROR POIM^ER T4BLE 

003160 072202 



?96 
297 
298 



003162 
003164 
003166 
003170 



299 
300 
301 



003172 
003174 
003176 
003200 



302 
303 
304 



003202 
003204 
003206 
003210 



305 
?06 
307 



00321;' 
003214 
003216 
003220 



308 
309 
310 



003222 
0'^^??4 
003226 
003230 



311 
312 
313 



003232 
003234 
003236 
003240 



067042 
072032 
0721 32 
072160 



067056 
072032 
0721 32 
072160 



067100 
072112 
072152 
072200 



067122 
072032 
072132 
072160 



067140 
^'72032 
072132 
072160 



067152 
072116 
072150 
072176 



314 
315 
316 



003242 067174 

003244 072052 

003246 0721 32 

003250 072160 
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SEO 007' 



EPn32 



.ERROR 143 



CANT READ ZERO FROM COMP ERROR 



EMT145 
EHT1 
EDT1 
EFTl 



.-ERROR 144 



EMTU4 
EHT1 
EDTl 
EFTl 



.•ERROR 145 



FMT145 
EHT145 
EDn30 
EFT130 



.ERROR 146 



EMT146 
EHT1 
EDTl 
EFTl 



.•ERROR 147 



EHT1 
EDTl 
EFTl 



; ERROR 150 



CANT SET COMP ERROR WITH RMER1 OR RMER2 



COW ERROR DID NOT SET 



CANT SET "GO" BIT 



CANT READ A ONE FROM '7ST" 



"TST" IS INCORRECT FOR THE FUNCTION CODE 



EMT150 
EHT150 
EDT115 
EFT115 



.•ERROR 151 



CANT SET THE "GO" BIT 



EMT151 
EHT1 
EDTl 
EFTl 



r/RMPBO W105/5/2 DSKLS TST 1 
F>«RCA POINTER TABLE 



J 6 

•lACRO V04.00 4-APR-81 01:2A:^5 PAGE 8-15 



317 
318 
319 



003252 
003254 
003256 
003260 



320 
321 
322 



003262 
003264 
003266 
003270 



323 
324 
325 



003272 
003274 
003276 
003300 



326 
327 
328 



003302 
003304 
003306 
003310 



329 
330 
331 



003312 
003314 
003316 
003320 



332 
335 
334 



003322 
003324 
003326 
003330 



335 
336 
337 



003332 
003334 
003336 
003540 



067206 
072032 
072132 
072160 



067222 
072032 
072'' 32 
072160 



067242 
072032 
072152 
072160 



067262 
072032 
072132 
072160 



067300 
072116 
072150 
072176 



067322 
072032 
072132 
072160 



067340 
072116 
072150 
072176 



.ERROR 152 



Emi52 
EHTl 
EDTI 
EFT1 



; ERROR 153 



EMT153 
EHTl 
EDTI 
EFT1 



; ERROR 1 54 



EMT154 
EHTl 
EDTI 
EFT1 



.•ERROR 155 



EMT155 
EHTl 
EDTI 
EFT1 



; ERROR 156 



EriT156 
EHTl 50 
EDT115 
EFTIIS 



.-ERROR 157 



EMT157 
EHTl 
EDTI 
EFT1 



.■ERROR 160 



"DRV NOT THE COMPLEMENT OF "GO* 



EMT160 
EHT150 
EDTn5 
EFTllS 



'GO" RESET EARLY 



"GO" DIDNT RESET ON TIME 



CANT CLEAR CONTINUE 



CONTINUE IS INCORRECT FOR THE FUNCTION CODE 



CANT CLEAR IVC 



IVC IS INCORRECT FOR THE FUNCTION CODE 



CZRMP80 RM05/3/2 DSKLS TST 1 
FRROR POIMTFR T/«LE 



538 
339 
340 



003342 
003544 
003346 
003350 



341 
342 
343 



003352 
003354 
003356 
003560 



067370 
072032 
072152 
072160 



067406 
072032 
0721 32 
072160 



K 6 

PIACW V04.00 4-APR-81 01:24:25 PAGE 8-16 



; ERROR 161 



EMT161 
EHT1 
EDT1 
EFTl 



; ERROR 162 



EMn62 
EHT1 
EDTl 
EFTl 



SEO 007S 



CANT CLEAR LSC 



CA,NT SET LSC 



544 
345 
346 



003562 
005564 
005566 
005570 



547 
348 
549 



005572 
005574 
005576 
005400 



550 
551 
552 



005402 
005404 
005406 
005410 



355 
554 

555 



005412 
005414 
005416 
005420 



067424 
072052 
072152 
072160 



067446 
072032 
072152 
072160 



067470 

000000 
000000 
000000 



067514 
072052 
072152 
072160 



.-ERROR 163 



EMT163 
EHT1 
EDTl 
EFTl 



; ERROR 164 



EMT164 
EHTl 
EDTl 
EFTl 



.•ERROR 165 



EMT165 
0 
0 
0 



; ERROR 166 



EMT166 
EHTl 
EDTl 
EFTl 



COMMAND DECODE WAS ENABLED WJTH COMP ERROR SET 



COMMAND DECODE WAS ENABLED WJTH COMP E .ROR SET 



DECODE DOES NOT SET 



CANT CLEAR OCCUPIED 



356 
357 
358 



003422 067554 

005424 072052 

005426 072152 

005450 072160 



.•ERROR 167 



EMT167 
EHTl 
EDTl 
EFTl 



JLF SET WITHOUT GO BIT 



559 



CZRMPeO RtM05/3/2 DSKLS TST 1 
ERROR POINTER TABLE 



560 
361 



005A3? 067556 

0054 34 072116 

005436 072150 

003440 072176 
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.-ERROR 170 



EHT170 
EHT150 
EDT115 
EFT115 



CANT SET VOLUME VALID 



562 
363 
364 



003442 
005444 
005446 
003450 



365 
566 
367 



003452 
C03454 
003456 
003460 



067570 
072116 
072150 
072176 



067604 

072CV' 
072132 
072160 



; ERROR 171 



EMT171 
EHn50 
EDTIIS 
EFTllS 



; ERROR 172 



Em 172 
EHT1 
EDT1 
EFT1 



ILF IS INCORRECT 



CANT SET OFFSET DIRECTION BIT 



368 
369 
570 



003462 
003464 
003466 
003470 



067622 
072116 
072150 
072176 



.-ERROR 173 



EMT173 
EHT150 
EDT115 
EFT115 



OCCUPIED IS INCORRECT FOR FUNCTION CODE 



371 
372 
373 



00347i? 
003474 
003476 
003500 



067644 
000000 
000000 
000000 



.■ERROR 174 



EMT174 
0 
0 
0 



READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 



3/4 
375 
376 



003502 
003504 
003506 
003510 



577 
378 
379 



003512 
003514 
003516 
005520 



067672 
072032 
072132 
072160 



067710 
072032 
072132 
072160 



; ERROR 175 



EMT175 
EHTl 
EDTl 
EFTl 



.-ERROR 176 



EMT176 
EHTl 
EDTl 
EFTl 



READ IN PRESET OIDNT CLEAR RMOF 



READ IN PRESET DIDNT CLEAR RMDA 



380 
381 



; ERROR 177 



—RESERVED FOR POWER MONITOR BIT FAILURE— 



rZRMPBO RM05/3/2 DSKLS TST 1 
FRROR POINTER TABLE 



MACRO vGi.OO 



582 



003522 
0O352A 
003526 
003530 



585 
58^ 
385 



003552 
00353A 
003536 
003540 



586 
387 
588 



005542 
005544 
C05546 
003550 



589 
590 
591 



003552 
003554 
005556 
003560 



392 
39i 
394 



003562 
003564 
003566 
003570 



395 
396 
397 



003572 
003574 
003576 
003600 



398 
399 
400 



003602 
003604 
003606 
003610 



401 
402 
403 



000000 
000000 
000000 
000000 



067726 
072032 
072132 
072160 



067744 
072032 
072132 
072160 



067762 
072052 
072132 
072160 



070000 
072032 
072132 
072160 



070022 
072032 
072132 
072160 



070042 
072116 
072150 
072176 
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0 
0 
0 
0 



SEO 0077 



; ERROR 200 CANT SET OFFSET MODE BY OFFSET COMMAND 

EMT200 
EHT1 
EDT1 
EFT1 



.•ERROR 201 



EMT201 
EHT1 
EDT1 
EFT1 



.-ERROR 202 



EMT202 
EHT1 
EDT1 
EFT1 



.•ERROR 203 



EMT203 
EHT1 
EDT1 
EFT1 



.•ERROR 204 



EMT204 
EHT1 
EDT1 
EFT1 



.•ERROR 205 



EMT205 
EHT150 
EDT115 
EfT115 



.•ERROR 206 



CANT RESET OFFSET MODE Br RTC COMMAND 



CANT RESET OFD BY RTC COMMAND 



CANT RESET OM BY RMDC 



CANT RESET OM BY E8L 



RUN AND GO NOT CORRECT FOR FUNCTION CODE 



CANT SET lAE ERROR 



CZRMPBO RM05/3/2 OSKLS TST 1 
ERROR POIMTER TABLE 

003612 070062 

0036U 000000 

003616 000000 

003620 000000 
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E«T206 
0 

0 
0 



404 
405 
406 



003622 070112 

003624 072116 

003626 072150 

003630 072176 



407 
408 
409 



003632 
003634 
003636 
003640 



410 
411 
412 



003642 
003644 
003646 
003650 



413 
414 

415 



003652 
003654 
003656 
003660 



416 
417 
418 



003662 
003664 
003666 
003670 



419 
420 
421 



003672 
003674 
003676 
003700 



«.22 
423 
424 



070126 
072072 
072150 
072176 



070144 
072072 
072150 
072176 



070162 
072106 
072154 
072202 



070174 
072122 
072150 
072176 



070224 
072122 
072150 
072176 



; ERROR 207 



EMT207 
EHT150 
EDT115 
EFT115 



; ERROR 210 



EMT210 
EHT115 
EDT115 
EFT115 



.•ERROR 211 



EMT211 
EHT115 
EDT115 
EFT115 



.•ERROR 212 



EMT212 
EHn42 
EDT132 
EFT132 



.•ERROR 213 



EMT213 
EHT213 
EDTn5 
EFT115 



.ERROR 214 



lAE IS INCORRECT FOR FUNCTION CODE 



lAE IS INCORRECT FOR RMDA 



lAE IS INCORRECT FOR RMDC 



CANT SET AOE 



R«R SET WHEN WRITING RMAS OR RMCS 



CANT SET RMR 



003702 070236 



EMT214 
EHT213 
EDT115 
EFT115 



.•ERROR 215 DRQ IS 0 AND PGM IS 1 
EMT215 



fZRMPeO DSKLS TST 1 

FRROft POINTER TABLE 

003704 07203a 
003706 07213? 
003710 072160 



^25 
426 
427 



003712 070256 

0037U 072032 

003716 072132 

003720 072160 



428 
429 
430 



003722 070272 

C03724 072032 

003726 072132 

003730 072160 



431 
432 
433 



003732 070306 

003734 072126 

003736 072156 

003740 072204 



434 
435 
436 



003742 
003744 
0C3746 
003750 



'.37 
4i8 
439 



003752 
003754 
003756 
003760 



440 
441 
442 



003762 
003764 
003766 
003770 



443 
444 
445 



003772 
003774 



070324 
072126 
072156 
072204 



070342 
072126 
072156 
072204 



070360 
072126 
072156 
072204 



070376 
072032 
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ehti 

EDTI 
EFT1 



.ERROR 216 DVA IS WT SET 

EMT216 
EMT1 
EDTI 
EFT1 



.•ERROR 217 DPR IS NOT SET 

EMT217 
EHTI 
EDTI 
EFT1 

.ERROR 220 CANT SET PORT REQUEST BY READING RMCS1 

Ef1T220 
EHT220 
EDT220 
EFT220 

.•ERROR 221 CANT SET PORT REQUEST BY WRITING RMAS 

EMT221 
EHT220 
EDT220 
EFT220 

.■ERROR 222 CANT SET PORT REQUEST BY WRITING RMDA 

EHT220 
EDT220 
EFT220 

;fRROR 223 CANT RhSET PORT REQUES" BY RELE^SE COMMAND 

EMT223 
EHT220 
EDT220 
EFT220 



.•ERROR 224 CANT CLEAR ATA 3Y RMAS 

EMT224 
EHTI 



SEO 007V 



'^JWMPBO RM05/5/2 DSKLS TSI 1 
FftROR POINTER TABLE 



003776 072132 
004000 072160 



447 
448 



004002 
004004 
004006 
004010 



4<*9 
450 
451 



004012 
004014 
004016 
004020 



452 
453 
454 



004022 
004024 
004026 
004030 



455 
456 
457 



004032 
004034 
004036 
004040 



458 
459 
460 



004042 
004044 
004046 
U04050 



461 
462 
463 
464 



004052 
004054 
004056 
004060 



465 
466 
467 



004062 
004064 



070416 
072032 
072132 
072160 



070440 
072032 
072132 
072160 



070456 
072032 
072132 
072160 



070474 
072032 
072132 
072160 



070512 
072032 
072132 
072160 



070526 
072122 
072150 
072176 



0705 5C 
072116 
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EDT1 
EFTI 



.-ERROR 225 



EMT225 
EHT1 
EDT1 
EFTI 



; ERROR 226 



EMT226 
EHT1 
EDT1 
EFTI 



.•ERROR 227 



EMT227 
EHT1 
EDT1 
EFTI 



; ERROR 230 



EMT230 
EHT1 
EDTI 
EFTI 



; ERROR 231 



EMT231 
EHT1 
EDTI 
EFTI 



.ERROR 232 



EMT232 
EHT213 
EDT115 
EFT115 



ATA IS RESET BUT RMAS NOT ZERO 



CANT RESET ATA BY GO 



ATA NOT SET BY UNIT READY 



ATA NOT SET BY UNIT READY 



ATA NOT SET BY COMP ERROR 



ATA SET/DID NOT SET WHEN REGISTER WRITTEN 
WHILE COMP ERROR WAS SET 



.•ERROR 233 ATA NOT SET BY COMMAND SEQUENCER 

EMT233 
EHT150 



CZRMPBO RM05/5/2 DSKLS TST 
FRROR POINTER TABLE 



004066 
004070 



468 
469 
470 



004072 
004074 
004076 
004100 



471 

472 
473 



004102 
004104 
004106 
004110 



474 
475 
476 



004112 
004114 
004116 
004120 



477 
478 
479 



004122 
004 1?4 
004126 
004130 



480 
481 
482 



004132 
004134 
004136 
004140 



483 
484 
485 



00414? 
004144 
004146 
004150 



486 
487 
488 



004152 
004154 
004156 



072150 
072176 



070572 
072116 
072150 
072176 



070620 
072032 
072132 
072160 



070640 
072072 
072150 
0721 76 



070672 
072032 
072132 
072160 



070672 
072116 
072150 
072176 



070736 
072032 
072132 
072160 



070762 
072032 
072132 
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E0Tn5 
EFT115 



; ERROR 234 



EMT234 
EHT150 
EDT115 
EFT115 



.-ERROR 235 



EriT235 
EHT1 
EDT1 
EFT1 



.•ERROR 236 



EMT236 
EHT115 
EDT115 
EFni5 



.-ERROR 237 



EMT237 
EHT1 
EDTl 
EFT1 



; ERROR 240 



EMT237 
EHT150 
EDTIIS 
EFT115 



; ERROR 241 



WLE INCORRECT ACCORDING TO FLECTION CODE 



CANT CLEAR EXCEPTION 



CANT SET EXCEPTION 



CANT CLEAR IVC 



CANT SET IVC 



OPJ NOT SET DURING RE CALIBRATE 



EMT241 
EHT1 
EDTl 
EFT1 

;ERROR 242 RECALIBRATE DID NOT ABORT WHEN DRWE FAULT SET 

EMT242 

EHT1 

EDTl 



CZRMPBO W105/3/2 DSKLS TST 1 
ERROR POINTER TABLE 
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SEO 008; 



004160 072160 



489 
490 
491 
492 



004162 
004164 
004166 
004170 



493 
494 
495 



004172 
004174 
004176 
004200 



496 
497 
498 



004202 
004204 
004206 
004210 



071006 
072032 
072132 
072160 



071032 
072032 
072132 
072160 



071050 
072052 
072132 
072160 



EFT1 



; ERROR 243 



Em243 
EHT1 
E0T1 
EFT1 



; ERROR 244 

EMT244 
EHT1 
EDT1 
EFT1 



.-ERROR 245 

EMT245 
EHT1 
EDT1 
EFT1 



OPI SHOULD HAVE SET BECAUSE ON CVLlNOER NE»/ER 
DROPPED DURING RECALIBRATE 



ATA NOT SET DURING RECALIBRATE 



GO RESET EARLY DURING RECALIBRATE 



499 
500 
501 



004212 
004214 
004216 
004220 



071066 
072032 
072132 
072160 



; ERROR 246 



EMT246 
EHT1 
EDT1 
EFT1 



GO NOT RESET DURING RECALIBRATE 



502 
503 
504 



004222 
004224 
004226 
004230 



071112 
072032 
072132 
072160 



.•ERROR 247 



EMT247 
EHTl 
EDTl 
EFTl 



INCORRECT TAG BUS DURING RECALIBRATE 



505 
506 
507 
508 



004232 
004234 
004236 
004240 



071130 
072032 
072132 
072160 



; ERROR 250 



EMT250 
EHTl 

EDTl 
EFTl 



OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT 
READY DROPPED 



509 
510 
511 



004242 
004244 



071154 
072032 



.•ERROR 251 



EMT251 
EHTl 



SEEK DID NOT ABORT WHEN DRIVE FAULT SET 



F 7 
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FRROR POINTER TABLE 
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00A246 072132 
004250 072160 



5'. 2 
513 
5U 
515 



004252 
004254 
004256 
004260 



516 
517 
518 



004262 
004264 
004266 
004270 



019 

520 



i21 



004272 
004274 
004276 
004300 



522 
523 
524 



004302 
004304 
004306 
004310 



525 
526 
527 



004 5 V 
004314 
004316 
004320 



528 
529 
550 



004322 
004324 
004326 
004330 



531 
532 
533 



004332 
004334 



071200 
072032 
072132 
072160 



071224 
072032 
072132 
072160 



071242 
072032 
072132 
072160 



071260 
072032 
072132 
072160 



071304 
072032 
072132 
072160 



071322 
072032 
072132 
072160 



071346 
072032 



EDTI 
EFTl 



.•ERROR 252 



EMT252 
EHT1 
EDTI 
EFT1 



.-ERROR 253 

EMT253 
EHTI 
EDTI 
EFT1 



.-ERROR 254 

EMT254 
EHTI 
EDTI 
EFT1 



; ERROR 255 

EMT255 
EWT1 
EDTI 
EFT1 



.•ERROR 256 

EMT256 
EHTI 
EDTI 
EFT1 



.-ERROR 257 

EMT257 
EHTI 
EDTI 
EfTI 



.-ERROR 260 

EMT260 
EHTI 



DPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEE< 



ATA NOT SET DURING SEEK 



GO RESET EARLY DURING SEEK 



GO DID NOT RESET DURING SEEK 



INCORRECT TAG BUS DURING SEEK 



OPI NOT SET DURING SEARCH 



SEARCH DID NOT ABORT WHEN DRIVE FAULT SET 



'7PWPB0 W05/3/2 DSHLS TST ^ 
FRRrjp POINTER TABLE 
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SEO 



004336 072132 
004340 072160 



554 
535 
536 
537 



004342 
004344 
004346 
004350 



538 
559 
540 



004352 
004354 
004356 
004360 



071372 
072032 
072132 
072160 



071416 
072032 
072132 
072160 



541 
542 
545 



004362 071434 

004364 072032 

004366 072132 

004370 072160 



544 
545 
546 



004372 
004374 
004376 
004400 



547 
548 
549 



004402 
004404 
004406 
004410 



550 
551 
552 



004412 
004<i14 

004416 
004420 



553 
554 
555 



004422 
004424 



071452 
072032 
072132 
072160 



071476 
072032 
072132 
072160 



071514 
072032 

072'' 32 
072160 



071532 
072032 



EDT1 
EFT1 



.-ERROR 261 



EMT261 
EHT1 
EDT1 
EFT1 



: ERROR 262 

EMT262 
EHT1 
EDT1 
EFT1 



; ERROR 263 

EMT263 
EHT1 
EDT1 
EFT1 



.-ERROR 264 



OPl SHOULD HAVE SET BECAUSE ON CVLlNDER MEvER 
DROPPED DURING SEARCH 



ATA NOT SET DURING SEARCH 



GO RESET EARLV DURING SEARCH 



GO DID NOT RESET DURING SEARCH 



EMT264 
EHT1 
EDT1 
EFT1 

; ERROR 265 SEARCH ENABLE DIDNT SET DURING SEARCH 

EMT265 
EHT1 
EDT1 
EFT1 



; ERROR 266 



INCORRECT TAG BUS DURING SEARCH 



EMT266 
EHT1 
EDT1 
EFT1 



.-ERROR 267 OPl NOT SET BY SEARCH TIMEOUT 

EMT267 
EHT1 



'ZR^^PBO DSKLS TST 1 

FRROR POINTER TABLE 



004426 072132 
004430 072160 



556 
557 
558 



004432 
004434 
004436 
004440 



559 
560 
561 



004442 
004444 
004446 
004450 



562 
563 
564 



004452 
004454 
004456 
004460 



565 
566 
567 



004462 
004464 
004466 
004470 



568 
569 
570 



004472 
004474 
004476 
004 SOO 



571 
572 
573 



00450? 
004504 
004506 
004510 



574 
575 
576 



004512 
004514 
004516 



071546 
072032 
072132 
072160 



071572 
072032 
072132 
072160 



071616 
072032 
072132 
072160 



071634 
072032 
072132 
072160 



071652 
072032 
072132 
072160 



071670 
072032 
072132 
072160 



071710 
072032 
072132 
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EDT1 
ff T1 



btO \Ju6'. 



; ERROR 270 



OPI NOT SET DURING DATA COMMAND 



EMT270 
EHT1 
EDT1 
EFT1 



; ERROR 271 



DATA COMMAND DID NOT ABORT WHEN DRIVE f AJLT SET 



EMT271 
EHT1 
EDT" 
Ef T1 

.-ERROR 272 E8L RESET EARlV DURING DATA .COMMAND 

EMT272 
EHT1 
EDT1 
EFT1 

I 

.•ERROR 273 E8L DIDNT RESET ON TIME DURING DATA COMMAND 

EMT273 
EHT1 
EDT1 
EFT1 



; ERROR 274 



GO NOT RESET DURING DATA COMMAND 



EMT274 
EHT1 
EDT1 
EFT1 



; ERROR 275 



RUN AND GO NOT SET DURING DATA COMMAND 



EMT275 
EHT1 
EDT1 
EFT1 



; ERROR ?76 



INCORRECT TAG BUS DURING DATA COMMAND 



EMT276 

EHT1 

EDTl 



/H»1PB0 RM0S/V2 DSKLS TST 1 
fRKiOfi POI^tfR TABLE 



0(KS20 072160 



S77 
S7<J 
579 
580 



0OAS2? 
004,524 
004526 
O0A53O 



581 
582 
58? 



00A532 
004534 
004536 
004540 



584 
585 
586 



004542 
004544 
004546 
004550 



587 
588 
589 



071 726 
072032 
072132 
072160 



071752 
072032 
072132 
072160 



071776 
072032 
072132 
072160 



004552 072014 

004554 072032 

004556 072132 

004560 072160 
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EFTl 



; ERROR 277 



DPI NOT SET DURING DATA COMnAND WHEN GN 
CYLINDER DIDNT DROP 



^m277 
EHT1 
EDT1 
EFT1 

;ERR0R 300 DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET 

EMT300 
EHT1 
EDT1 
EfTI 



; ERROR 301 



SEARCH NOT ENABLED DURING DATA COMMAND 



EMT301 
EHTl 
EDT1 
EFTI 



; ERROR 302 



READ IN PRESET DIDNT CLEAR RMDC 



590 



EMT302 
EHTl 
EDT1 
EFTI 

;PUT ERROR TABLE HERE 



'•ZRMP80 RH05/3/2 DSKLS TST 1 
FRROP POINTER TABLE 
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J 7 

4-APR-81 01:24:25 PAGE 9 



SEO 008' 



1 






•THIS ROUTINE 


HANDLES UNEXPECTED 


TIMEOUTS 


2 
3 


00^.562 


011600 


BADTMO: NOV 


(SP),RO 


;SAVE PC WHERE THE TIME OUl OCCURED 




004564 


005740 


TST 


-(RO) 


•ADJUST PC -2 


5 


004566 


022626 


CMP 


(SP)*.(SP)* 


;RESTORE STACK POINTER 


6 


004570 


104401 004576 


TVPE 


.65$ 


:;TYPE ASCI2 STRING 




004574 


000417 


BR 


64 S 


•;GET OVER THE ASCI 7 



004634 

7 004634 

8 004636 

9 004640 
10 

n 

12 
13 

14 004642 

15 004650 
16 

17 C04652 

18 004656 

19 004660 

20 004664 

21 004666 
22 

23 

004670 
004674 
004676 
004702 
004704 

004710 
004716 
004724 
004732 
004740 
004746 
004754 
004762 
004770 
004776 
005002 
005006 
005014 
005022 



005030 
005034 
005042 
005050 
005056 
005064 



010046 
104402 
000240 



012737 
000402 

005037 
000240 
005227 
001375 
000005 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



001330 
000000 



001114 

001154 

001100 

056100 
000340 
057020 
000340 
062054 
000340 
062162 
000340 
053656 
001206 
001210 
000001 
005014 
005022 



013746 000004 

012737 005070 

012737 177570 

012737 177570 

022777 \77777 
001012 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
053650 



001131 
001122 
001124 



000004 
001154 
001156 
174070 



;;65$: 
64S: 



ASCIZ <CRLF>/UNEXPEC^ED BUS TIMEOUT. PC=/ 

RO,-(SP) .-SETUP FOR TYPING OUT PC 



MOV 
TYPOC 
NOP 



.S8TTL START OF PROGRAM 



-[77777 001330 START 1 



MOV 
BR 



START: CLR 
START2: NOP 
INC 
BNE 
RESET 



*-1 .CHGADR 
START2 

CHGADR 

#0 
.-4 



;r-UT 'HALTCO)' INSTRUCTION MERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 



.-CHANC^ RH/RM BUS ADDRESS 



;N0 CHANGE IN ADDRESS 

TTY LOOP. WAIT FOR INCREMENT 
OF WORD 

RESET THE WORLD 



.S8TTL 

;; CLEAR 

MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CI R 
MOVB 
MOV 
MOV 



INITIALIZE 
THE COMMON 



THE COMMON TAGS 
TAGS (SCMTAG) AREA 



LOCATION TO BE CLEARED 
MEMORY LOCATION 



*$CMTAG.R6 ;; FIRST 

(R6)* ;; CLEAR 

*SWR.R6 .-.-DONE? 
.-6 ;;LOOP BACK IF NO 

#STACK.SP ; .-SETUP THE STACK POINTER 

FEW VECTORS 

#SSCOPE.a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
*340,a#I0TVEC*2 .-.-LEVEL 7 

/(r$ERR0R,a4fEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340,arEHTVEC*2 ; .-LEVEL 7 

#$TRAP,»rTRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,a*TRAPVEC+2;LEVEL 7 



#$PWRDN.arPWRVEC 
#340.arPWRVEC+2 
$ENOCT,$EOPCT 
STIMES 
$E SCAPE 
#1.$ERMAX 
*.,$LPADR 
*..$LPERR 



.-POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



.-.-SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



005066 000403 



.-.-EQUAL TO A "-1", SETUP FOR A 

MOV a#ERRVEC,-(SP) 

MOV #64S,a«ERRVEC 

MOV *DSWR,SWR 

MOV *DDISP. DISPLAY 

CMP *-1.SSWR 

BNE 66S 

BP ^5$ 



SOFTWARE SWITCH REGISTER. 
;SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
:AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
;8RANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT - -1 
;8RANCH IF NO TIMEOUT 



CZRMPBO RM05/3/^ DSKLS TST 1 
INIMALIZE THE COMMON TAGS 



MACRO V(K-00 
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SEO 0O8b 



2^ 
25 
26 
27 
28 



005070 
005074 
005076 
005104 
005112 

005116 
005122 
005130 
005132 
005140 

005 UO 
005146 



005154 
005160 
005162 
005170 
005172 
005176 

005252 

005252 
005256 
005260 
005266 
005270 
005276 
005300 
005302 
005304 
005312 

29 
30 
31 
32 

33 005312 

34 C05316 

35 005324 

36 005326 

37 005334 

38 005342 

39 005344 

40 005350 

41 005354 

42 005356 
005362 



005410 

43 005410 

44 005412 

45 005416 

46 005420 



012716 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 



012737 
012737 



005227 
001034 
022737 
001430 
104401 
000425 



005737 
001012 
123727 
001406 
023727 
001005 
104407 
000403 
112737 



005076 

000176 
000174 
000004 

001230 
000200 

001244 



004562 
000300 



177777 
054020 
005200 

000042 
001242 
001 1 54 



001154 
001156 



001243 
001154 



000004 
000006 



000042 



000001 
0001 76 



000001 001150 



64S: 
65$: 
66$: 



67$: 



MOV 
RTI 
MOV 
MOV 
MOV 

CLR 
BJT8 
BEO 
MOV 



#65$. (SP) 



;;SET UP FOR TRAP RETURN 
;;POINT TO SOFTWARE SWR 



#SyREG.SWR 
#D J SPREG. DISPLAY 

(SP)*.arERRVEC ; .-RESTORE ERROR VECTOR 



$PASS 

#APrSIZE.$ENVM 
67$ 

#$SUREG.SUR 



;; CLEAR PASS COUNT 
;;TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SUITrH 
;;NO.USE APT SWITCH REGISTER 



■SETUP •7IME0UT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV /(eADTMO.ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
MOV #PR6,ERRVEC*2 ;LEVEL 6 



.S8TTL 
;;TYPE 



;;69$: 

68$: 

.S8TTL 



TYPE PROGRAM NAME 

THE NAME OF THE PROGRAM 

INC #-1 

BNE 68$ 

CMP »$ENDAD.a»42 

BEO 68$ 

TYPE .69$ 

BR 68$ 

.ASCIZ <CRLF>aCZRMP80 



IF FIRST PASS 

.-.FIRST TIME? 

; .-BRANCH IF NO 

;;ACT-11? 

; .-BRANCH IF YES 

;;TYPE ASCIZ STRING 

;;GET OVER THE ASCIZ 
- RM05/3/2 DISKLESS TEST. PT ia<CRLF> 



GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


TST 


a#42 


.-.•ARE WE RUNNING UNDER XXDP/ACT? 


BNE 


70$ 


; .-BRANCH IF YES 


CMPB 


$ENV,#1 


;.-ARE WE RUNNING UNDER APT? 


BEO 


70$ 


.-.-BRANCH IF YES 


CMP 


SUR.^SUREG 


;; SOFTWARE SWITCH REG SELECTED? 


BNE 


71$ 


; .-BRANCH IF NO 


GTSWR 




.-.-GET SOFT-SWR SETTINGS 


BR 


71$ 




MOVE 


#1.$AUT08 


.-.-SET AUTO-MODE INDICATOR 



70$: 
71$: 

.THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE; 
;PAPER TAPE (MANUAL). ACT11. XXDP CHAIN OR DUMP 



005037 


001332 






CLR 


122737 


000016 


000041 




CMP8 


001160 








BNE 


013737 


000040 


001332 




MOV 


122737 


000007 


001332 




CMPB 


103002 








BHIS 


105037 


001332 






CLR8 


005737 


000042 




1$: 


TST 


001425 








BEO 


104401 


005364 






TYPE 


000412 






;;73$: 
72$: 


BR 

.ASCIZ 


005046 








CLR 


113716 


001332 






M0V8 


104403 








TYPOS 


001 








.BYTE 



XXDP 

*i6,a#4i 

5$ 

a#40.XXDP 

*7.XXDP 

1$ 

XXDP 

a#42 

3$ 

,73$ 

72$ 

<CRLf>/N0T 

-(SP) 
XXDP. (SP) 

1 



; CLEAR 'XXDP* LOAD DEVICE STORAGE 
; LOADED FROM AN RM05/3/2 ? 
; BRANCH IF NOT 

;GET DEVICE INDICATOR AND NUMBER 
;IS IT A VALID NUMBER ? 
YES 

;N0. DEFAULT TO DRIVE 0 
; CHAIN MODE OR ACT11 AUTO ACCEPT ? 
;8R IF NEITHER 
.-TYPE ASCIZ STRING 
j.-GET OVER THE ASCIZ 
TESTING DRIVE / 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 



ZRMPBO RM05/3/2 DSKLS TST 1 MACRO VOA.OO 
OfT VALUE FOR SOFTWARE SWITCH REGISTER 



L 7 
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A7 005421 

48 005422 

49 005426 
50 

51 005430 

52 005434 

55 005456 
005442 

005464 
54 005464 
35 005466 

56 005472 

57 005474 

58 005475 

59 005476 
005502 

005566 

60 COS 566 
005572 

005666 

64 

65 005666 

66 005672 

67 005676 

68 005700 
69 

70 

71 005706 

72 005706 

73 005714 
74 

75 005716 

76 005720 

77 005724 
78 

79 005730 

80 005736 

81 005740 

82 005744 
005746 
005750 
005751 

83 005752 
84 

85 005756 

86 005764 

87 005770 

88 005774 

89 006002 

90 006004 

91 006012 

92 006014 

93 006022 

94 006026 



000 
104401 
000517 

005227 
001114 
104401 
000410 



005046 
113716 
104403 
001 
000 
104401 
000431 



104401 
000435 



005057 
005737 
001561 
012737 



132737 
001146 

005001 
013700 
104401 

136137 
001531 
104401 
010146 
104403 
002 
000 
104401 

012760 
010160 
005760 
032760 
001051 
032760 
001450 
012737 
016002 
022702 



001217 

M7777 
005444 



001332 
005504 
0C5574 

001326 
000042 

000377 001300 
000200 001243 



001276 
063234 

063516 

001217 



063410 

000040 
000010 
000012 
010000 

004000 

063252 
000026 
020025 



.aiTTE 0 
TYPE .SCRLF 
BR 5$ 



.-SUPRESS LEADING ZEROS 
; CR-LF 

.■GET NUTBEft OF DRIVES 



3$: 



;;75$: 

74$: 



;;77$: 
76$: 



;;78$: 
5$: 

.•CHECK 



INC 
BNE 
TrPE 
BR 

.ASCIZ 

CLR 

M0V8 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

FOR AUTO 
CLR 
TST 
6EQ 
MOV 



#-1 .-FIRST TIME THRU HERE ? 

5$ ;N0 
.75$ .-.TYPE ASCIZ STRING 

74$ ;;GET OVER THE ASCIZ 

<CRLF>/TO TEST DRIVE / 

-(SP) .-CLEAR WORD ON STACK 

XXDP.(SP) .-GET DRIVE ADDRESS 

.-TYPE DRIVE ADDRESS 
1 .-ONLY 1 CHARACTER 

0 .SUPRESS LEADING ZEROS 

.77$ .-.-TYPE ASCIZ STRING 

76$ .-.-GET OVER THE ASCIZ 

/. HALT PROGRAM. REMOVE RRDP PACK AND REPLACE IT/<lRLF> 

.78$ .-.-TYPE ASCIZ STRING 

5$ ;;GET OVER THE ASCIZ 

/WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF 



MODE OR STANDALONE 



AUTSIZ 

STANDALONE 
«77. $DEVM 



LET AUTO DRIVE SIZING OCCUR 
RUNNING IN AUTO MODE ? 
8ft IF NO 

SET DEVICE MAP FOR ALL DRIVES 



.PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 

81 T8 *8IT7.$ENVM .-SIZING ALLOWED ? 
BNE 12$ ;N0 



001300 1$: 



000010 

000010 
000000 
006220 



CLR 
MOV 
TYPE 

81 T8 

8EQ 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 
MOV 
TST 
BIT 
BNE 
BIT 
BEO 
MOV 
MOV 
CMP 



Rl 

$SASE,RO 
.SYSTAT 

ATNT8L(R1),$DEVM 



.-START FROM DRIVE 0 
.-LOAD THE BASE ADDRESS 
.•TYPE 'UNIT STATUS:' 



11$ 
.$CRLF 
R1,-(SP) 

2 
0 

.8LNKS4 

#CLR.RMCS2(R0) 

R1,RMCS2CR0) 

RnDS(RO) 

#NED.RMCS2{R0) 

3$ 

*DVA,RMCS1 (RO) 
4$ 

#$RM02,10$ 

RMDT(R0).R2 
#20025, R2 



;IS DEVICE PRESENT IN MAP ? 
;8ft IF NO 
; CR-LF 

.-.-SAVE Rl FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 2 DIGIT(S) 
.-.-SUPPRESS LEADING ZEROS 
.TYPE 4 BLANKS 

.-CLEAR MASS BUS 
;LOAD THE DRIVE ADDRESS 
.•ACCESS DRIVE REGISTER 
;IS DRIVE PRESENT ? 
;8R IF NO 

;IS DRIVE AVAILABLE ? 
;8R IF NO 

.-ASSUME RM02 DEVICE 

.-SAVE DRIVE TYPE REGISTER IN R2 

.-SINGLE PORT RM02 ? 



CZRMPBO RH05/3/2 DSKLS TST 1 MACRO VW.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



4-APR-81 



9S 
96 
97 
98 
99 
100 
101 
102 
103 
lOA 
ICS 
106 
107 
108 
109 
110 

m 

112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
HO 
K1 
U2 
U3 



006032 
006034 
006040 
006042 
006050 
006054 
006056 
006062 
006064 
006072 
006076 
006100 
006104 
006106 
006112 
006114 
006122 
006124 

C06126 
0061 32 

006134 
006140 
006144 
006146 
006154 

006156 
006162 

006164 

0061 70 
006172 
006176 
006200 
006204 

006206 
006212 
006216 
006220 

006222 
006224 
006230 

006232 
006236 



001430 
022702 
001425 
012737 
022702 
001417 
022702 
001414 
012737 
022702 
001406 
022702 
001403 
104401 
000443 
032760 
001415 
000417 

104401 
000402 

104401 
005737 
001026 
146137 
000422 

104401 
000413 

005737 
001406 
123701 
001360 
104401 
000755 

104401 
104401 
104401 
000000 

005201 
020127 
003637 

104401 
000137 



024025 

063257 006220 
020024 

02A024 

063264 006220 
020027 

024027 

063271 



063327 



063344 
001326 

063516 001300 



063363 

001332 

001332 
063312 



063374 
063412 



000007 



001217 
006724 





BcQ 




CMP 




BcQ 




nfjy 




CMP 




BcQ 




CMP 








■ATM / 

MOV 




CMP 




bcU 




LMr 




6EQ 




TYPE 






2$: 


BIT 




BEQ 




BR 


5*: 


T VDC 

1 Trt 




DD 

BR 


4S: 


TYPE 


cc • 
3* ■ 


TC T 




BNE 




BICB 




QD 


6»: 


1 Tr't 




DD 


7$: 


TST 




BEQ 








out 




T VDC 

1 Trt 




BR 


sc • 

o» . 


T VPC 


y» r 


TVDC 
1 TKC 




TYPE 


10$: 


.WORD 


1 1t- 






CMP 




BLE 


12$: 


TYPE 




JMP 
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2$ ;8R IF YES 

#24025. R2 .DUAL PORT RMO*' ' 

2$ ;8fi IF YES 

#$ftM03.10$ .ASSUME RM03 DEVICE 

#20024, R2 .-SINGLE PORT RM03 ■> 

2$ ;8fi IF YES 

#24024, R2 .DUAL PORT RM03 ? 

2$ ;8R IF YES 

#$ftM05.10$ .-ASSUME RM05 DEVICE 

#20027. R2 .-SINGLE PORT RM05 ' 

2$ ;8R IF YES 

#24027. R2 .-DUAL PORT RM05 ? 

2$ ;BR IF YES 

.NOTRM .-DRIVE NOT AN RM05/3/2 

11$ .-CHECK NEXT DRIVE 
#MOL.RMDS(RO) ;IS MEDIUM ON LINE ? 

6S :BR IF NO 
7$ 

,NOTPRS .-DRIVE NOT PRESENT 

5$ .-CHECK NEXT DRIVE 

.NOTAVL .-DRIVE NOT AVAILABLE 

AUTSIZ .-AUTO SIZING ON ? 

11$ ;8R IF NO 

ATNTBL(R1).$DEVM .-CLEAR DEVICE FROM BIT MAP 

11$ .-CHECK NEXT DRIVE 

,UNTOFF .-DRIVE OFFLINE 

9$ .-PRINT DRIVE TYPE 

XXDP .LOADED FROM RM80 ? 

8$ ;N0 

XXDP.R1 ;IS THIS THE DRIVE ? 

5$ .-aR IF NO 

,LODEV .-DRIVE IS LOAD DEVICE 

5$ 

.UNTON .-DRIVE ONLINE 

,8LNKS2 .-TYPE 2 BLANKS 

.-PRINT DRIVE TYPE 

0 .-MESSAGE ADDRESS HERE 

R1 .-INCREMENT THE DRIVE ADDRESS 

R1.#7 .-ALL DRIVES ARE CHECKED ? 

1$ .-BRANCH IF NOT 

.$CRLF .-CR-LF 

CMNSTART .-JUMP TO COMMON START 



CZRMPBO Wl05/5/«? DSKLS TST 1 
STANOALUNE INPUT ROUTINES 



1 
2 
3 
A 
5 
6 
7 
8 
9 
10 

n 
1? 

13 
14 

15 



006242 
006242 

006246 
006252 



006254 
006260 
006262 
006266 
006274 

16 006276 

17 006302 

18 006306 

19 0063T0 

20 C06314 

21 006320 
22 

23 

24 006322 

25 006322 

26 006326 

27 006330 

28 006334 
29 

30 
31 
32 



006340 
006340 
33 006344 
006350 
006352 
006356 

36 006360 

37 006364 

38 006366 

39 006374 

40 006376 
006402 
006404 



34 
35 



41 
42 
43 
44 
45 



006412 
006416 

46 006420 

47 006424 

48 006426 

49 006432 
006434 
006440 
006442 

53 006450 

54 006452 

55 006456 

56 006460 



50 
51 
5" 



004737 

005227 
001023 



005737 
001457 
005037 
104401 



104401 
013746 
104402 
104401 
104413 
012637 
001412 
022737 
101403 
104401 
000756 
013737 

104401 
005046 
113716 
104402 
104401 
104413 
012637 
001412 
022737 
101003 
104401 
000755 
11V37 
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.S8TTL STANDALONE INPUT ROUTINES 



SEO 009' 



060470 
U7777 



STANDALONE : 

JSR 

INC 
8NE 



PC.STKINT .-INITIALIZE CONSOLE 

#-1 .-FIRST TIME THRU HERE 

2S ;8R IF NO 



.-SEE IF OPERATOR yANTS HELP TEXT 



104401 


062624 


TYPE 


.MSHELP 


•WANT HELP ? 


104411 




RDCHR 




•GET RESPONSE 


012637 


001 1 76 


MOV 


(sp)+.$TMPi ; 

$TMP1.#'Y 


•SAVE AND ECHO RESPONSE 


123727 


001176 000131 


CMP8 


•WAS IT A YES RESPONSE ? 


001005 




8NE 


IS 


;N0 


104401 


001 1 76 


•TYPE 


.$TMP1 


;TYPE 'Y* 


104401 


104312 


»TYPE 


.HELP 


;YES - TYPE HELP TEXT 


000414 




BR 


3f 




104401 


063404 U: 


TYPE 


,N .-TYPE 'N' 


104401 


001217 


TYPE 


.SCRLF 


; CR-LF 


000407 




BR 


3$ 


1 



001330 

001330 
001217 



062655 
001276 

063412 

001176 

160000 

062665 

001 1 76 

062727 

001272 

063412 

001 1 76 

001000 

062736 

001176 



.-SEE IF USER WANTS TO CHANGE UNI8US ADDRESS 
2$: 

TST CH6ADR 
BEQ 7$ 
CLR CH6ADR 
TYPE .SCRLF 



CHANGE RH/RM BUS ADDRESS ? 
8R IF NO 

NO CHANGE NEXT TIME 
CR-LF 



.-DIALOGUE TO CHANGE THE UNI8US ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY 
^$: 



001176 



001276 



4$: 
5S: 



001 1 76 



001272 6$: 



TYPE 


.CNSLOl 


TYPE CURRENT BUS ADDRESS 


MOV 


$aASE.-(SP) 


-.-SAVE $8ASE FOR TYPEOUT 


TYPOC 


;G0 TYPE—OCTAL ASCI I (ALL DIGITS) 


TYPE 


.8LNKS2 ', 


•TYPE 2 BLANKS 


RDOCT 




•GET NEW BUS ADDRESS 


MOV 


(SP)*,$TMP1 


CARRIAGE RETURN ? 


BEQ 


5$ 


YES-SKIP TO NEXT ENTRY 


CMP 


*1 60000, STMPl 


•BASE ADDRESS IN I/O PAGE ? 


BLOS 


4S 


■YES 


TYPE 


.CNSL02 


•TYPE WARNING MESSAGE 


BR 


3$ 


•TRY AGAIN 


MOV 


$TMP1.$8ASE 


-STORE NEW BUS ADDRESS 


TYPE 


.CNSL03 




CLR 


-(SP) 




M0V8 


SVECTi (SP) .-GET CURRENT VECTOR ADDRESS 


TYPOC 






TYPE 


,8LNKS2 


;TYPE 2 BLANKS 


RDOCT 


•GET NEW VECTOR ADDRESS 


MOV 


(SP)*.$TMP1 


■CARRIAGE RETURN? 


BEQ 


7$ 


■YES-SKIP TO NEXT ENTRY 


CMP 


xrlOOO.STMPI 


■VECTOR ADDRESS < 1000 ? 


BHI 


6$ 


■YES! 1 


TYPE 


.CNSL04 


;TYPE WARNING MESSAGE 


BR 


5$ 


,-RETRY 


M0V8 


$TMP1.$VECT1 


; STORE NEW VECTOR ADDRESS 



CZRMPBO RK)5/5/2 DSKLS TST 1 
STANDALONE INPUT ROUTINES 
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61 
62 



57 
58 

59 006466 

60 006472 
006474 
006500 

63 006504 

64 006510 

65 006514 

66 006516 

67 006522 

68 006530 

69 006532 

70 006536 

71 006544 
72 

73 006550 

74 006556 

75 006560 
/6 006564 

77 006572 

78 006574 

79 006602 

80 006604 
81 

82 006606 

83 006610 

84 006614 

85 006622 

86 006624 

87 006630 

88 006634 

89 006642 

90 006644 

91 006652 

92 006654 

93 006660 
94 

95 006662 

96 006666 

97 006672 

98 006700 

99 006706 

100 006710 

101 006714 
10? 006720 



005227 
001002 
104401 
104401 
005037 
104401 
104411 
012637 
023727 
001007 
104401 
012737 
000137 

023727 
001436 
104401 
023727 
002430 
025727 
003427 
000423 

104411 
012637 
025727 
001432 
104401 
104401 
023727 
002404 
021727 
003403 
104401 
000711 

013701 
042701 
156137 
122737 
101337 
005237 
104401 
0001 37 



177777 

062772 
001217 
001300 
063212 

001176 
001176 

062610 
000377 
005706 

001176 

001176 
001176 

001 1 76 



001176 
001176 

062621 
001176 
001176 

001176 

063134 



001176 
1 77770 
063516 
000377 

001326 
001217 
005706 



000101 

001300 

000015 

000060 
000067 

00001 5 

000060 
000067 



001300 
001300 



.-DIALOGUE TO 


71- 


inlL 








TYPF 












TYPE 




RDCHR 




MOV 








BNE 




TYPE 




MOV 




JMP 


10S: 






BEQ 




TYPE 




cnp 




BLT 




cnp 




BLE 




BR 


11$: 


RDCHR 




MOV 




CMP 




BEQ 




TYPE 




TYPE 




CMP 




BLT 




CMP 




BLE 


12$: 


TYPE 




BR 


13$: 


MOV 




BIC 




Bise 




CMP8 




BHI 


14$: 


INC 




TYPE 




JMP 



J 
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SEO 009. 



>UT DEVICE NUMBERS 

#-1 .-FIRST TIME THRU ? 

8$ :BR IF NO 

.CNSL07 ;TYPE imjJ INSTRUCTIONS 

.$CRLF ; CR-LF 

SDEVM .-CLEAR DEVICE MAP 

.MSDRVS .-TYPE 'DRIVECS): * 

(SP)*,$TMP1 ;6ET RESPONSE 

$TMP1 ,#'A ;IS INPUT "A" ? 

10$ :N0 

.ALL ;YES. TYPE "ALL" AND GO 

#377.$DEVM .-SET DEVICE MAP FOR ALL DRIVES 

XSIZ ;AUT0 SIZE. 

$TMP1.*CR ^CARRIAGE RETURN ? 

12$ ;YES 

,$TMP1 .-ECHO RESPONSE 

$TMP1,/r'0 .-NIWBER < 0 ? 

12$ ;YES 

$T«P1.#'7 .-NUMBER > 7 ? 

13$ ;N0 

12$ .-ILLEGAL INPUT 



(SP)+,$TMP1 ;GET RESPONSE 

$TMP1.*CR ; CARRIAGE RETURN ? 

14$ ;YES 

.COMMA ;TYPE * 

,$TMP1 .-ECHO RESPONSE 

$TMP1,#*0 .NUMBER < 0 ? 

12$ .-YES 

$TMP1.#V .-NUMBER > 7 ? 

13$ ;N0 

,CNSL08 .-TYPF " 7JLLEGAL INPUT" 

9$ .-RETRY 

$TMP1.R1 ;R1 - DRIVE NUMBER 
<f*C7 R1 

ATNT8L(R1).$DEVM ;SET DEVICE IN MAP 

#377.$DEVM ;DONE ? 

11$ ;N0 

AUTSIZ ;D0 NOT AUTO SIZE WHEN TYPING DRIVE STATUS 

.$CRLF ; CR-LF 

XSIZ ;60 SIZE DEVICES 



* 



CZRMPBO RHOS/5/2 OSKLS TST 1 
STANDALONE INPUT ROUTINES 
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SEO 0091 



1 
2 
3 

6 

7 



17 



006724 
006724 
006730 
006734 
006736 
006742 

8 006746 

9 006752 
10 C06756 
n 006762 

12 006764 

13 006766 

14 006770 

15 006774 

16 006776 
007000 
007002 
007003 
C07004 

13 007012 

19 007016 

20 007020 
.21 007022 

22 007024 

23 007026 
2'. 007030 
25 007032 
26 

27 

28 007036 

29 007042 

30 007044 
007050 

007100 

31 007100 

32 007104 

33 007106 

34 007112 

35 007116 
36 

37 007120 

38 007122 

39 007126 

40 007130 

41 00713^ 

42 007136 

43 007142 

44 007146 
45 

46 007146 

47 007152 

48 007156 

49 007162 
007166 
007'. 72 



004737 
000425 
104401 
000413 



005737 
001002 
000137 
000137 
000413 

000240 
105737 
001007 
005737 
001002 
000137 
000137 



105037 
005037 
004737 
012746 
012746 
000002 



;ASSE«1BLE TEST 
r«NSTART: 



QUE FROM DEVICE MAP 



104401 


063156 




TYPE 


.DRIVES 


TYPE •DRIVE(S) TO BE TESTED 


013700 


001300 




MOV 


SDEVM.RO 


RO = DEVICE MAP 


001004 






BNE 


1$ 


BR IF DRIVES TO TEST 
TYPE '. ' 
TYPE 'NONE* 


104401 


062621 




TYPE 


.COMMA 


104401 


063205 




TYPE 


.NONE 


012701 


001470 


IS: 


MOV 


#TSTQUE*2.R1 ; 


R1 = ADDRESS OF FIRST ENTRY 


010137 


001466 




MOV 


Rl.TSTQUE ; 


INITIALIZE ENTRY POINTER 


012702 


000001 




MOV 


/rl.R2 ; 


R2 = DEVICE POINTER 


005003 






CLR 


R3 ; 


R3 = DEVICE NiTBER 


030200 




2S: 


BIT 


R2.R0 ; 


IS THIS DEVICE IN MAP ? 


001413 






BEQ 


3$ ; 


NO !I 


104401 


062621 




TYPE 


.COMMA 


TYPE • 

YES - ENTER DEVICE NUMBER I 


010311 






MOV 


R3.(R1) 


010346 






MOV 


R3, -(SP) 


;SAVE R3 FOR TYPE OUT 


104403 






TYPOS 




;G0 TYPE— OCTAL ASCII 


001 






.BYTE 


1 '. 


;TYPE 1 DIGIT(S) 


000 






.BYTE 


0 


.•SUPPRESS LEADING ZEROS 


116361 


063516 000001 




MOVB 


ATNT8L(R3).1(R1). 


ENTER ATTENTION BIT IN QUE 


062701 


000002 




ADD 


#2.R1 


ADVANCE ENTRY POINTER 


006302 




3J: 


ASL 


R2 


ADVANCE DEVICE POINTER 


105702 






TSTB 


R2 


■DONE ALL DEVICES ? 


001402 






BEQ 


4$ 


•YES 


005203 






INC 


R3 


■ADVANCE DEVICE NUMBER 


000756 






BR 


2$ 


•ENTER NEXT DEVICE 


005011 




4S: 


CLR 


(Ri; 


; TERMINATE TEST QUE 


104401 


001217 




TYPE 


.SCRLF 


■TYPE CR-LF 



054040 
007052 

000042 

004652 
054010 

001300 

000042 

004652 
054010 



001116 
001206 
060470 
000000 
0071 74 



.-SIZE 


FOR CLOCK 






JSR 


PC.SIZCLK 




BR 


6$ 




TYPE 


.65$ 




BR 


64$ 


;;65$: 


.ASCIZ 


<CRLF>/NO 'L' 


64$: 








TST 


a«42 




BNE 


5$ 




JMP 


START 


5$: 


JMP 


$GET42 


6S: 


BR 


READY1 


READY: 


NOP 






TSTB 


$DEVM 




BNE 


2$ 




TST 






BNE 


1$ 




JMP 


START 


1$: 


JMP 


$GET42 



2$: 

READY1: CLR8 
CLR 
JSR 
MOV 
MOV 
RTI 



STSTNM 
$TIMES 
PC,$TKINT 
#PRO,-(SP) 
#64$. -(SP) 



SEE IF CLOCK PRESENT 
YES - CLOCK IS PRESENT 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



ANY MONITOR PRESENT ? 

8R IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 



READY TO START TEST 
ANY DRIVES IN MAP ? 
6R IF YES 

ANY MONITOR PRESENT ? 

8R IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 



RESET TEST NUMBER 

INITIALIZE NUMBER OF ITERATIONS 

INITIALIZE TTY 

PUT NEW PS ON STACK 

PUT NEW PC ON STACK 

POP NEW PC AND PS 



CZRMP80 RM05/5/2 
STANDALONE INPUT 



D5ICLS TST 
ROUTINES 



D 8 
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SO 
SI 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 



007174 

007174 117737 172266 001234 



007202 012737 002000 001334 

007210 013700 001276 

007214 012760 000040 000010 

007222 117760 172240 000010 

007230 016002 000026 

007234 042702 177770 

007240 022702 000007 

007244 001003 

007246 012737 011000 001334 



66 






001217 


67 


007254 


104401 


68 


C07260 


104401 


063226 


69 


007264 


01 3746 


001234 




007270 


104403 






007272 


0C2 






007273 


000 




70 


007274 


005004 




71 


007276 


005304 




72 


007300 


001376 




73 


007302 


005304 




74 


007304 


001376 





64S: 



M0V8 



arSTQuE.lUNIT ;L0AD DRIVE N'JMBER 



.•CLEAR MASSauS CONTROLLER. SELECT DRIVE AND DETERMINE THE LAST TRACK 
;0F THE DIFFERENT DRIVE TYf-ES 

ASSUME LAST TRACK FOR RM02/3 - 4. 
RO - UNI8US ADDRESS 
CLEAR MASS8US 

;SELECT DEVICE UNDE« TEST 
GET RMDT AND 
SAVE DRIVE TYPE BITS 
IS IT AN RM05 ? 
NO. MUST BE AN RM02 OR RM03 
YES— SET LAST TRACK = 18. 

;TYPE DRIVE NUMBER TO BE TESTED (SUNIT) 



MOV 


*TA4.LSTRK 


MOV 


S8ASE.R0 


MOV 


*CLR.RMCS2(R0) ; 


M0V8 


aT5TQUE.RMCS2(R0) 


MOV 


RMDT(R0),R2 


BIC 


*1 77770, 


CMP 


*7.R2 


BNE 


3S ; 


MOV 


#TA16!TA2,LSTRK . 



3$: 



-YPE 
TYPE 
MOV 

TYPOS 

.BYTE 

.BYTE 

CLR 

DEC 

BNE 

DEC 

BNE 



,$CRLF 

.MSGDRV 

$UNIT.-(SP) 



2 

0 

R4 

R4 

.-2 

R4 

.-2 



CR-LF 

TYPE 'DRIVE' 
.•SAVE SUN IT FOR TYPE OUT 
.-TYPE DRIVE NUMBER 
;G0 TYPE— OCTAL ASCII 
.•TYPE 2 DI6IT(S) 
.SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED TO 
WAIT FOR TTY 



rZRMPBO RMC5/5/2 DSKLS TST 1 
OEGISTER V4> STORAGE USAGE 



3 
4 
5 
6 
7 

8 

9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
?1 
22 
23 
2A 
25 
26 
27 
28 
29 



hacro V04.00 
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SEO 009S 



S8TTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGAflENTS 



RO 
R1 

R2,R3 

R<i,R5 

R6 
R7 



UNI8US ADDRESS 0^ RH CONTROLLER 

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
UNIT UNDER TEST 

WORKING REGISTERS FOR TEST IN PROGRESS. MUST BE 
SAVED BY SUBROUTINES 

GE^JERAL WORKING REGISTERS. ARE NOT SAVED BY 

SUBROUTINES 

STACK POINTER 

LINKAGE REGISTER TO SUBROUTINES 



STORAGE ASSIGMiENTS 

ST/iF-O-STriPA TEMPORARY STORAGE. NOT SAVED BY SUBROUTINES 
fGDDAT.JBDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
$GDADR.$8DADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 
ALSO THE ADDRESS OF A REGISTER ERROR 



STSTN 
SUNIT 
RGINBF 



R60T8F = 



TEST NUMBER 

NUMBER OF DEVICE BEING TESTED 

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER, AND IS. USED WHEN READING STATMS AND 
CONTROL DATA 

THE REGISTER OUTPUT BUFFER HAS A STORAGE lOCATION FOR 
EACH REGISTER, AND IS USED FOR ASSEMBLING" DATA TO BE 
WRITTEN IN REGISTERS 



'ZR»1PeO RH05/5/2 DSKLS TST 1 
n TRANSFER TEST 



F 8 
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5E0 0096 



4 

5 
6 
7 
I 
9 
10 

n 

12 
13 
U 
1!; 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 































007306 


000004 




SCOPE 




.•SCOPE 


CALL 


007310 


000240 




NOP 






007312 


012706 


001100 


nov 


#STACK.SP 


.-LOAD 


THE STACK POINTER 


007316 


013700 


001276 


MOV 


$8ASE.R0 


;R0 = 


UNIBUS ADDRESS 


007322 


013701 


001466 


MOV 


TS'QUE.Rl 


;R1 = 


POINTER TO DEVICE 


007326 

2 


012737 


000001 001226 


MOV 


*1.$TESTN 


;;SET 


TEST NUMBER IN APT MAIL BOX 


3 007334 


012702 


000000 


MOV 


*0.R2 


;R2 - 


REGISTER INDEX 



007340 
007340 
007344 
007352 
C07360 
007362 
007366 
007374 
007402 
007406 
007414 
007416 



007420 
007420 
007422 
007424 
007426 
007434 

007436 
007442 
007450 
007456 
007460 
007464 
007472 
007500 
007504 
007512 
007514 



007516 
007516 
007522 
007530 



004737 
016037 
032737 
001417 
111137 
042737 
052737 
010037 
062737 
104001 
000475 



010003 
060203 
011304 
032760 
001470 

004737 
016037 
032737 
001417 
111137 
042737 
052737 
010037 
062737 
104001 
000436 



012713 
032760 
001432 



054674 
000010 
010000 

001140 
177770 
000100 
001 1 36 
000010 



001142 
001142 



001140 
001140 

001 1 36 



.•CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV RMCS2(R0).$BDDA'' ;STORE RMCS2 AT $8DDAT 

BIT *NED.$BDDAT 

BEQ 20$ 

M0V8 (R1).$GDDAT 

BIC **CUNTMSK.$6DDAT 

BIS #IR.$GDDAT 

MOV R0.$8DADR 

ADD xrRMCS2,$6DADR 

EMT 1 

BR 60$ 

;READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 

.•DOES NOT SET "TyiED" ERROR 

20$: 



010000 000010 



054674 

000010 
010000 

001140 
177770 
000100 
001136 
000010 



001142 
001142 



001140 
001140 

001136 



MOV 


R0.R3 


;R3 


- REGISTER ADDRESS 


ADD 


R2.R3 






MOV 


(R3).R4 


.•READ REGISTER 


BIT 


#NED,RMCS2(R0) 


;IS 


•NED" SET?? 


BEO 


70$ 


;N0 




JSR 


PC.CNTCLR 


;G0 


CLEAR CONTROLLER 


MOV 


RMCS2(R0).$BDDA- 




.•STORE RMCS2 AT 


BIT 


#NED.$8DDAT 






BEO 


30$ 






M0V6 


(R1).$GDDAT 






BIC 


#*CUrjTMSK.$GDDA" 




BIS 


*IR.$GDDAT 






MOV 


R0.$8DADR 






ADD 


#RMCS2.$BDADR 






EMT 


1 






BR 


60$ 







000000 
010000 



000010 



.•WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
.-DOES NOT SET 'NED" ERROR 
30$: 

;WRITE REGISTER 
IS "NED" SET?? 

;N0! : 



MOV 

BIT 
BEQ 



*0.(R3) 

*NED,RMtS2(R0) 
70$ 



: COULD NOT READ OR WRIIE THE REGISTER WITHOUT SETJNG 'NED" ERROk - 



ZRMPBG RM0S/V2 DSKLS TST 1 
^ TRANSFER TEST 



48 








49 








50 


007532 






51 


007532 


062702 


000002 


52 


007536 


022702 


000002 


53 


007542 


001773 




54 


007544 


022702 


000004 


55 


0075^0 


001 770 




56 


007552 


022702 


000010 


57 


007556 


001 765 




58 


007560 


022702 


000016 


59 


007564 


001762 




60 


007566 


022702 


000022 


61 


007572 


001757 




62 


00^574 


022702 


000046 


63 


007600 


103257 




64 








65 








66 


007602 






67 


C07602 


013737 


0C1276 


68 


007610 


104002 




69 


00761? 


000137 


053564 


70 








71 


007616 






72 








73 
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.-ADVANCE THE REGISTER INDEX 
.AVAILABLE DEVICE REGISTER 
40S: 



AND REPEAT THE TEST FOR THE NEXT 



001 1 36 



50$: 



60$: 
70$: 



ADD 


*2.R2 


ADVANCE TO NEXT REGISTER 


CMP 


#RMUC.R2 


IS THIS RMWC?? 


BEQ 


40$ 


■YES - TRY NEXT REGISTER 


CMP 


*RMBA.R2 


•IS THIS RMBA?? 


BEO 


40$ 


•YES - TRY NEXT REGISTER 


CMr 






BEQ 


40$ 


;YES - TRY ANOTHER REGISTER 


CMP 


/rRMAS.R2 




BEQ 


40$ 


;YES - TRY ANOTHER REGISTER 


CMP 


#RMD8.R2 


;IS THIS RMD8?? 


BEO 


40$ 


;YES - TRY ANOTHER REGISTER 


CMP 


*RMEC2.R2 


;IS THIS A LEGAL REGISTER 


BHIS 


10$ 


;YES - TRY THIS REGISTER 


•rJONEXISTENT DEVICE' ERROR 


fOR EVERY REMOTE REGISTER ADDRESS 


MOV 


$aASE.$8DADR 


.•STORE BASE ADDRESS 


EMT 


2 




JMP 


$E0SP 


;G0 SELECT NEXT DEVICE 



.••TEST 2 



CTOD TEST 



74 
75 
76 
77 
'8 
79 
80 
81 
82 
83 
84 
85 

86 
87 
88 
89 
90 
91 
92 
93 



007616 
00 'M6 
007620 
007622 
007626 
007632 
007636 



007650 
007656 
007664 
007672 



007700 
007704 
007704 
007712 
007720 
007726 
007734 
007736 



007740 



000004 
000240 
•012706 
013700 
013701 
012737 



TST2: 



012760 
012760 
012760 
012760 



001100 
001276 
001466 
000002 



007644 004737 054674 



000076 
177777 
001 777 
016200 



001226 



000000 
000006 
000034 
000032 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 



#STACK.SP 
$8ASE,R0 
TSTQUE.RI 
#2.$TESTN 

PCCNTCLR 



.•SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DfVICE 

;SET TEST NUMBER IN APT MAIL BOX 

;G0 CLEAR CONTROLLER 



.-WRITE ONES IN REMOTE REGISTERS 

MOV #ILF76,RMCS1(R0) ;LOAD RMCS1 

MOV #-1,RMDA(R0) ;LOAD RMDA 
MOV #CYLMSK.RMDC(RO) ;LOAD RMDC 

MOV #*CXNUOF,RMOF (RO) .LOAD RMOF 









;READ 


REMOTE 


REGISTERS TWICE 










012702 


000001 






MOV 


#1,R2 
















10$: 














016037 


000000 


001336 




MOV 


WICSKROKRMCSII 




.•STORE 


RMCS1 


IN INPUT 


016037 


000006 


001344 




MOV 


RMDA (RO), RMDA I 


.■STORE 


RMDA IN 


INPUT 


BUFFER 


016037 


000034 


001372 




MOV 


RMDC (RO), RMDC I 


.•STORE 


RMDC IN 


INPUT 


BUFFER 


016037 


000032 


001370 




MOV 


RnOMR0),RMOFI 


; STORE 


RMOF IN 


INPUT 


BUFFER 


005302 








DEC 


R2 










100362 








BPL 


10$ 
















.SEE 


IF ANY 


ONE BITS CAME BACK 










042737 


177701 


001 336 


6IC 


#*CILF76,RMCS11 


.■IS RMCS1 0?? 







BUFFER 



H 8 



ZfiMPBO KMOS/3/2 DSHLS TST 1 
•? CTOD TEST 



94 007746 

95 007750 

96 007754 

97 007756 

98 007764 

99 007766 
100 0C7774 
101 

102 

103 007776 

104 010000 
105 

106 



001014 

005737 C01344 
001011 

04<;737 17^000 
001005 

042737 161577 
001001 



104003 
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001372 
001370 



SEU 0096 



6NE 


20$ 


•NO 




TST 


RHDAI 


■IS 


RMDA 0?? 


BHE 


20$ 


NO 




BIC 


tXNUDC.RMOCI 


■IS 


RMDC 0?? 


BNE 


20$ 


;N0 




BIC 


#XNUOF.RMOFI 


;is 


PMOF 0 ?? 


BNE 


20$ 


•NO 


1 



.•CANNOT READ/WRITE ANY ONE FROM REMOTE REGISTER 
EMT 3 

20$: 



.-•TEST 3 



MASSeUS INITIALIZE TEST 



107 
106 
109 
110 
111 
112 
113 
114 
lib 
116 
117 
118 
119 
*20 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 



010000 
010000 
010002 
C10004 
010010 
010014 
010020 


000004 
000240 
012706 
013700 
013701 
012737 


0C1100 
001276 
001466 
000003 


001226 


010026 


004737 


054674 




010032 
010040 
010046 


012760 
012760 
012760 


000076 
M7777 
y77777 


OOOOOO 
000014 
000042 


010054 


004737 


054674 




C'0060 
010066 
010074 


016037 
016037 
016037 


OOOOOO 
000014 
000042 


001336 
001352 
001400 



TST3: 



010102 
C10110 
010116 
010124 
010126 
010134 
010136 
010144 



010146 
010150 



052737 
052737 
022737 
001011 
022737 
001005 
022737 
001001 



104004 



1 77701 
001 567 
^77777 

\77777 

^77777 



001336 
001400 
001336 

001352 

001400 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 



//STACK. SP 
$aASE.RO 
TST0UE.R1 
/ir3.$TEbTN 

PC.CNTCLR 



; SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNI8US ADDRESS 

Rl - POINTER TO DEVICE 

;SET TEST NUMBER IN APT MAIL BOX 

;G0 CLEAR CONTROLLER 



.•WRITE ONES IN SELECTED REGISTERS 

MOV *ILF76,RMCS1 (RO) ;LOAD RMCSl 

MOV *-l.PMERl(RO) ;LOAD RMERl 
MOV *-1 .RMER2(R0) ;LOAD RMER2 



.•INITIALIZE MASS8US WITH A CLEAR 



JSR 



PC.CNTCLR 



;G0 CLEAR CONTROLLER 



.•READ THE REGISTERS THAT WERE WRITTEN 
MOV RMCSl (RO). RMCSl I 
MOV RMERl (RO). RMERl I 
MOV RMER2(R0),RMER2I 

;SEE IF ANY REGISTER BITS WERE CLEARED 



STORE RMCSl IN INPUT BUFFER 
STORE RMERl IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 



10$: 



BIS 


**CILF76.RMCS1I 


;SET 


ANY BIT NOT WRITTEN 


BIS 


*XNU£R2.RMER2I 






CMP 


#-1, RMCSl I 


.-ANY 


ZEROS IN RMCSl?? 


BNE 


10$ 


;YES 




CMP 


#-1 .RMERl I 


;ANY 


ZEROS IN RMERl?? 


BNE 


10$ 


;YES 




CMP 


*-1.RMER2I 


;ANY 


ZEROS IN RMER2?? 


BNE 


10$ 






THE 


BITS WERE CLEARED 






EMT 


4 







•TEST 4 



CLEAR STUCK ACTIVE TEST 



;»«hpbo dskls tst 1 hazw v(k.oo 

ClEar stuck active test 



I 8 
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010150 
010150 
010152 
010154 
010160 
010164 
010170 



000004 
000240 
012706 
013700 
015701 
012737 



001100 
001276 
001466 
000004 



001226 



158 










159 


010176 


004737 


054674 




140 










141 










K2 


010202 


012760 


1 77777 


000014 


143 


010210 


012760 


1 77777 


000042 


144 


010216 


012760 


000001 


000024 


14S 










146 










147 


010224 


016037 


000014 


001352 


148 


010232 


016057 


000042 


001400 


149 


010240 


016037 


000024 


001 362 


150 


CI 0246 


042737 


040000 


001352 


1S1 


010254 


001011 






152 


010256 


042737 


040200 


001400 


153 


010264 


001005 






154 


010266 


032737 


000001 


001362 


155 


010274 


001001 






156 


010276 


104026 






157 


010300 








158 










159 











TST4: 



SCOPE 

NOP 

MOV 

nov 

NOV 
NOV 



.-WRITE 



JSR 

ONES 
NOV 
NOV 
NOV 



IN 



#STACIC,SP 
S8ASE.ro 
TST0UE.R1 
#4.$TESTN 

PC.CNTCLR 

TEST REGISTERS 
#-1 .RNER1 (RO) 
#-1.RNER2(R0) 
*DND.RNNR1fR0) 



.SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DEVICE 

.-SET TEST NU^BER IN APT NAIL BOX 

:G0 CLEAR CONTROLLER 



LOAD RNER1 
LOAD RMER2 
LOAD RNNR1 



.•READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 

.-STORE RMER1 
.-STORE RNER2 
.STORE RMMR1 
;D0NT ACCEPT UNSAFE 
;8RANCH IF ANY OTHER BITS ON 
;D0NT ACCEPT SKI OR DVC 
;8RANCH IF ANY OTHER BITS ON 
.-BRANCH IF DMD IS ON 



10$: 



MOV 
MOV 
MOV 
BIC 
BNE 
BIC 
BNE 
BIT 
BNE 
EMT 



RNER1(R0).RMER1I 
RMER2(R0),RMER2I 
RMMR1 (RO).RNMRII 
*UNS.RMER1I 
10$ 

#SKJ !DVC,RMER2I 
10$ 

WMD.RMMRII 
10$ 
26 



IN INPUT BUFFER 
IN INPUT BUFFER 
IN INPUT BUFFER 



;*TEST 5 



TRISTATE TRANSFER TEST 



010300 
010300 
010302 
010304 
010310 
010314 
010320 

160 

161 010326 

162 010330 
163 

164 

165 010334 

166 010342 

167 010350 

168 010356 

169 010364 
170 

171 

172 010372 

173 010400 

174 010406 

175 010414 

176 010422 

177 010430 



000004 
000240 
012706 
013700 
013701 
012737 

005002 
004737 



012760 
012760 
012760 
012760 
012760 



012760 
012760 
012760 
012760 
012760 
012760 



TST5: 



001100 
001276 
001466 
000005 



054674 



000076 
\77777 
^77777 
\77777 
\77777 



000000 
000000 
000000 
000000 
000000 
000000 



001226 



000000 
000006 
00001 4 
000032 
000042 



000000 
000006 
000014 
000032 
000034 
000042 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

CLR 
JSR 



/(fSTACK.SP 
$aASE,RO 
TSTQUE.RI 
#5.$rESTN 

R2 

PC.CNTCLR 



.•SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DEVICE 

.-SET TEST NUMBER IN APT MAIL BOX 

.-CLEAR ERROR FLAGS 
.-GO CLEAR CONTROLLER 



MOV 


♦ILF76.RMCS1(R0) 




.•LOAD 


MOV 


*-1.RMDA{R0) 


;L0AD 


RMDA 


MOV 


#-1.RMER1(R0) 


.-LOAD 


RMER1 


MOV 


#-1 .RNOF (RO) 


:LOAD 


RMOF 


MOV 


#-1.RMER2<R0) 


.-LOAD RMER2 



.•WRITE ZEROS IN SELECTED REGISTERS 



MOV <rO.RMCSl(RO) 

MOV <fO.RMDA(R0) 

MOV <r0,RMERl (RO) 

MOV #0.RMOFfR0) 

MOV <rO,RMDC(RO) 

MOV *0.RMER2(R0) 



LOAD RMCS1 
LOAD RMDA 
LOAD RMER1 
LOAD RMOF 
LOAD RMDC 
LOAD RMtR2 
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SEO 0100 



178 
V9 

180 010A36 

181 010444 

182 010452 

183 010460 

184 010466 

185 010474 
186 

187 

188 010502 
139 010506 

190 010514 

191 010522 

192 0'0530 

193 0^0536 

194 010542 

195 010546 

196 010552 

197 C10556 

198 010562 

199 010566 

200 010572 

201 0105'., 

202 0106..^ 

203 010606 

204 010612 

205 010616 
206 

207 

208 010620 

209 010624 

210 010630 

211 010632 

212 010636 
010636 

213 
214 
215 

216 010642 

217 010650 

218 010656 
219 

220 

221 010664 

222 ^\<^72 

223 010700 

224 010706 

225 010714 

226 010722 
227 

228 

229 010730 

230 010736 

231 010744 

232 010752 

233 010760 



016037 
016037 
016037 
016037 
016037 
016037 



012702 
052737 
052737 
052737 
052737 
005137 
005137 
005137 
005137 
005137 
005137 
043702 
043702 
043702 
043702 
043702 
043702 
001407 



010237 
005037 
104005 
052702 

004 737 



012760 
012760 
012760 



012760 
012760 
012760 
012760 
012760 
012760 



016037 
016037 
016037 
016037 
016057 



000000 
000006 
000014 
000032 
000034 
000042 



1 77777 
1 77701 
161577 
1 76000 
001567 
001336 
001344 
001352 
001 370 
001372 
001400 
001336 
001344 
001352 
001370 
001372 
001400 



001142 
001140 

000001 

05''<674 



000000 
000000 
000000 



000076 
1 77777 
016200 
001 777 
1 77777 
176210 



000000 
000006 
000032 
000034 
000014 



001 336 
001 344 
001352 
001370 
001372 
001400 



001336 
001370 
001 372 
001400 



000006 
000032 
000034 



000000 
000006 
000032 
000034 
000014 
000042 



001336 
001344 
001370 
001372 
001352 



;READ BACK ALL REGISTERS 

MOV RMCS1(R0).R«CS1I .-STORE RMCS1 IN iNPuT BUFFER 

MOV RMDA(R0),RMDAI ;STOR€ RMDA IN INPUT BUFFER 

MOV RMER1(R0).RMER1I .-STORE RMER1 IN INPUT BUFFER 

MOV RMOf (RO).RMOFI ;STORE RMOF IN INPUT BUFFER 

MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 

MOV RMER2(R0).RMER2I ;STORE RMER2 IN INPUT BUFFER 

.•CHECK EACH REGISTCR CONTENT FOR ZERO BITS WRITTEN t READ 

MOV *-1.R2 .-ACCUMULATE ZEROS IN R2 

BIS **CILF76.RMCS1I ;SET ALL BITS NOT WRITTEN 

BJS *XNUOF.RMOFI 

BIS *XNUDC.RMDCI 

BIS *XNUER2.RMER21 

COM RMCS1I ; COMPLEMENT REGISTER CONTENTS 

COM RMDAI 

COM RMER1I 

COM RMOF I 

COM RMDCI 

COM RMER2I 

BJC RMCS1I.R2 .-ACCUMULATE ALL ZERO BITS 

BIC RMDAI, R2 

BIC RMER1I.R2 

BIC RM0FI.R2 

BIC RMDCI. R2 

BIC RMEF<2I.R2 

BEQ 10$ .-BRANCH IF EACH BIT IS ZERO 

.-ONE OR MORE BIT POSITIONS ARE NOT ZERO 

MOV R2.$8DDAT ;SAVE RESULT FOR TYPE 

CLR SGDDAT ;LOAD EXPECTED RESULT 

EMT 5 

BIS #8IT0,R2 .-SET ERROR FLAG 

10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

.•PRESET SELECTED REGISTERS TO ZEROS 
.-{ASSUME RMCS1, RMERl . RMER2 WERE CLEARED BY INI') 



MOV 
MOV 
MOV 



*O.RMDA(RO) 
*O.RMOF(R0) 
*O.RMOC(RO) 



LOAD RMDA 
LOAD RMOF 
LOAD RMDC 



.-WRITE ONES IN SELECTED REGISTERS 

MOV #ILF76,RMCS1 (RO) .-LOAD RMCSl 

■MOV *-1.RMDA(R0) ;LOAD RMDA 

MOV **CXNUOF.RMOF(RO) ;LOAD RMOF 

MOV **CXNUDC.RMDC{RO) ;LOAD RMDC 

MOV *-1 .RMERl (RO) ;LOAD RMERl 

MOV **CXNUER2.RMER2(R0) ;LOAD RMER2 



.-REAP ALL REGISTERS 

MOV RMCS1(R0).RMCS1I 
MOV RMDA (RO). RMDA I 
MOV RMOF (RO) .RMOF I 
MOV RMDC (RO). RMDCI 
MOV RMERl (RO). RMERl I 



.■STORE RMCSl IN INPUT BUFFER 
STORE RMDA IN INPUT BUFFER 
STORE RMOF IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 

.•STORE RMERl IN INPUT BUFFER 
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13-5 



S£0 0101 



234 

235 

?36 

237 

238 

239 

2A0 

241 

2A2 

243 

244 

2'«5 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 
262 
263 
264 
2^5 
266 
267 
268 
269 
270 
271 
272 
273 
27^ 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
?89 



010766 016037 



010774 
011002 
011010 
011016 
011024 
011026 
011032 
011036 
011042 
011046 
011052 
011056 
011062 



011120 
011124 
011130 
01 1 1 34 
011140 



011144 
011152 
011160 
011166 
011174 



011202 
011204 
011210 
011214 
011216 
011220 
011222 
011226 
011232 
011234 
011236 
011242 
011244 



042737 
042737 
042737 
042737 
005002 
053702 
053702 
053702 
053702 
053702 
053702 
022702 
001410 



00004? 


001400 


nov 


RnER2(R0) .RnER2I 






•CHECK EACH 


REGISTER CONTENT FOR 


1 77701 


001336 


BIG 


#*CJLF76.RMCS1I 


161577 


001370 


BIC 


#XNUOF,RnOFI 


176000 


001372 


BIC 


jrXNUDCRMDCI 


001 567 


001400 


BIC 


4rXNUER2,RnER2I 




CLR 


R2 


001356 




BIS 


RMCS1I,R2 


001344 




BIS 


RMDAI,R2 


001370 




BIS 


RMGFI.R2 


001372 




BIS 


RMDCI,R2 


001352 




BIS 


RMER1I.R2 


001400 




BIS 


RriER2I,R2 






CMP 


*-1.R2 






BEO 


20$ 



;STORE RMER2 IN INPUT BUFFER 



.■CLEAR ALL BITS NOT WRITTEN 



.•ACCUMULATE ONES IN R2 

.•ACCUMULATE ALI ONE BITS 



;SEE IF EACH BIT POSITION WAS ONE 
.-BRANCH IF NONE STUCK 



011064 


010237 


001142 




MOV 


CI 1070 


01273' 


Mim 001140 




MOV 


011076 


104006 






EMT 


011100 


052702 


000002 




BIS 


011104 






20$: 




011104 


005702 






TST 


011106 


001126 






BNE 


011110 


012702 


000001 




MOV 


011114 






25$: 




011114 


004737 


054674 




JSR 



;ONE OR MORE BIT POSITIONS ARE NOT ONE 
R2,$8DDAT 
#-l,$GDDAT 
6 

#8IT1.R2 



;SAVE RESULT FOR TYPE 
.•EXPECTED RESULT 



010260 
010260 
010260 
010260 
• 010260 



016037 
016037 
016037 
016037 
016037 



005003 
012704 
013705 
050503 
005105 
040504 
013705 
042705 
050503 
005105 
042705 
040504 
013705 



000006 
000032 
000034 
000014 
000042 



000006 
000032 
000034 
000014 
000042 



1 77777 
001344 



001370 
161577 



161577 
001372 



;SET ERROR FLAG 

R2 .-ANY ERRORS DETECTED ?? 

30$ .-VES - DONT DO BIT TEST 

*1.R2 ;R2=8IT POSITION 

PC.CNTCLR ;G0 CLEAR CONTROLLER 

;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 



MOV 


R2,RMDA(R0) 


.-LOAD 


RMDA 


MOV 


R2.RMOF(R0) 


;LOAD 


RMOF 


MOV 


R2.RMDC(R0) 


;LOAD 


RMDC 


MOV 


R2,RMER1(R0) 


;LOAD 


RMER1 


MOV 


R2.RMER2(RO) 


;LOAD 


RMER2 



001 344 
001370 
001372 
001352 
001400 



.-READ BACK THE REGISTERS 
MOV - 
MOV 
MOV 
MOV 
MOV 



RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
RMOF (RO). RMOF I ; STORE RMOF IN INPUT BUFFER 
RMDC (RO). RMDC I .-STORE RMDC IN INPUT BUFFER 
RMER1(R0),RMER1I ;STORE RMER1 

RMER2(R0).RMER2I 



IN INPUT BUFFER 
.-STORE RMER2 IN INPUT BUFFER 



; CHECK REGISTER CONTENTS FOR CORRECT PATTERN 



CLR 
MOV 
MOV 
BIS 
COM 
BIC 
MOV 
BIC 
BIS 
COM 
BIC 
BIC 
MOV 



R3 
<r-1 .R4 
RMDAI,R5 
R5,R3 
R5 

R5,R4 
RM0fI.R5 
#XNU0F.R5 
R5.R3 

R5 

#XNU0F,P5 

R5.R4 

RMDC1.R5 



;R3-ACCUMULATED ONE BIT 
;R4-ACCUMULATED ZERO BITS 

;GET ANY GOOD BITS FROM RMDA 



.-GET GOOD BITS FROM RMOF 



;GET GOOD BITS FROM RMDC 
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SIO 010? 



290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

329 



011250 
011254 
011256 
011260 
011264 
011266 
011272 
011274 
011276 
011300 
011304 
011310 
011312 
011314 
01 1 320 
011322 
011324 
011326 
011330 
01 1332 
011334 
011336 
01 1 340 
01 1 344 
011350 
011352 



011354 
011354 
011356 
01 1 360 
01 1 364 



330 
331 
332 
333 
334 
335 
336 
337 
358 
339 



01 
01 
01 
01 
01 
01 
01 



1364 
1364 
1366 
1370 
1374 
1400 
1404 



042705 
050503 
005-105 
042705 
040504 
013705 
050503 
005105 
040504 
01 3705 
042705 
050503 
005105 
042705 
040504 
010205 
005105 
040503 
040204 
050403 
020302 
001406 
010237 
010337 
104007 
000404 



006302 
001402 
0001 37 



000004 
000240 
012706 
013700 
013701 
012737 



176000 

176000 
001352 



001400 
001567 



001567 



001140 
001142 



011114 



001100 
001276 
001466 
000006 



BIC 


*XNUDC.R5 


BIS 


R5.R3 


COM 


R5 


BIC 


»XNUDC,R5 


BIC 


R5,R4 


nov 


RMEP1I,R5 


BIS 


R5.R3 


COM 


R5 


BIC 


R5.R4 


MOV 


RMCR2I ,R5 


BIC 


*XNUER2,R5 


BIS 


R5.R3 


COM 


R5 


BIC 


#XNUER2,R5 


BIC 


R5,R4 


MOV 


R2.R5 


COM 


R5 


BIC 


R5.R3 


BIC 


R2.R4 


BIS 


R4.R3 


CMP 


R3.R2 


BEO 


26$ 


MOV 


R2,$GDDAT 


MOV 


R3,S8DDAT 


EMT 


7 


BR 


30$ 



001226 



.GET GOOD BITS FROM RMER1 



;GET GOOD BITS FROM RMER2 



;RESET ALL ONES IN R3 EXCEPT 
;FOR THE TEST BIT 

;RESET TEST BIT IN '^4 
; COMBINE ACCUMULATED TS ♦ O'S 
;IS PATTERN OK?? 
•YES' ' 

.-SAVE TEST PATTERN 
;SAVE RESULT 

.-SKIP TO NEXT 

.•ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
26$: 

ASL R2 .-SHIFT THE BIT 

BEO 30$ .-EXIT IF DONE 

JMP 25$ 

30$: 

•**»»****»*»**»»»**»****•***»»»*****»********»»*****•**»*•*•••** 
'•TEST 6 REGISTER SELECT TEST 

•NOTE: REGISTER SELECT 16 IS TESTED BV THE "ILR" TEST 
* 

• *************** ************** *■**********♦*********»*•**»*•»**♦ 

tST6: 

SCOPE .-SCOPE CALL 
NOP 

MOV *STACK,SP .-LOAD THE STACK POINTER 

MOV $aASE.RO ;R0 - UNIBUS ADDRESS 

MOV TSTQUE,R1 ' ;R1 = POINTER TO DEVICE 

MOV #6,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

;THE lOLLOWING TABLE GIVES MASS8US REGISTER SELECT VALUES FOR 
;EACH I "VICE REGISTER 



REGISTER 
NAME 

RMCS1 

RMDS 

RMER1 



REG SEL 
(16.8,4.2.1) 

00000 
00001 
00010 



-•ZRMPBO RM05/3/2 DSKLS TST 1 
T6 REGISTER SELECT TEST 

540 

542 
543 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
554 
355 
356 
357 
358 
359 
360 
361 
362 

563 011412 005002 

364 011414 012703 -[77777 

365 

566 

367 01 1420 004737 054674 

368 011424 010260 000014 

369 011430 010260 000034 

370 011434 010360 000024 

371 011440 010360 000036 

372 011444 016037 000014 

373 011452 016037 000034 

374 011460 020337 001352 

375 011464 001007 

376 011466 052737 176000 

377 011474 020337 001372 

378 011500 001001 

379 011502 104010 
380 

381 

382 011504 

383 011504 004737 054674 

384 011510 010260 000006 

385 011514 010260 000032 

386 011520 010260 000042 

387 011524 010360 000016 

388 011530 0^0360 000030 

389 011534 010360 000040 

390 011540 016037 000006 

391 011546 016037 000032 

392 011554 016037 000042 

393 011562 020337 001344 

394 011566 001015 

395 011570 052737 161577 

396 011576 020337 001370 
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RMHRl 

RliAS 

RWA 

RMDT 

RHLA 

RMSN 

RMOF 

RMOC 

RMHR 

RMMR2 

RMEft2 

RMECl 

RMEC2 



00011 
00100 
00101 
00110 
00111 
01000 
01001 
01010 
01011 
01100 
01101 
01110 
01111 



EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE. 
STUCK AT ZERO FAULT. AS AN EXAMPLE. TO TEST REG SEL 1. 
FOR S-A-0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER 
THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE. 
RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0. 
THE ALL ONES WORD WILL BE WRITTEN IN RMER1 . AND RMERl 
WILL NOT BE 0 WHEN READ BACK. 



CLR 
MOV 



R2 

#-1 .R3 



;R2= ZEROS SOURCE 
;R3= ONES SOURCE 



001352 
001372 



001372 



.•TEST REG SEL 1 FOR S-A-0 

JSR PC.CNTCLR 

MOV R2,RMER1(R0) 

MOV R2.ftMDC(R0) 

MOV R3.RMMR1 (RO) • 

MOV R3.RMHR<R0) 

MOV RMERl (RO) .RMERl J 

MOV RMDCiRO) .RMDCI 

CMP R3. RMERl I 

BNE 10$ 

BIS 4fXNUDC. RMDCI 

CMP R3. RMDCI 

BNE 10$ 

EMT 10 

.•TEST REG SEL 1 FOR S-A-1 



GO CLEAR CONTROLLER 
LOAD RMERl 
LOAD RMDC 
LOAD RMMR1 
LOAD RMHR 

.•STORE RMERl IN INPUT BUFFER 
.•STORE RMDC IN INPUT BUFFER 



lOS: 



001344 
001370 
001400 



001370 



JSR PC.CNTCLR 

MOV R2.RMDA(R0) 

MOV R2.RM0F{R0) 

MOV R2.RMER2{R0) 

MOV R3,RMAS(R0) 

MOV R3,RMSN(R0) 

MOV R3.RMMR2(R0) 

MOV RMDA(RO),RMDAI 

MOV RMOF(R0).RMOFI 

MOV RMER2(R0).RMER2I 

CMP R3,RMDAI 

BNE 20$ 

BIS *XNU0F,RM0FI 

CMP R3.RM0FI 



GO CLEAR CONTROLLER 
LOAD RMDA 
LOAD RMOF 
LOAD RMER2 
LOAD RMAS 
LOAD RMSN 
LOAD RMMR2 
STORE RMDA IN 
STORE RMOF IN 



: STORE 



INPUT 
INPUT 
RMER2 



BUFFFR 
BUFFER 
IN INPUT 



BUFFER 



C2RMP60 RM05/3/2 DSKLS TST 1 
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397 
398 

399 

400 

AOl 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 



011602 
011604 

011612 
011616 
011620 



011622 
011622 
011626 
011632 
011636 
011642 
011646 
011652 
011656 
011664 
011672 
011700 
011704 
011706 
011714 
011720 
011722 
011730 
011734 
011736 



011740 
011740 
01 1 744 
011750 
011754 
011762 
011766 
01 1 774 
012002 
012010 
012014 
012016 
012024 
012030 
012032 



012034 
012034 
012040 
012044 
012050 
012054 
012060 
012064 
012070 
012076 
012104 



001007 
052737 
020337 
001001 
104011 



004737 
010260 
010260 
010260 
010360 
010360 
010360 
016037 
016037 
016037 
020337 
001015 
052737 
020337 
001007 
052737 
020337 
001001 
104012 



004737 
010260 
010260 
012760 
010360 
016037 
016037 
052737 
020337 
001007 
052737 
020337 
001001 
104013 



004737 
010260 
010260 
010260 
010360 
010360 
010360 
016037 
016037 
016037 



001567 
001400 



054674 
000006 
000032 
000042 
000020 
000036 
000046 
000006 
000032 
000042 
001344 

161577 
001370 

001567 
001400 



054674 
000014 
000034 
000076 
000030 
000014 
000034 
177701 
001352 

176000 
001372 



054674 
000014 
000032 
000034 

000026 
000042 
00004h 
000014 
000032 
000034 



001400 



001344 
001 370 
001400 



001370 
001400 



BNE 
BIS 
. CMP 
BNE 
EMT 

•TEST REG SEL 
^0$: 

JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
BIS 
CMP 
BNE 
BIS 
CMP 
BNE 
EMT 



20$ 

#XNUER2-RMER2I 

R3.RMERh 

20$ 

11 

2 FOR S-A-0 

PC.CNTCLR 

R2.RM0A(R0) 

R2.RMOF(R0) 

R2.RMER2(R0) 

R3.RMLA(R0) 

R3.RMHR(R0) 

R3.ftMEC2(R0) 

RMDA(R0).RMDAI 

RW)F(R0).RMOFI 

RMfe2(R0).RMER2l 

R3^DAI 

30$ 

*XNU0F.RM0FI 

R3.RM0FI 

30$ 

#XNUER2.RMER2I 

R3,RMER2I 

30$ 



GO CLEAR CONTROLLER 

LOAD RMDA 

LOAD RMOF 

LOAD RMER2 

LOAD RMLA 

LOAD RMHR 

LOA^ RMEC2 

STORE RMDA IN INPJT BUFFER 
STORE RMOF IN INPUT BUFFER 

.-STORE RMER2 IN INPUT BUFFER 



.-TEST REG SEL 2 FOR S-A-1 



30$: 



000000 

001352 
001372 
001352 



001372 



JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV R2.RMER1(R0) ;LOAD RMER1 

MOV R2.RMDC(R0) ;LOAD RMDC 

MOV *ILf76.RMCS1(R0) ;LOAD RMCSl 

MOV R3.RMSN(R0) ;LOAD RMSN 

MOV RMER1(R0),RMER1I ;STORE RMER1 IN INPUT BUFFER 

MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 

BIS #*CILF76,RMER1I 

CrV R3.RMER1I 

BNE 40$ 

BIS *XNUDC.RMDCI 

CMP R3.RMDCI 

BNE 40$ 

EMT 13 



.•TEST REG SEL 4 FOR S-A-0 



40$: 



0013S2 
001370 
00137? 



JSR PC.CNTCLR 

MOV R2.RMER1 (RO) 

MOV R2,RM0F(R0) 

MOV R2,RMDC(R0) 
MOV ' R3,RMDT(R0) 

MOV R3.RMER2(R0) 

MOV R3.RMEC1(R0) 

MOV RMER1 (RO).RMERII 

MOV RMOF (RO). RMOF I 

MOV RMDC (RO), RMDC I 



GO CLEAR CONTROLLER 
LOAD RMERl 
LOAD RMOF 
LOAD RMDC 
LOAD RMDT 
LOAD RMER2 
LOAD RMEC1 

.•STORE 
STORE RMOF IN 
STORE RMDC IN 



RMERl IN INPUT BUFFER 
INPUT BUFFER 
INPUT BUFFFR 



:ZRMPBO RM05/3/2 OSKLS TST 1 
^6 REGISTER SELECT TEST 



B 9 

iHAtRO VW.OO 4-APR-81 01:24:2-5 PAGE 13-9 



S£0 



454 012112 

455 012116 

456 012120 

457 012126 

458 012132 

459 012134 

460 012142 

461 012146 
46;^ 012150 
463 

464 

4o5 012152 

466 012152 

467 012156 

468 012162 

469 012166 

470 012172 

471 012176 

472 012204 

473 G12212 

474 012216 

475 0V220 

476 012226 

477 012232 

478 012234 
479 

480 

481 012236 

482 012236 

483 012242 

484 012246 
48!> 012252 

486 012256 

487 012262 

488 012270 

489 012276 

490 012302 

491 012304 

492 012310 

493 012312 
494 

495 

496 012314 

497 012314 

498 012320 

499 012324 

500 012330 

501 012334 

502 0123*0 

503 012344 

504 012350 

505 012356 

506 012364 

507 012372 

508 012400 

509 012402 

510 012410 



020357 
001015 
052737 
020337 
001007 
052737 
020337 
001001 
104014 



004737 
010260 
010260 
010360 
010360 
016037 
016037 
020337 
001007 
C5273? 
020337 
001001 
104015 



001352 

161577 001370 
001370 

176000 00137? 
001372 



054674 
000006 
000042 
000012 
000032 

000006 001344 
000042 00^400 
001 344 

001 567 001400 
001400 



CnP R3,RnERlI 

BNE 50S 

BIS tXNUOF.RnOFI 

CHP R3.RH0fI 

BNE 50S 

BIS «XNUOC.RW>CI 

CM* R3.W1DCI 

BNE 50S 

EMT 14 

.TEST REG SEL 4 FOR S-A-1 
50$: 

JSR PCCNTCLR 

MOV R2.R«DA{R0) 

MOV R2.RMER2(R0) 

MOV R3,ftMDS(R0) 

MO/ R3.RMOF(R0) 

MOV R«DA(RO) .RMDAl 

MOV RMER2(R0),RMER2I 

CMP R3.RMDAI 

BNE 60$ 

BIS #XNUER2,RMER2I 

CMP R3.RMER2I 

BNE 60$ 

EMT 15 

.-TEST REG SE' 8 FOR S-A-0 
60$: 



60 CLEAR CONTROLLER 
LOAD RMDA 
LOAD RMER2 
LOAD RMDS 
LOAD RMOF 

STORE RMDA IN INPUT BUFFER 

.-STORE RMER2 IN INPUT BUFFER 



004737 


054674 




JSR 


PC.CNTCLR 


;60 CLEAR CONTROLLER 




0'0260 


000014 




MOV 


R2.RMER1(R0) 


.-LOAD RMER1 




010260 


000006 




MOV 


R2.RMDA(R0) 


;LOAD RMDA 




010360 


000034 




MOV 


R3.RMDC(R0) 


.-LOAD RMDC 




010360 


000042 




MOV 


R3.RMER2(R0) 


.•LOAD RMER2 




016037 


000014 


001352 


MOV 


RMER1(R0).RMER1I 


; STORE RMER1 


IN INPl 


016037 


000006 


001344 


MOV 


RMDAfRO) .RMDAI 


.•STORE RMDA IN INPUT 


BUFFER 


020337 


001352 




CMP 


R3.RMER1 I 






001004 






BNE 


70$ 






020337 


001344 




CMP 


R3. RMDAI 






001001 






BNE 


70$ 






104016 






EMT 


16 







BUFFER 



;TEST REG SEL 
>0l 



8 FOR S-A-1 



004737 


054674 




JSR 


PC.CNTCLR 


•GO CLEAR CONTROLLER 


010260 


000032 




MOV 


R2.RMOF(R0) 


LOAD RMOF 




010260 


000034 




MOV 


R2,RMDC(R0) 


LOAD RMDC 




010260 


000042 




MOV 


R2,RMER2(R0) 


•LOAD RMER2 




010360 


000012 




MOV 


R3.RM0S(R0) 


•LOAD RMDS 




010360 


000014 




MOV 


R3,RriER1 (RO) 


•LOAD RMER1 




010360 


000006 




MOV 


R3.RnDA(R0} 


•LOAD RMDA 


INPUT 


016037 


000032 


001370 


MOV 


RMOF (RO). RMOF I 


•STORE RMOF IN 


016037 


C00034 


001372 


MOV 


RMDC (RO), RMDC I 


•STORE RMDC IN 


INPUT 


016037 


000042 


001400 


MOV 


RMER2(R0),RMER2I 


.•STORE 


RMER2 


052737 


161577 


001370 


BIS 


*XNU0F.RM0FI 






OOlOl'; 






BNE 


80$ 






022737 


176000 


001372 


CMP 


*XNUDC.RMDCI 






020337 


001372 




CMP 


R3,RMDCI 







IN INPUT BUFFER 



CZRMPBO RM05/3/2 DSKLS TST 1 
^6 REGISTER SELECT TEST 



511 
512 
513 
5U 
515 
516 
517 
521 



0124K 
012416 
012424 
012430 
012432 
012434 



001007 
052737 
020337 
001001 
104017 



C01567 
001400 



MACRO V04.00 4-APR-81 01:24:25 PAGE 



9 

13-10 



001400 



80S: 



BNE 80$ 

BIS #KNUER2.R«ER2I 

C»*» R3,Rn£R2l 

BNE BOS 

E«T 17 



.-•TEST 7 



SEO 0106 



DRIVE TYPE TEST 





012434 








TST7: 






012434 


000004 








SCOPE 




012436 


000240 








NOP 




012440 


01 2706 


001100 






MOV 




012444 


013700 


001276 






MOV 




012450 


013701 


001466 






MOV 




012454 


012737 


000007 


001226 




MOV 


522 














523 


CI 2462 


016002 


000026 






MOV 


524 


012466 


022702 


020024 






CMP 


525 


012472 


001431 








BEQ 


526 


012474 


022702 


024024 






CMP 


527 


012500 


001426 








BEQ 


528 














529 


012502 


022702 


020025 






CMP 


530 


012506 


001423 








BEQ 


531 


012510 


022702 


024025 






CMP 


532 


012514 


001420 








BEQ 


533 














534 


012516 


022702 


020027 






CMP 


53t> 


012522 


001415 








BEQ 


536 


012524 


022702 


024027 






CMP 


537 


012530 


001412 








BEQ 


538 














539 


012532 


010237 


001142 






MOV 


540 


012536 


010037 


001136 






MOV 


541 


012542 


062737 


000026 


001136 




ADD 


542 


012550 


104057 








EMT 


543 


012552 


0001 37 


053564 






JMP 


544 


012556 








10S: 




545 














546 










• » 





.•SCOPE CALL 

#STACK,SP .-LOAD THE STACK POINTER 

$8ASE,R0 ;R0 = UNJBUS ADDRESS 

TSTQUE.R1 ;R1 = POINTER TO DEVICE 

#7.STESTN ;;SET TEST NUMBER IN APT MAIL BOX 

RMDT(R0).R2 .-STORE RMDT AT R2 

#SNGPRT.R2 .-SINGLE PORT RM03 ? 

10$ ;YES 

#DULPRT.R2 .-DUAL PORT RM03 ? 

10$ ;YES !I 

*SNGPRT!B1T0.R2 .SINGLE PORT RM02 ? 
10$ ;YES :. 

#DULPRT!BIT0.R2 ;DUAL PORT RM02 ? 
10$ ;YES !! 



.-•TEST 10 



#SNGPRT:BIT1 !8IT0.R2 
10$ 

WULPRTIBITl I8nO.R2 
10$ 



.-SINGLE PORT RM05 
.-YES 1! 

;DUAL PORT RM05 ? 



R2,S8DDAT 
RO.SBDADR 
#RMDT.$BDADR 

57 

$EOSP 



.-GET RECIEVED DRIVE TYPE 
.-LOAD BAD ADDRESS 



.-GO TO NEXT DEVICE 



DEVICE AVAILABLE TEST 



•»»•*»»**»*»•»•*••»*»**»»»*»*•*»»»**»•»♦»»•*•»»*♦***»•»*****•••* 





012556 










012556 


000004 








012560 


000240 








012562 


012706 


0011 00 






012566 


013700 


001276 






012572 


013701 


001466 






012576 


012737 


000010 


001226 


547 










548 


012604 


004737 


054674 




549 


012610 


016037 


000000 


001 142 


550 


012616 


042737 


1 73777 


001142 



TST10: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
MOV 
8IC 



#STACK.SP 
SBASE.RO 

TSTQUE.R1 
*10.iTESTN 



.-SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNJBUS ADDRESS 

R1 POINTER TO DEVICE 

.-SCT TEST fAJT-BLR IN APT MAIL BOX 



PCCNTCLR ;G0 CLEAR CONTROLLER 

RMCS1 (R0).$8DDAT ;STORE RMCSI AT $BDDAT 

#*CDVA.$8DDAT ; CLEAR ALL 3'iT DVA 



CZRWPBO RM05/5/2 DStCLS TS: 1 
no DEVICE AVAILABLE TEST 



551 012624 

552 012626 

553 012634 
55A 012640 
555 012642 
556 

557 



001006 
012737 
010037 
104060 



C04000 
001136 
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001140 



1CS: 



BNE 

nov 

MOV 
EMT 



.-•TEST 11 



10S 

#DVA,$GDDAT 

RO.SBDADR 

60 



SEO 0107 



;8RANCH If DVA SET 
.•SETUP EXPECTED 
.•SETUP REG ADDRESS 



HOLDING REGISTER TRANSFER TEST 



012642 
012642 
012644 
012646 
012652 
012656 
012662 

558 

559 012670 

560 012674 

561 012676 

562 012702 
563 

564 
565 
566 
567 

568 012710 

569 012716 

570 012724 

571 012732 

572 012736 

573 012740 

574 012744 

575 012746 
576 

577 

578 012752 

579 012752 

580 012760 

581 012766 

582 012774 

583 013000 

584 013006 

585 013014 

586 013016 

587 013020 
588 

589 

590 013024 

591 013024 

592 013026 

593 013030 

594 013034 

595 013034 

596 013042 

597 013046 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
005003 
010037 
062737 



012760 
012760 
016037 
Ob5137 
001405 
005037 
104061 
052703 



012760 
012760 
016037 
005137 
012737 
023737 
001403 
104062 
052703 



TST11: 



001100 
001276 
001466 
000011 

054674 

001136 
000036 



1 77777 
000000 
000036 
001142 

001140 

000001 



000000 
\77777 
000036 
0C1142 
}77777 
001140 



000002 



001226 



001136 



000006 
000006 
001142 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
CLR 
MOV 
ADD 



*STAC(C.SP 
$8ASE.R0 
TST0UE.R1 
*11.$TESTN 

PC.CNTCLR 
R3 

R0.S8DADR 
^RMHR.SSDADR 



.-SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 - UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

;60 CLEAR CONTROLLER 
.•CLEAR ERROR FLAGS 
.-SETUP REGISTER ADDRESS 



WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS. 
NOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN 
ORDER TO WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS 
PURPOSE . 



MOV ^-I.RMDA(RO) 

MOV *0,W1DA(R0) 

MOV RMHR(R0),$8DDAT 

COM SBDDAT 

BEO 10S 

CLR SGDDAT 

EMT 61 

BIS #8110, R3 



.•LOAD RMDA 
;LOAD RMDA 

; STORE RMHR AT SBDDAT 
;ANY ERROR?? 
;N0! ! 

.-LOAD EXPECTED 
.-SET ERROR FLAGS 



.-WRITE ZEROS THEN ONES IN RMHR AND CHECK FOR S-A-O BITS. 



000006 
000006 
001142 

001140 
001142 



10$: 



MOV 
MOV 
MOV 
COM 
MOV 
CMP 
BEO 
EMT 
BIS 



^'O.RMDA(RO) 
#-1,RMDA(R0) 



.•LOAD RMDA 
.•LOAD RMDA 



RW^R(RO).$BDDAT .-STORE RMHR AT $8DDAT 



$8DDAT 

.SGDDAT 
$GDDAT.$8DDAT 
20$ 
62 

#8IT1.R3 



;RMHR IS COMPLEMENTED WHEN READ 
.•SETUP EXPECTED 
.-ANY ERROR?? 
;N0! ! 

.-SET ERROR FLAG 



005703 
001025 

012702 000001 

012760 000000 000006 

010260 000006 

016037 000036 001142 



;IF NO PREVIOUS ERRORS. WRITE AND READ SHIFTING ONE BIT PATTERN. 
20$: 



30$: 



TST R3 

BNE 50$ 

MOV *1 ,R2 

MOV /lfO,RMDAfRO) 

MOV R2.RMDA(R0) 

MOV RMHR(RO),$BDDAT 



;any flags set?? 
.-yes:! 

;R2iDATA PATTERN 

;LOAD RMDA 
;LOAD RMDA 

; STORE RMHR AT SBDDAT 



^ZRMPBO RM05/3/2 OSKLS TST 1 nAZRO V(K.OO 
HOLDING REGISTER TRANSFER TEST 



598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 



013054 
013060 
013064 
013066 
013072 
013074 

013076 
013100 

013102 



005137 
023702 
001404 
010237 
104063 
000402 

006302 
001355 



001142 
001142 

001140 





E 


9 










-1? 










rMD 








ocu 








HUV 








EMT 


63 






BR 


50S 




;D0 NOT COLLECT ALL ERRORS 


ASL 


R2 




•SHIFT TO NEXT PATTERN 


8NE 


30S 




.•CONTINUE IF NOT DONE 



SEO 0108 



40$: 



50$: 

• -ft************************************************************** 

;»TEST 12 CONTROL STATUS »^ TRANSFER TEST 



611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

651 

632 

653 

654 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 



013102 
013102 
013104 
013106 
013112 
013116 
013122 

013130 
013132 



013136 
013144 
013150 
013156 
013164 
013166 
013172 
01 31 76 
01 3204 



013206 
013206 
0132''4 
013222 
01 3230 
013236 
013240 
013244 
013250 
013256 
013260 



013264 
01 3264 
013272 



000004 
000240 
012706 
013700 
013701 
012737 

005003 
004737 



012760 
004737 
016037 
042737 
001410 
005037 
010037 
062737 
104043 



012760 
012760 
016037 
042737 
001412 
005037 
010037 
062737 
104023 
052703 



012760 
012760 



TST12: 





SCOPE 




.•SCOPE CALL 




NOP 






001 100 


MOV 


#STAC»(.SP 


.•LOAD THE STACK POINTER 


001276 


MOV 


S8ASE,R0 


;R0 = UNI BUS ADDRESS 


001466 


MOV 


TSTOUE.RI 


;R1 = POINTER TO DEVICE 


000012 001226 


MOV 


#12.$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 




CLR 


R3 


;R3 = ERROR INDICATOR 


054674 


JSR 


PCCNTCLR 


;60 CLEAR CONTROLLER 



000076 
054674 
000000 
1 77701 

001140 
001136 
000000 



000076 
000000 
000000 
1 77701 

001140 
001136 
000000 

000001 



000000 
0000^6 



000000 

001142 
001142 



001136 



000000 
000000 
001142 
001142 



001 1 36 



000000 
000000 



.•iJRITE 
.•CHECK 



.•WRITE 
.•S-A-1 
5$: 



.•WRITE 
10$: 



ONES IN RMCS1, BITS 01-05. THEN CLEAR. READ AND 
FOR S-A-1 BITS. 

MOV *ILF76,RMCS1(R0) ;LOAD RMCS1 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV RMCS1 (R0).$8DDAT .-STORE RMCSl AT $8DDAT 

BIC #*CILF76,$8DDAT 

BEQ 5$ 

CLR $GDDAT 

MOV RO.SBDADR 

ADD #RMCS1 ,$6DADR 

EMT 43 

ONES IN RMCSl. BITS 01-05. THEN WRITE ZEROS. READ AND CHECK FOR 
BITS. 

MOV #ILF76, RMCSl (RO) ;L0AD RMCSl 

MOV *0. RMCSl (RO) ;LOAD RMCSl 

MOV RMCSl (R0).$8DDAT ;STORE RMCSl AT $BDDAT 

BIC **CILF76.$8DDAT 

BEO 10$ 

CLR $GDDAT 

MOV R0.$8DADR 

ADD <fRMCSl .$8DADR 

EMT 23 

BIS *8IT0.R3 ;SET ERROR FLAG 

ZEROS IN RMCSl. THEN ONES. READ AND CHECK S-A-0 BITS. 

MOV *0. RMCSl (RO) ;LOAD RMCSl 

MOV *ILF76. RMCSl (RO) ;LOAD RMCSl 



ZftHPeO RM05/3/2 OSKLS tsT 1 PWCTO VW.OO 
'12 CONTRa STATUS »^ TRANSFER TEST 



6A5 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 



013300 
013306 
013314 
013322 
013330 
013332 
013336 
013344 
013346 



013352 
013352 
013354 
013356 
013362 
013362 
013564 
013370 
CI 3376 
013402 
013410 
013416 
013422 
01 3424 
013430 
013434 
01 3442 
01 3444 
01 3446 
013450 



016037 
042737 
012737 
023737 
001410 
010037 
062737 
104024 
052703 



000000 
1 77701 
000076 
001140 

001136 
000000 

000002 



001142 
001142 
001140 
001142 



001136 
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HOV RMCSKRO.SBDDAT 

BIC **ClLF76,t8DDAT 

MOV #ILF76.$GDDAT 

CfV $6DDAT.$8DDAT 

BEO 20$ 

MOV R0,$8DADR 

ADO iTRMCSI ,$8DADR 

EMT 24 

BIS *8IT'.R3 



■tC, 



.•STORE RMCS1 AT $8DDAT 



.-SET ERROR FLAG 



.-WRITE A SHIFTING ONE BIT PATTERN IN RMCS1. READ AND CHECK FOR STUCK BITS. 
20$: 



005703 








TST 


R3 


;OMIT IF ANY ERRORS 


001035 








8NE 


50$ 




012702 


000002 




30$: 


MOV 


*2.R2 


;R2 - TEST PATTERN 


010203 








MOV 


R2.R3 


;R3 = EXPECTED RESULT. BITS 1-5 


042703 


177701 






BIC 


**CILF76,R3 




012760 


000000 


000000 




MOV 


*0,RMCS1(R0) 


.•LOAD RMCS1 


010260 


OCOOOO 






MOV 


R2.RMCS1 (RO) 


.•LOAD RMCS1 


016037 


000000 


001142 




MOV 


RMCS1 (R0).$8DDAT 


.•STORE RMCS1 AT $8DDAT 


042737 


177701 


001142 




BIC 


#TILF76.$8DDAT 




020337 


001142 






CMP 


R3.$8DDAT 




001410 








BEQ 


40$ 




010337 


001140 






MOV 


R3.$GDDAT 




010037 


001136 






MOV 


R0.$8DADR 




062737 


000000 


001 1 36 




ADD 


/TRMCSI .$6DADR 




104025 








EMT 


25 




006302 






40$: 


ASL 


R2 


.-SHIFT TO NEXT BIT 


001345 








BNE 


30$ 


.•CONTINUE IF R2 NOT ZERO 



50$: 



*********************************** 



************************** 



.••TEST 13 



ERROR REGISTER *1 TRANSFER TEST 



013450 
013450 
013452 
013454 
01 3460 
CI 3464 
01 3470 



•*»**»********»*»*»**********»***************»*»**************** 



000004 
000240 
012706 
013700 
013701 
012737 



001100 
001276 
001466 
000013 



TST13: 



001226 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



678 












679 


013476 


005003 






CLR 


680 












681 










.•WRITE ONES 


682 


013500 


012760 


}77777 


000014 


MOV 


683 












684 


013506 


004737 


054674 




JSR 


685 


013512 


016037 


000014 


001352 


MOV 


686 


013520 


013737 


001352 


001142 


MOV 


687 


013526 
013534 


042737 


1 77760 


001142 


8JC 


688 


001410 






BEO 


689 


013536 


005037 


001140 




CLR 


690 


013542 


010037 


001136 




MOv* 


691 


013546 


062737 


000014 


OOP 36 


ADD 



*STACK,SP 
$8ASE.R0 
TSTQUE.R1 
*13.$TESTN 

R3 



.•SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 - POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•CLEAR ERROR FLAG 



*-1.RMERl (RO) ;LOAD RMER1 



PC.CNTCLR 
RMER1(R0).RMER1I 
RMER1I.$8DDAT 
#*C<PAR.RMR!ILF . JLR>.$8DDAT 
10$ 

$GDDAT 
R0.$8DADR 
#RMER1 .$BDADR 



;60 CLEAR CONTROLLER 

; STORE RMER1 IN INPUT BUFFER 



•t; FRROR Rf&ISTER *1 ^«ANS'E» 



'EST 



692 

693 

69A 

695 

6% 

697 

698 

699 

700 

701 

702 

703 

704 

705 

/06 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

?17 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

7'2 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 



013554 
013556 
013556 
013564 
013572 
013574 
013600 
015604 
013612 
013614 
013614 
013622 
013630 
013632 
01 3636 
01 3642 
01 3650 



CI 3652 
013652 
013660 
013666 
01 3674 
013702 
013710 
013712 
013716 
01 3722 
013730 
013732 
013736 
01 3744 
013752 
013754 
01 3760 
013764 
013772 
01 3774 
014000 
014000 
014006 
014014 
014016 
014022 
014026 
014034 
014036 

1 

014042 
014042 
0U050 
014056 
014064 
014072 
014100 



104027 

013737 
042737 
001410 
005037 
010037 
062737 
104030 

013737 
042737 
001410 
005037 
010037 
062737 
104031 



012760 
012760 
016037 
013737 
042737 
001412 
005037 
010037 
062737 
104032 
052703 
013737 
042737 
001412 
005037 
010037 
062737 
104033 
052703 

013737 
042737 
001412 
005037 
010037 
062737 
104034 
052703 



012760 
012760 
016037 
012737 
023737 
001410 



001352 
074017 

001140 
001136 
000014 



001352 
147777 

001140 
001 1 36 
000014 



M7777 
000000 
000014 
001352 
y7777Q 

001140 
001136 
000014 

000001 
001352 
074017 

001140 
001136 
000014 

000001 

001352 
\t,7777 

001140 
001 1 36 
000014 

030000 



000000 
y77777 
000014 
U7777 
001140 



001142 
001142 



001136 



001142 
001142 



001136 



D00014 
000014 
001 352 
001142 
001142 



001136 



001142 
001142 



001136 



001142 
001142 



001136 



000014 
000014 
001142 
001140 
001142 



:0S: 



20S: 



; WRI TE 
30S: 



G 9 

.-AP5,--1 01:24:25 ''AGE 13-U 



EMT 27 

•W» RME«1 J.$8DDAT 

5iC 4r*C<DCK:iAE.A0EJHCRC.HCE!£CH:wCF:FfR>.$8DDAT 

BEO 20S 

CLR SGDDAT 

MOV R0.J8DADR 

ADD 4rRnERl.tBDADR 

EMT 30 

MOV RMERII.tBDDAT 

BIC **C<QPI 1DTE>.$8DDAT 

BEO 30$ 

CLR SGDDAT 

MOV RO.SeOADR 

ADD #RMER1 .SBDADR 

EMT 31 

ONES THEN ZEROS IN RMER1 . READ AND CHECK FOR S-A-1 BITS 



SEO 0110 



;LOAD RMER1 
;LOAD RMERl 

.■STORE RMERl IN INPUT BUFFER 



40$: 



50$: 



; WRITE 
60$: 



MOV *-l , RMERl (RO) 

MOV #0.RMER1(R0) 

MOV RMERl (RO), RMERl I 

MOV RMER1I.$8DDAT 

BJC #*C<RMR!ILFIILR>.$8DDAT 

BEQ 40$ 

CLR SGDDAT 

MOV R0.$8DADR 

ADD *RMER1.$8DADR 

EMT 32 

BIS *8IT0.R3 ;SET ERROR FLAG 

MOV RMER1I.$BDDAT 

BIC 4f*C<DCK!IAE!A0E.HCRCJHCE!ECH!WCFiFER>.$8DDAT 

BEQ 50$ 

CLR $GDDAT 

MOV R0.$8DADR 

ADD 4rRntRl,$6DADR 

EMT 33 

BIS *8JT0.R3 ;SET ERROR FLAG 

MOV RMER1I.$8DDAT 

aiC **C<OPI !DTE>.$8DDAT' 

BEQ 60$ 

CLR $GDDAT 

MOV R0.$8DADR 

ADD *RMER1 ,$8DADR 

EMT 34 

BIS #8IT.R3 

ZEROS THEN ONES IN RMERl. READ AND CHECK FOR S-A-0 BITS 

MOV *0. RMERl (RO) ;L0AP RMERl 

MOV <f-l .RMERl (RO) ;LOAD RMERl 

MOV RMERl (R0),$8DDAT .-STORE RMERl AT $8DDAT 

MOV *-l.$GDDAT 

CMP $GDDAT.$BDDAT 

BEO 70$ 



/RhPeO RM05/V2 OSKLS TST 1 HACRO VOA.OO 
■1? ERROR REGISTER #1 TRANSFER TEST 



001156 



749 OK 102 


010037 


001136 


'50 OKI 06 


062737 


COOOK 


751 0K1K 


104035 




75? 0U116 


052703 


000002 


753 






754 






755 






756 0K122 






757 0K122 


005703 




758 OK 124 


001042 




759 OKI 26 


012702 


000001 


7oO OKI 32 


004737 




761 OKI 32 


054674 


762 OKI 36 


010260 


000014 


763 0KK2 


016037 


000014 


764 014150 


032702 


-00001^ 


765 014154 


001003 




766 014156 


042737 


000010 


767 014164 


032702 


040000 


768 014170 


001003 




769 014172 


042737 


040000 


770 014200 


020237 


001142 


771 014204 


001410 




772 014206 


010237 


001140 


773 014212 


010037 


001 1 36 


774 014216 


062737 


000014 


775 014224 


104036 




776 






777 014226 


006302 




778 014230 


001340 




779 014232 






78U 






781 







014232 
014232 
014234 
014236 
0K242 
014246 
014252 

782 

783 0K260 

784 OK 264 

785 014272 

786 014300 

787 014306 

788 0 K310 

789 0 K316 

790 014322 

791 014330 

792 OK 332 
793 

794 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
012760 
016037 
042737 
001011 
012737 
010037 
062737 
104172 



001100 
001276 
001466 
OOOOK 

054674 
\77777 
000032 
}77577 

000200 
001 1 36 
000032 



001142 
001142 
001142 

001136 



001226 

000032 
001142 
001142 

001140 

001136 



.•WRITE 
.-NOTE: 
70$: 



80$: 



H 9 

4-APR-81 01:24:25 PAGE 13-15 



NOV R0.$8DADR 

ADD «RnER1.$eDADR 

EMT 35 

BIS #8IT1,R3 

A SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS 
DONT TEST UNSAFE OR PARITY 



StO 0111 



90$: 



100$: 



110$: 
120$: 



.••TEST 14 



TST 


R3 


.•SKIP THIS PART IF ANY ERRORS 


BNE 


123$ 




MOV 




;R2 = TEST PATTERN 


JSR 


PC.CNTCLR 


.•GO CLEAR CONTROLLER 


MOV 


R2.RMER1 (RO) 


.-LOAD RMER1 


Mnv/ 
nuv 


DMPD1 CDCW CQ^rtAT 


-CTHDC DMCD1 AT COIM^AT 


BIT 


/tPAJi,R2 


;DONT TEST PAR - 0 


BNE 


90$ 


BIG 


#PAR.$BDDAT 




BIT 


#UNS,R2 


;D0NT TEST UNS 0 


BNE 


100$ 


BJC 


#UNS,$6DDAT 




CMP 


R2.$8DDAT 




BEO 


110$ 




MOV 


R2.$GDDAT 




MOV 


R0,$6DADR 




ADD 


#RMER1 ,$BDADR 




EMT 


36 




ASL 


R2 


;SHJFT TO NEXT BI1 


BNE 


80$ 


.•CONTINUE IF R2 NOT ZERO 



CLEAR OFFSET STUCK ACTIVE TEST 



TST14; 



10$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
MOV 
MOV 
BJC 
BNE 
MOV 
MOV 
ADD 
EMT 



.•SCOPE CALL 

#STACK.SP .-LOAD THE STACK POINTER 

$aASE.RO ;R0 - UNJ8US ADDRESS 

TSTQUE.R1 ;R1 = POINTER TO DEVICE 

*K,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 



PC.CNTCLR 
*-1.RMOF(R0) 



;G0 CLEAR CONTROLLFR 
;LOAD RMOF 
RM0F(R0).$8DDAT ;STORE RMOF AT SBDDAT 
**COFD.$BDDAT 

10$ ;6RANCH IF OFD IS A ONE 

*0FD.$GDDAT .•SETUP ERROR MESSAGE 

RO.$BDADR 

*RMOF.$BDADR 

172 

.-END OF TEST 



'*••**»***•**»»•*•*******»*•*•*•*•******•*****•**•••*•**•**••*** 



•TEST 15 



OFFSET REGISTER TRANSFER TEST 



I 9 

'/t^MPSO W105/5/2 DSKLS TST 1 "lACRO VM.OO 01:24:2-5 PAGE 13-16 

O^^SET REGISTER TRANSFER TEST 



s£a 011^ 



795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8K 

815 

816 

81/ 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

S41 

842 



014332 
014332 
014334 
014336 
014342 
014346 
014352 

014360 
014362 
014366 
014374 



014400 
014406 
014414 



014422 
014430 
014436 
014440 
014442 



014446 
014446 
014454 
014462 
014464 
014466 



014472 
014472 
014500 
014506 



014514 
014522 
014530 
014532 
014534 



014540 
014540 
014546 
014554 
014562 
014570 
014572 
014574 



000004 
000240 
012706 
013700 
013701 
012737 

005003 
010037 
062737 
005037 



012760 
012760 
016037 



013737 
042737 
001403 
104053 
052703 



013737 
042737 
001403 
104054 
052703 



012760 
012760 
016037 



013737 
042737 
001403 
104053 
052703 



013737 
042737 
012737 
023737 
001403 
10405S 
052703 



TST15: 



001100 
001276 
001466 
000015 



001 1 36 
000032 
001140 



\m77 
000000 
000032 



001370 
016200 



000001 



001370 
161577 



000001 



000000 

1 mn 

000032 



001370 
016200 



000001 



001226 
001 1 56 



000032 
000032 
001370 



001142 
001142 



001142 
001142 



000032 
000032 
001370 



001142 
001142 



SCOPE 
NOP 

nov 

MOV 

nov 

MOV 

CLR 
MOV 
ADD 
CLR 



.•SCOPE CALL 



.1 



#STACtC,SP 
$8ASE.R0 
TSTQUE.R1 
#15.$TESTN 

R3 

R0.$8DADR 

*RM0F.$8DADR 

SGDDAT 



;L0AD THE STACK POINTER 

;R0 - UNieuS ADDRESS 

;R1 POINTER TO DEVICE 

;.SET TEST NUMBER IN APT MAIL BOX 

.-RESET ERROR FLAGS 
; SETUP BAD ADDRESS 

.•SETUP EXPECTED DATA 



.•WRITE ONES THEN ZEROS IN RMOF AND CHECK FOR S-A-1 BITS. 

MOV *-1,RMOF(R0) ;LOAD RMOF 

MOV /)r0,RM0F(R0) ;LOAD RMOF 

MOV RMOF (RO). RMOF I ;STORE RMOF IN INPUT BUFFER 



; CHECK UNUSED BITS OF RMOF FOR ZERO 
MOV RMOFI.SBDDAT 
81 C #*CXNUOF,$BDDAT 
BEO 10$ 
EMT 53 
BIS «8IT0.R3 



GET UNUSED BITS 
BRANCH IF NO ERROR 
SET ERROR FLAG 



.•CHECK 
10$: 



.•WRITE 
20$: 



USED BITS OF RMOF FOR ZERO 

;GET USED BITS 
;BRANCH IF NO ERROR 
;SET ERROR FLAG 
ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-O BITS. 



MOV 
BIC 
BEQ 
EMT 
BIS 



RMOFI,$BDDAT 

*XNUOF.$BDDAT 

20$ 

54 

*8IT0,R3 



MOV #0.RMOF(R0) 
MOV #-1.RM0F(R0) 
MOV RMOF (RO), RMOF I 



LOAD RMOF 
LOAD RMOF 

STORE RMOF IN INPUT BUFFER 



.•CHECK UNUSED BITS OF RMOF FOR ZERO. 

MOV RMOFI.$BDDAT ;GET UNUSED BITS 
BIC #*CXNU0F,$8DDAT 

BEQ 30$ .-BRANCH IF NO ERROR* 

EMT 53 

BIS *8IT0,R3 



.-CHECK 
30$: 



USED BITS OF RMOF FOR ONE, 



001 370 


001142 


MOV 


RM0FI,$8DDAT 


.-GET USED BITS 


161577 


001142 


BIC 


/|fXNU0F.$BDDAT 




016200 


001140 


MOV 


/ir*CXNUOF,$GDDAT 


.-SETUP EXPECTED STATUS 


001140 


001142 


CMP 


$GDDAT,$BDDAT 








BEQ 


40$ 


.-BRANCH IF NO ERROR 






EMT 


55 




000002 




BIS 


*8in ,r3 





J 9 

*Z«MPeO f(M05/5/2 DSlCLS TST 1 MACRO VOA.OO 4-APR-81 01:?4:2f5 PAGE ^^-^7 
MS OFFSET REGISTEP TRANSFER TEST 



SEO 0115 

























OK600 












0ri5705 






RL7 


1/ 1 ••Owe 


001025 










01 270? 


000001 






014^>10 






000032 




\/ 1 HO 1 V 


012760 

VIC' uv/ 


000000 

www 




014616 


010260 


000032 

W W 






014622 


016037 


000032 


001142 


855 


014650 


010203 






8S4 


014652 


042705 


161577 




855 


014636 


020337 


001 142 




856 


014642 


001403 






857 


014644 


010337 


001 1 40 




858 


014650 


104056 






859 


014652 


006302 






860 


014654 


001355 






861 










862 


C14656 








863 










864 











865 
866 
86^" 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 



014656 
014656 
014660 
014662 
014666 
014672 
014676 

014704 
014706 
014712 
014720 
014724 



000004 
000240 
012706 
013700 
013701 
012737 

005003 
010037 
062737 
005037 
012737 



001100 
001276 
001466 
000016 



001 1 36 
000042 
001140 
010000 



014740 
014744 
014752 



014760 
014766 
014774 
014776 
015000 



015004 
015004 



004737 
013760 
016037 



013737 
042737 
001403 
104044 
052703 



054674 
001444 
000042 



001400 
176210 



000001 



001226 

001136 
001444 



C14732 012760 M7777 000042 



000032 
001400 



001142 
001142 



;IF NO PREVIOUS ERRORS. TEST RMOF WITH SHIFTING ONE BIT PATTERN. 
40S: 

TST R3 .-ANY ERROR?? 

BNE 70$ ;YESi; 
MOV *1.R2 .-STARTING DATA PATTERN 



50$: 



60$: 



MOV 
MOV 
MOV 
MOV 

BIC 
CMP 
BEO 
MOV 
EMT 
ASL 
BNE 



#0.RMOF(R0) .-LOAD RMOF 

R2,RM0F(R0) .-LOAD RMOF 
RM0F{R0),$8DDAT ;STORE RMOF AT $8DDAT 

R2,R3 .-SETUP EXPECTED RESULT 

*XNU0F.R3 .-CLEAR UNUSED BITS 

R3.$80DAT .COMPARE EXPECTED 6 RECEIVED 

60$ .-BRANCH IF NO ERROR 

R3.$GDDAT ;LOAD EXPECTED 
56 

R2 ; SHIFT TO NEXT BIT 

50$ .-CONTINUE IF NOT DONE 



70$: 

•••*•****«****♦***********♦*•*«»*******************•****«*****•** 



.-•TEST 16 



ERROR REGISTER #2 TRANSFER TEST 



*************************************************************** 



TST16: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

CLR 
MOV 
ADD 
CLR 
MOV 



ffSTACK.SP 
$aASE,RO 
TSTQUE.RI 
xn6.$TESTN 

RO.teDADR 

*RMER2.$8DADR 

$GDDAr 

/(rFM^16,RM0F0 



.-SCOPE CALL 

.-LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.-RESET ERROR FLAGS 
.•SETUP BAD ADDRESS 

.•SETUP EXPECTED DATA 

.•SET 16 BIT FORMAT MODE TO ALLOW 

.•"SSE" TO BE SET IN RMER2 



.-WRITE ONES IN RMER^, CLEAR AND CHECK FOR S-A-1 BITS 
MOV *-1 ,RMER2(R0) ."LOAD RMER2 

JSR PC.CNTCLR ;60 CLEAR CONTROLLER 

MOV RMOF 0. RMOF (RO) ;LOAD RMOF 

MOV RMER2(R0),RMER2I .STORE RMER2 IN INPUT BUFFER 

.-TEST UNUSED BITS FOR ZERO-FAILURE ON IF 



013737 001400 001142 



MOV 
BIC 
BEO 
EMT 
BIS 

.-TEST 'tPE". 
10$: 

MCV 



RMER2I,$8DDAT 
**CXNUER2.$BDDAT 

10$ .-BRANCH IF NO ERROR 

44 

*8IT0.R3 .-SET ERROR FLAG 

"IVC"', "LSC" FOR ZERO-FAILURE ON CS. IF 
RMeR2I.$BDDAT 



CZRMPBO ftM05/3/2 DSKLS TST 1 HACRO V04.00 4-APR-81 01 
'16 ERRO« REGISTER »2 TRANSFER TEST 



K 9 

:24:25 PAGE 1i-18 



SEO 01 U 



890 


015012 


042737 


14377? 


001142 


891 


01 5020 


001403 






892 


015022 


104045 






893 


015024 


052703 


000001 




894 










895 










8% 


015030 








897 


015030 


013737 


001400 


001142 


898 


015036 


042737 


175767 


001142 


899 


01 5044 


001403 






900 


015046 


104046 






901 


015050 


052703 


000001 




902 










903 










904 


01 5054 








905 


015054 


012760 


1 77777 


000042 


906 


015062 


012760 


000000 


000042 


907 


015070 


016037 


000042 


001400 


908 










909 










910 


015076 


013737 


001400 


001142 


911 


015104 


042737 


\U1777 


001142 


912 


015112 


001403 






913 


015114 


104047 






914 


015116 


052703 


000001 




915 










916 










917 


015122 








918 


015122 


013737 


001400 


001142 


919 


015130 


042737 


175767 


001142 


920 


015136 


001403 






92 


015140 


104050 






922 


015142 


052703 


000001 




923 










924 










925 


015146 








926 


015146 


012760 


000000 


000042 


927 


015154 


012760 


"[77777 


000042 


928 


015162 


016037 


000042 


001400 


929 










930 


015170 


013737 


001400 


001142 


931 


015176 


042737 


176210 


001142 


932 


01 5204 


001403 






933 


015206 


104044 






934 


015210 


052703 


000001 




935 










936 










937 


015214 








938 


015214 


013737 


001400 


001142 


939 


015222 


042737 


001 567 


001142 


940 


015230 


012737 


176210 


001140 


941 


015236 


023737 


001140 


001142 


942 


015244 


001403 






943 


01 5246 


104051 






944 


01 5250 


052703 


000002 




945 










946 











BJC ir*C<0PEIIVC!LSC>.$8DDAT 

BEQ 20S .-eftANCH IF ERROR 

EMT 45 

BIS #BIT0.R3 .-SET ERROR FLAG 

;TEST "LQC". "DPE" FOR ZERO-FAILURE ON DS. IF 
20S: 

MOV fV1ER2I,S8DDAT 

BIC #*C<LBC1DPE>,$8DDAT 

BEQ 30$ .-BRANCH IF NO ERROR 

EMT 46 

BIS «8JT0,R3 .-SET ERROR FLAG 

.WRITE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS. 
30$: 

MOV *-1.RMER2{R0) ;L0AD RMER2 

MOV *0.RMER2{R0) ;L0AD RMER2 

MOV RMER2(R0).RMER2I ;ST0RE RMER2 IN INPUT BUFFER 



;TEST 'TOPE 
MOV 
BIC 
BEQ 
EMT 
BIS 



JVC". 'ISC" FOR ZERO-FAILURE ON CS, IF 
RMER2I.$8DDAT 
**C<0PE!IVC!LSC>,$8DDAT 
40$ .-BRANCH IF NO ERROR 

47 

/M3IT0.R3 .-SET ERROR FLAG 



.-TEST "L8C". 'DPE" FOR ZERO-FAILURE ON DS. IF 
40$: 

MOV RMER2I.$BDDAT 

BIC **C<LBC!DPE>,$8DDAT 

BEC 50$ .-BRANCH IF NO ERROR 

EMT 50 

BIS #8IT0.R3 .-SET ERROR FLAG 

.-WRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-0 BITS. 
50$: 

MOV *0.RMER2{R0) ;LOAD RMER2 

MOV *-1 .RMER2(R0) ;LOAD RMER2 

MOV ' RMER2(R0).RMER2I .-STORE RMER2 IN INPUT BUFFER 

.-TEST UNUSED BITS FOR ZERO-FAILURE ON IF 

MOV RMER2I,$BDDAT 

BIC #*CXNUER2.$8DDAT 

BFQ 60S .-BRANCH IF NO ERROR 

EMT t 44 

BIS *8IT0.R3 ;SET ERROR FLAG 

.-TEST USED BITS FOR ONE-FAILURE ON IF 
60$: 

MOV RMER2I.$BDDAT 

BIC #XNUER2,$8DDAT 

MOV #*CXNUER2,$GDDAT 

CMP $GDDAT,$8DDAT 

BtQ 70$ .-BRANCH IF NO ERROR 

EMT 51 

BIS *BIT1.R3 .-SET ERROR FLAG 

.IF NO PREVIOUS ERROR. TEST BIT INTERFERENCE WITH SHIFTING ONE BF. 
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9<,7 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

938 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 



015254 
015254 
015256 
015260 
015264 
015264 
015270 
015276 
015502 
015510 
015314 
015316 
015324 
015350 
015332 
015540 
015544 
015552 
015560 
CI 5562 

015364 
015566 

015570 



005705 
001044 
012702 

004757 
015760 
010260 
016057 
052702 
001005 
042737 
052702 
001005 
042757 
010257 
042737 
023757 
001401 
104052 

006502 
001 556 



000001 

054674 
001444 
000042 
000042 
040000 

040000 
000200 

000200 
001140 
001567 
001140 



70S: 



80$: 



000052 
001142 

001142 

001142 

001140 
001142 



90$: 
100$: 

110$: 
120$: 



TST R3 

BNE 120$ 

MOV »^.R2 

JSR PC.CNTCLR 

MOV RMOFO.RMOF(RO) 

MOV R2.RMER2<R0) 

MOV RnER2(R0),$eDDAT 

BIT 0Skl.R2 

BNE 90$ 

BIC irSlCI.$8DDAT 

BIT #DVC.R2 

BNE 00$ 

BJC *DVC.$8DDAT 

MOV R2.*jODAT 

BJC *XNUER2.$GDDAT 

CMP $GDDAT.$8DDAT 

BEQ 110$ 

EMT 52 

ASL R2 

BNE 80$ 



ANY ERRORS'' 
YES. I 

R2=DATA PATTERN 

GO CLEAR CONTROLLER 
LOAD RMOF 
LOAD RMER2 

.STORE RMER2 AT $8DDAT 
IS SKI BEING SET? 
YES! ! 

DONT TEST SKI FOR ZERO 
IS DVC BEING SET?? 
YES.'! 

DONT TEST DVC FOR ZERO 

UNUSED BITS SHOULD BE ZERO 
ANY ERRORS?? 
NO I .' 



.•SHIFT TO NEXT DATA BIT 
.•CONTINUE IF NOT DONE 



.••TEST 17 



SERIAL NUMBER TEST 



015370 
015370 
015572 
015574 
015400 
015404 
015410 



000004 
000240 
012706 
015700 
015701 
012737 



TST17: 



0011 00 
001276 
001466 
000017 



001226 



974 

975 015416 004757 054674 

976 015422 010057 001156 

977 015426 062737 000030 001136 

978 015434 012702 000031 
979 

980 

981 015440 016037 000050 001140 
982 
983 
984 

985 015446 016057 000050 001 U2 

986 015454 023737 001140 001142 

987 015462 001401 

988 015464 104156 
989 
990 
991 
992 
993 



015446 
015446 
015454 
015462 
015464 



015466 
015466 
015470 



SCOPE 




.•SCOPE CALL 




NOP 








MOV 


*STACK,SP 


;LOAD THE STACK POINTER 




MOV 


$8ASE,R0 


;R0 = UNI8US ADDRESS 




MOV 


TSTQUE.R1 


;R1 - POINTER TO DEVICE 




MOV 


*17,$TESTN 


;;SET TEST NUMBER IN APT 


MAIL BOX 


JSR 


PC.CNTCLR 


;G0 CLEAR CONTROLLER 




MOV 


RO.SBDADR 


.-SETUP REGISTER ADDRESS 


FOR TYPEOUT 


ADD 


#RMSN.$BDADR 






MOV 


#25.. R2 


;READ RMSN 25 TIMES 





005502 
100366 



;READ RMSN AND USE THE RESULT AS EXPECTED VALUE 

MOV RMSN(RO).$GDDAT ;STORE RMSN AT $GDDAT 

.-READ RMSN AND COIPARE WITH INITIAL VALUE 
10$: 

MOV RMSN(R0).$8DDAT ; STORE RMSN AT $8DDAT 
CMP $GDDAT.$BDDAT 

BEQ 20$ .-BRANCH IF SERIAL NUMBER CONSISTENT 

EMT 136 

; DECREMENT COUNT AND CONTINUE IF NOT DONE 
20$: 

DEC R2 
BPL 10$ 



rZRHPeO RH05/3/2 DSHLS TST 
T17 SERIAL NUMBER TEST 

994 015472 

995 

996 
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30$: .END Of TEST 

••TEST 20 CONTROL BUS PARITY DETECTION TEST 



SEO 0116 



997 
998 
99<^ 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
101b 
1016 
1017 
1018 
1019 

1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 

1035 
1036 
1037 
1038 



01547? 
015472 
015474 
01 5476 
01 5502 
015506 
015512 



015520 
015524 
015530 
015536 
015544 
015546 



015552 
015552 
015556 
015564 
015572 
015600 
015602 
015606 
015614 
01 5622 
01 5624 
015626 
015630 
015630 
015632 



01 5634 
015634 
015642 
015650 
015656 
015664 
0^5672 
01 5674 
015702 
015704 
015706 
015710 
015710 
015712 

015714 
015720 



000004 
000240 
01 2796 
013700 
013701 
012737 



005037 
111137 
042737 
012737 
000402 
006337 



004737 
016037 
016037 
042737 
001415 
010037 
062737 
032737 
001002 
104067 
000453 

104070 
000451 



013760 
013760 
016037 
042737 
023737 
001410 
052737 
001002 
104071 
000423 

104072 
000421 

005737 
001312 



TST20: 



001100 
001276 
001466 
000020 



001140 
001422 
1 7777Q 
000001 

001450 



054674 
000014 
000042 
\777(i7 

001136 
000014 
000010 



001422 
001450 
000014 
-[77767 
001140 



001226 



001422 
001450 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*S7ACK.SP 
$aASE,RO 
TSTQUE.R1 
#20.$TESTN 



.SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DEVICE 

;SET TEST NUfCER IN APT MAIL BOX 



.-SETUP FOR FIRST TEST LOOP (NO ERROR) 

;'T>AR" SHOULD BE ZERO 
.•SETUP RMCS2 VALUE 



001142 
001400 
001142 



001136 
001400 



000010 
000036 
001142 
001142 
001142 



000020 001422 



5$: 

.•CLEAR 
6S: 



10$: 



.•WRITE 
20$: 



001450 



30$: 



;G0 TO 
40$: 



CLR 


$GDDAT 


M0V8 


(R1).RMCS20 


BIC 


#*CUNTMSK.RMCS20 


MOV 


#1 .RMHRO 


BR 


6$ 


ASL 


RMHRO 



INITIALIZE DATA PATTERN 
SKIP INCREMENT FIRST TIME 
SHIFT TO NEXT PATTERN 



AND VERIFY THAT "PAR" IS RESET 



JSR PC.CNTCLR ;G0 

MOV RMER1 (R0),$8DDAT 

MOV RMER2(R0),RMER2I 

BIC **CPAR,$8DDAT 

BEQ 20$ 

MOV R0,$8DADR 

ADD *RMER1.$BDADR 

BIT *DPE.RMER2I 

BNE 10$ 

EMT 67 

BR 50$ 

EMT 70 

BR 50$ 



TEST PATTERN AND VERIFY "PAR" STATUS 



CLEAR CONTROLLER 
.•STORE R.MER1 
.•STORE RMER2 
DID "PAR" RESET? 
YES! . 

SETUP REGISTER ADDRESS 



AT 
IN 



$8DDAT 

INPUT BUFFER 



IS "DPE* 
YESI . 



SET?? 



MOV 
MOV 
MOV 
BIC 
CMP 
6E0 
BIT 
BNE 
EMT 
BR 

EMT 
BR 



RMCS2O,RMCS2(R0) ;LOAD RMCS2 

RMHRO. RMHR(RO) ;LOAD RMHR 

RMER1 (R0),$8DDAT .•STORE RMER1 AT $8DDAT 

**CPAR.$BDDAT 

IS 'T>AR" CORRECi?? 
YESI ! 

SHOULD 'T>AR" Bf SET? 
YES! i 



$GDDAT,$8DDAT 
40$ 

*PAT.RMCS20 
30$ 
71 
50$ 



72 
50$ 



NEXT PATTERN 
TST RMHRO 
BNE 5$ 



.•SKIP TO NEXT 

;IS DATA PATTERN COMPLETE?? 
.•NO! ! 



1039 
1040 
10A1 
1042 
10A5 
1044 
1045 
1046 
1047 
1048 
'049 



RM05/3/2 DSKLS TST 1 
CONTROL BUS PAftJir DETE 



HACRO V04.00 
CTION TEST 



N 9 

4-APR-81 01:24:25 PAGE 13-21 



SEO 0117 



015722 
015730 

015732 
015740 
015746 
015754 

015756 



032737 
001012 

052737 
012737 
012737 
000676 



015756 
015756 
015760 
015762 
015766 
015772 
015776 



000004 
000240 
012706 
013700 
013701 
012737 



000020 001422 



000020 
000010 
0CO001 



001100 
001276 
001 466 
000021 



1050 








1051 








1052 


016004 


012737 


000001 


1053 


016012 


005037 


001140 


1054 


016016 


000402 




1055 








1056 








1057 


016020 






1058 


016020 


006337 


001450 


1059 


016024 






1060 


016024 


004737 


054674 


1061 


016030 


013760 


001450 


1062 








1063 








1064 


016036 


016037 


000036 


1065 


016044 


016037 


000000 


1066 


016052 


042737 


157777 


1067 


016060 


001402 




1068 


016062 


104073 




1069 


016064 


000403 




1070 








1071 








107? 


016066 






1073 


016066 


005737 


001450 


1074 


016072 


001 352 




1075 


016074 






1076 








1077 









016074 

016074 000004 

016076 000240 

016100 012706 001100 

016104 013700 001276 



001422 
001140 
001450 



001226 
001450 



000036 



001 374 

001142 
001142 



BIT 4rPAT.RMCS20 ;IS TEST COMPLETE?? 

BNE 50$ ;YESI! 
.•SETUP FOR SECOND TEST LOOP (ERROR) 

BIS 4fPAT.RNCS20 ;TURN ON BAD PARITY 

MOV #PAR.$GDDAT ; EXPECT ERROR 

MOV tl.RMHRO .-INITIALIZE DATA PATTERN 

BR 6$ .-START LOOP 

50$: V .-END OF TEST* 

•••»»»•»••••••••»*■••••»•»»♦••••♦•••♦•»•♦»♦»»•»»*•**•»••••••»•*»•» 

•iTEST 21 CONTROL BUS PARITY GENERATION TEST 

tST21 : 

.-SCOPE CALL 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



*STACK.SP 
$aASE,RO 
TSTQUE,R1 
*21.$TESTN 



.-SETUP FOR TEST (NO ERROR) 
MOV *1 .RMHRO 
CLR $6DDAT 
BR 20$ 

.-SHIFT DATA PATTERN 
10S: 

ASL RMHRO 

20$: 

JSR PC.CNTCLR 

MOV RMHRO, RMHR(RO) 



.-LOAD THE STACK POINTER 

;R0 = UNI BUS ADDRESS 

;R1 - POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 



.-INITIALIZE DATA PATTERN 
;MCPE SHOULD BE ZERO 
;DONT SHIFT FIRST TIME 



;G0 CLEAR CONTROLLER 
.-LOAD RMHR 



.-TRANSFER DATA TO RH. VERIFY NO 'ICPE" ERROR 

MOV RMHR(RO>.RMHRI .-STORE RMHR IN INPUT BUFFER 

MOV RMCS1(R0).$8DDAT .-STORE RMCS1 AT $8DDAT 

BIC **CMCPE,$8DDAT .-WAS BAD PARITY DETECTED?? 

BEQ 30$ • ;N0!. 

EMT 73 

BR 40$ 



;G0 TO NEXT PATTERN 
30$: 

TST RMHRO 
BNE 10$ 

40$: 



.-DONE ALL PATTERNS?? 
;N0! . 

.-END OF TEST 



;iTEST 22 RMDA.RMDC FAULT TEST 

-•♦♦♦♦*»♦******»**♦»*****♦*»*»***»**»**»*»♦**»•*•»»***»»»»»»»•»*♦ 

TST22: 



SCOPE 
NOP 

MOV #STACK,SP 
MOV $8ASE,R0 



.•SCOPE CALL 

.-LOAD THE STACK POINTER 
.-RO UNI8US ADDRESS 



'ZWMPRG W05/3/2 
T22 WDA.WC 







Ai i7m 

0" 5'0i 


00 

cOOt^^ 








A1^ 11/ 

O'O 1 :* 


A1 ^TT7 


- * • 




1 <^ 70 

lO'O 












A1 X. 1 




054c <• 


















1081 

OK 












A 1 X. 1 


A1 'S^AA 


AAAA/V^ 

000000 


i/OOOOC 


^ > 


iUo5 


A1 ^1 Ty 


0^2760 


a/vvvSa 


00005* 


^ • 


1 Aft.. 


A1 ▲I / ^ 


A1 3 7iLA 


1 77777 


OOLvOo 


Mr 


•00 J 


A1 i^l » A 

010 .'0 


r>i 0 7itA 
wlC'OO 

0 'O05' 


1 77777 

Iff f f f 


000C54 




'Ooo 
• 00' 


Al^l 

0101 ?o 


OOOOVO 




■Aw 


U'O '0*» 


A1 i»AX7 


J0005* 


<V.1 t73 




■ ueo 


AK.1 7? 


r.357X7 
UU 1 U 


* 77777 

I f ' f t f 




'MP 












1090 


A1 <t5A5 






• ^ 3 c 


A* ( 

a< . 




A1 n 
U ' Oc 1 U 


A5P7X7 


1 7'»"»77 








W ■•V 








1093 


016220 


104042 








1094 












1095 

Ty96 


C 16222 




















1097 













• 10 

'W2 



*S'3uf 
•22.f'€S»i^ 

ONES IN WDA 

«-i.lMDA(R0) 
••'.IWDC'OC' 
W1>A(»0).WV>AI 

•-'.8if>A: 
'OS 

4.2 



S£0 0118 



.1(1 = POINTER TO DEVICE 

.-.SE^ TEST HJm^ IH APT «AlL BOX 

:G0 CLEAR CONTROLLER 

,R«DC-READ AND 'EST fOR S-A-0 
;L0AD RMDA 
.-LOAD RHDC 
.-LOAD RMDA 
.LOAD RRDC 

.•STORE RWA IN INPUT 
.•STORE R«DC IN INPUT 
;IS ANV REGISTER ALL 
;VES. : 

;SET JMUSED BHS 
;rES. 



B'JfFER 
BUFFER 
ONES?? 



D:S« K,l>fH'>% 'R4WSFE«) TEST 



098 
099 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 

115 
116 
117 
118 
119 
M20 
1121 



016222 
016222 
016224 
016226 
016232 
016236 
016242 

016250 
016252 



016256 
016264 
016272 
016300 
016304 
016306 
016312 
016316 
016324 
016326 

016332 
016332 
016340 
016346 
016354 
016362 
016364 
016372 
016576 



000004 






000240 






012706 


OOMOC 




015700 


0C'2^t 




013701 


001466 






000025 




005005 






004737 


054674 




012760 


)77777 


ooooc-t 


012760 


000000 




016037 


000006 




005737 


001142 




001412 






005037 


001 uo 




010037 


00i:36 




062737 


000006 


00' '56 


104020 






052703 


000001 





012760 
012760 
016037 
025727 
001413 
012737 
010037 
062737 



000000 
}77777 

000006 
001142 

]77777 
00r56 
000006 



000006 
000006 
001 T42 
",77777 

oor.4C 



S'.OPf 



•S'ACc.SP 
»AS£.*& 

's»aoE.Ri 

•25.fTfS'N 

ft5 

k.:n'clr 



.SCOPE CALL 

.-LOAD THE STACK POINTER 

;fl0 = LWI8US ADDRESS 

;R1 = POINTER TO DEVICE 

.-.-SET TEST NlfBER IN APT MAIL BOX 

;R5 = ERROR INDICATOR 
;G0 CLCAR CONTROLLER 



;^;'f JrfS IN HWA, -HEN yRITE ZEROS. READ BACK AND CHECK FOR S-A-1 BITS 



BED 

BIS 
ZEROS 

BEa 

ad:* 



«O.Rr«>A{RC) 
WDArftO).i8DDAT 

taoDAT 

lOf 

KiDDAT 

R0.S8DADR 

MMDA.S60ADR 

20 

•eno.R5 



;L0AD RHDA 
;lOAD RMDA 

.-STORE R«DA AT S8DDAT 



.-SET ERROR FLAG 



IN R«DA. THEN yPITE ONES. READ BACK AND CHECK FOR S-A-0 BITS 

«0,RWA(RO) .-LOAD RMDA 
#-?.R»A(RO) .-LOAD R«DA 
RnDArR0).IRODAT .-STORE m>A AT tBDDAT 
l8DDAT.f-1 
2Cf 

#-1,»GDDAT 

RO.SBDAOR 

#RnDA.ieOADR 



'23 DISH ADDRESS *«*NSfja *? 



12? 
123 
12^ 
125 
126 
127 
128 

'29 
150 
131 
132 
133 
13A 
135 
136 
137 
'38 
139 
KG 
'4,1 



0"'6A04 
016406 

016^.12 
016414 
016416 
016422 
016422 
016450 
016454 
01644? 
016446 
016450 
016454 
016460 
016466 
016470 
016472 
016474 



104021 

052703 CO-.-C-:? 

005705 
00^027 

0^270? OOOC-O" 

012760 000000 

010260 000006 
016057 000006 
025702 001 
001410 

010257 001 '40 

010057 001^56 

062757 OOOOC* 0C3r 

1040?2 

006302 

•001355 



016474 

016474 000004 

016476 000240 

016500 012706 OCTOC 

016504 015700 001276 

016510 013701 001466 

016514 012737 000024 rd£*. 













1U3 


016522 


005005 






1U4 


016524 


004757 


054674 




1145 


016550 


005057 


OO'UO 




1146 


016554 


010037 


001'56 




1*47 


016540 


. 062757 


000034 


0C"?6 


1148 










1149 










1150 


016546 


012760 


1 y7n7 


000054 


1151 


016554 


016037 


000034 


00' H? 
00^'4? 


1152 


C16562 


042757 


^777 


1153 


016570 


001405 






1154 


016572 


104154 






1155 


016574 


052705 


000-001 




1156 










1157 










1158 


016600 








M59 


016600 


012760 


y77777 


0000 !<. 


1160 


016606 


012760 


000000 


0OOC54 


1161 


016614 


016057 


000054 


0C"4? 


1162 


016622 


042757 


17fc©00» 


001 "4? 


1163 


016630 


001403 






1164 


016632 


104057 






1165 


016654 


052703 


OOOOC' 




'166 










'^67 
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•8]'*.»5 ;S6T ERROR FLAG 
N- * BIT PAT'tM»« IN m>k. READ, AND CHECK FOR STOCK BITS 

R! '.mV BIT TEST JF ANY ERROR 
5C« 

#1.R2 ;R? = TEST PATTERN 

•O.WA'.RO; ;:OAD RHDA 

Rt.R«DA(»CJ ;.0A0 RMDA 
i»CA^R0).ieDDAT .-STORE R«DA AT I8DDAT 
taODAT .A^ 
401 

««?.fGrDA' 

&C,ie5Aoe 
fRWA.iaDA^St 

s^'' .-Shift to NfxT BIT 

5:i .CONMNUE if R2 NOT ZERO 



rt<>;REr -i'.if^ER transfer test 



.-SCOPE CALL 



#sTA:t.sp 

IftASF.oC 

'SToue.R' 

»2<..fTESTS 
R3 

PCCNTTlR 

ta>DAT 

RO.IBOADS 

)c.seoA]>R 



RMDC AND VERIFY 
*-T.R«DC(RO) 
RrVC<R0),t6DDAT 
••CKNUOC.ttODAT 

5t 

154 

«Bro.R» 



cOAD THE STACK POINTER 

RO ^ UNI8US ADDRESS 

R1 = POINTER TO DEVICE 

.SET TEST Nl>BE9 IN APT MAIL BOX 

.-RESET ERROR FLAGS 
;G0 CLEAR CONTROLLER 
.-LOAD EXPECTED 
;.0AD REG ADDRESS 



THAT Lf*JSED BITS ARE ZERO 
.-LOAD RHDC 

.-STORE WDC AT $8DDAT 

.•CLEAR ALL USED BITS 
.-BRANCH IF NO ERROR 



.SET ERROR FLAG 
RWDC. THEN yRJTE ZEROS. READ AND CHECK FOR S-A-1 BITS 



#-1.>»OC(R0) 
#O.RflDC(RO) 
RflDCfR0),$6DDAT 
*XNU0C.$8DDAT 

37 



LOAD RMDC 
LOAD RMDC 

STORE RWDC AT SBDDAT 
CLEAR IMJSED BITS 
BRANCH IF NO ERROR 

.SET ERROR FLAG 

READ AND CHECK FOR S-A-0 BITS 



2^ D£SI«EO C»u:^a ^ft'^NS'fs 'tS' 



0CV42 



0 10 ' 



loo 








1 1«LO 






foruwi 

CvWVU 


1 1 7n 

1 1 f u 


U 1 oo*»o 


01 ?7A/i 


1 77777 


1 f 1 






WW 3* 
1 77777 


117? 


ni AAJk? 


V7C ' 3' 




U lOO' u 


ni 77X7 


1 7a 


'M<^7A 
J lOOr 0 


r)'}X7X7 
\JCJ J' 


W" '"•J 


117^ 


ni A7Ai 






1 1 7A 


fM A7nA 
\J 'Of uo 






1 1 77 






00<W>7 


1 1 711 








1 1 70 








1 IRrt 








11R1 

' 1 O 1 








111*5 
< 1 oc 


01 A71A 


vv ' wCO 




1 1ftY 






iVkV ' * 

^ / - 


1 m/. 
1 1 o*» 








1 1 AC 








1 1 AA 


ni A7?i 






1187 




U > C r 




^ iM 




V < UCOv 




1 lAQ 


ni A7V» 

V ' Or JO 


01050T 

V ' \JCvJ 




1 1QO 


01 A7Z.0 

y 1 O' 


(\LP70X 

r U ^ 


1 7(M)C. 


1 101 


01 67^^ 




0OOG34 


^ 1 05 
1 'O^ 


U 1 Or 7£ 






V ' O r 






110^ 


ni#»7^o 

w 1 O r Uw 




C/G1 ''4' 


1 1 


U 1 Or 0*< 






1 1 T\J 


W ' D r wo 


00040P 












1 198 


016770 


006502 




1199 


016772 


001 554 




1?00 








1201 


016774 






120? 








1203 













w ^ 


jr— 1 BMh'' BO) 




WC(R0).S8DDAT 


eis 


«il%Ul>C.f800AT 




»-1.»GDDAT 




SGDOAT.IBDDAT 


TIC 




f 


40 




«e. " .«? 




:» AN* |t»ROeS 


Tf • 


««5 








»^.»2 



LOAD RMDC 
LOAD RWC 

STORE RMDC AT SeDDAT 
SET UNUSED BJTS 
LOAD EXPECTED RESULT 
IS RHDC ALL 0NES^?2 

vES 

SET ERROR FLAG 



;tJ2 = TEST PATTERN 



w ml"** SHIFTING ONE 

•C*- #C.R«DC(RO) 
•Cv R2.RP»C{»0) 
•C. R2.R3 

e:: •wu)c.»5 

•Vk «F«>c(R0).ieDDAr 

I8DDAT.R5 

BEC sot 

R5.f<JD0*T 

dR eot 

AS. R? 
BNE 50S 



LOAD RMDC 
LOAD RWC 

R5 = EXPECTED RESULT 
CLEAR ANr LMUSED BITS 
STORE RMDC AT SBDDAT 



.-SlClP TO NEXT 

.-SHIFT 70 NEXT BIT 
.-CONTINUE IF R2 NOT 



ZERO 



k.ECiAL RECrS'ER TEST 



120A 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
V15 

1214 



016774 

CI 6776 
017000 
017004 
017010 
017014 

017022 
017026 



01 7052 
01 7032 
017036 
017044 
01 7052 
CI 7054 



000004 
000240 
012706 
013700 
013701 
012737 

005037 
012702 



004737 
016037 
042737 

001411 
0C5^?7 



'SV5 



001100 
001276 
001466 
000025 

001140 
000000 



054674 
000014 
177775 

001 '40 



00V26 



SCOPE 
NOP 

»*0^ 

\R 



*S- AC«,SP 
I8ASE.RC 
'S'CWE.R' 
»?S.STf STN 



»GDOA' 
#C.R2 



•IlR* 



:c"4? 



;'^f4£< ANi; ✓fS'iF' That 

IS: 

pc.cntclr 

^C^ RWEfil 'R0/.S8DDAT 
By ••ClLft.teDDA^ 



20» 



.•SCOPE CALL 

.•lOAO THE STACK POINTER 

:?0 - JNI8US ADDRESS 

;R1 - POINTER TO DEVICE 

;;SET TEST Nlf«ER IN APT MAIL BOX 

;"ILR" SHOULD BE ZERO 
;R2=REGISTER INDEX 

STATUS IS ZERO 

;G0 CLEAR CONTROLLER 

.•STORE RMER1 AT SBDDAT 

.-BRANCH IF ILR IS RESET 
.-SETUP GOOD DATA. REG ADR 



::wpBO W05/5/2 ssitLS 's* • 

T25 iLLtGAL RCGISTf«» »£S' 



E 10 



-EO 0121 



12^5 C 


1 '060 


0 '003' 










■A' 

, a 




^ "31 A A1 




AA 37X7 

1 Av 
0*»tc4 










• "■ » 




i<r 1 ' 3i 


7A73 










( M* 




1^ i6 Ui 


f\)fH 














1 5ia 


















V21 01 




























• 
• 




t" b? 
*• » .•'3 


1 '5^'^ n^ 
1222 01 


7 A 7a 


A 1 AAA I 










^ • 


1225 01 


71 AA 

^100 


/"lAAOA* 
UbU^US 
















71 AO 


r 1 X7/.A 

5'40 
















71 A*. 
71 1 3 


/* 1 X 7/- A 


(wv*rf^A 

71 1/. 










( Bfi ( r • 3 •« ' CP ) 


'22o 01 


A1 3717 








^ • 


mi.(.\. f BB^C ' 


71 OA 

'1 cO 


A1 3717 


AATIAT 


-'• • • 






• 


•^V « C wt Vi C 


V^O 0 


71 3A 

/'I cO 


AACAA/. 














71 ?A 


ft337r.3 
Uct 'Uc 


ftj V«* 1 ' 
UViA. - 














71 TA 


AA1 /VM 

UU"W^ 












3»» 


1 )Zi m 


71 

'1 So 


1111 A/. 










•'3 


a* , ba 


1252 01 


71 /.ft 


J 1 U*» ' 3 










■ 






71/.3 


f 1 3A * 7 










■if 




1 ^><. u ' 


7' A<» 


ftl 3At7 

J CO 3 ' 










MT 


"p • f fi&.f 1' 




7H3 


Uw«» O 










U 




c 50 U 1 


71 C/. 


0127-6 


r ^ 7' * y 






c 

- a 


w ^ 




ciO Ul 


71 Aft 

' lOU 












i • ' 




71 A3 
















ni 

U 1 


71 A3 


'^1 3*. 77 
w 1 CC5' 


I'lrv r 










^.p J • r SB jf r • ^ 


' c Jt' u 




01 7 












CP • FbB,<Fr 


1 ?^<*i ni 

' c "tU u 


71 7^ 


UCUCC ' 

■* ftl ftft I 
1 U UU > 












• — — ■ <- c 

so« 




71 7* 














73AA 


ft 1 ft H 7 

U ' U 5 5 ' 


:o' * 3'. 








MT 

• 


4M8DADA 


10/1 n1 


73ft/. 


1 ft/. A 7/. 










( w 




1244 01 


' cUO 


000503 














1 CHP 


















1 A1 
IrHO Ul 


731 ft 

' C I U 














• * • t ^ # ^ovt/^ 


U 1 


731 ft 


ftl Ar T7 

U • Ov J ' 


' f J i , 










1 3/. 7 O' 


751 A 

' c 1 0 


ftA?7^7 














<Jc J' J' 


Oftl ' f ■ 
UV 1 ••v 


. / « • 






I- lap 




73'?? 












HOC 


1 c jU, U 


' Cj*> 


ft1ft7<7 

U 1 U 3 3 ' 










44r . 






7?<'.ft 


U jC 'J' 










&' • 




13^3 ftl 




Uv ' UVc 










(M 




'Cj3 Ul 


73Cft 
^c3U 


1 ftAftAC 

1 y<iU03 










( «* 




1 3CA 
1 c3*» U 


73^3 


uw*»u 










(•6 

If 


8C-I 


Irji Ul 












. B 






U 


73^/. 
' C 3*t 


1 U*>vOO 










f * 




1 c jO 


















1 3^7 












a't • 

Z « B 






iCiO U 


73^A 














1 3CO ft 1 
1 c3t U 


73^A 

' c 30 


ftA57n? 
UOc ' Uc 


ft/WiTSP 
wWWC 










1 3Aft ftl 

1 ecu U 1 


73A3 
t COC 


ft337ft3 
Ucc 'Uc 










'MP 




ft 

' cC 1 U 


f cOO 


1ft1 3A1 
1 V 1 CO 1 












vB 


1 ftl 

icoc Ul 


737ft 












a 


1 TQJ 


1267 0' 


\7272 


01 3746 


000004 




• 






ERPvf C.-(SP> 


1268 0^ 


7276 


013746 


000006 










EWi^C*2.-(SP> 


1269 0' 


17502 


012757 


017400 


0000:4 






«i30».ERft^f f 


1270 0' 


17510 


012757 


000500 


O0OO06 

001*4: 






#P»6.ERPi/EC»2 


1283 01 


7516 


052737 


000002 








1284 0' 


17524 


012702 


000054 










•S4,»>2 



R3=«fG ADDRESS 

;PUSh ERRVEC on STACK 

;;PUSH ERRVEC»2 ON STACK 
SETUP fO« BUS TIMEOUT 

.fi4- REGISTER VALUE 



.•SELECT DRIVE If RMCS2 
.-.^JTE TEST REGISTER 

;;POP STACK INTO ERRVEC*2 
i^POP STACK INTO ERRVEC 

.DvJWv RT] ADDRESS 
.•RESTORE PRIORITY 

.-.-POP STACK INTO ERRVEC»2 
;;P0P STACK INTO ERRVEC 
.•WERE AtL REGISTERS READ?'' 
;*ES . 



.'STORE RMER1 AT S8DDAT 

;IS "ILR" OK?? 
;VES 

.-SAVE ADDRESS 

.SHOULD "iLR" BE SET?? 

;»ES: ' 



..•INCREMENT INDEX 
;MNE TO TRY RH70 ? 
.•BRANCH IF NOT 
.-BRANCH IF ALREADY CHECKED 
;;PUSH ERRVEC ON STACK 

.-.-PUSH ERR>/EC*2 ON STACK 
.•SETUP FOR TIMEOUT 

;SET ILR 

.-START AT INDEX 54 IF Rh70 wITH 22 REG 



'2S Illegal REGISTER 'ES^ 



V85 
1286 
1?87 
'288 
1289 
1290 
1291 
1292 
^293 
'2^ 
1295 

^296 
1297 

1298 

^299 

^301 
1302 



Ol735ff 
017356 
017344 
017352 
017354 
017360 
017364 
017370 
01 7374 
01 7376 

017400 
017404 
017406 
017406 
C17412 
0'7416 



01276C 
016037 
042737 
001002 
012702 
012657 
012637 
022702 

101410 

000615 

012716 
0000C2 

012657 
C'2657 



017416 
017416 

017420 
01 7422 
017426 
01 7452 
017456 



000004 
000240 
012706 
013700 
013701 
012737 



COC'050 
177774 

00005C 
•D00006 
OOOX^ 

ooa'4 



000004 
000006 



oonoc 

001276 
00^466 

000C26 



1305 








1304 


01 7444 


004757 


054674 

001156 


130^ 


017450 


010C57 


1306 








1307 








1308 


01 7454 


012760 


OOOOC' 


1309 








1310 


01 7462 


004757 


054674 


1511 


017466 
0174 74 


016037 


OOOOOC 


1512 


042757 


1 7777t 


1515 


017502 


001405 




1514 


017504 


005057 


00^4: 


1515 


017510 


104137 




15I6 








^517 


017512 






1518 
'519 























• 


^ • 


■> ' ' . « 




« 


*" * • 

_ _ _ _ 










' -* ' 








- 


* »- 


^ • 










t- 














(A 




»-»: 












■ - 
• 



















•4:1: 








?t 




• • 








-1 ^ ■ 




























































'ft 


w*. 










Si 


















til* 




■'.1 





f 10 



9:f 

#5:. ft? 
sp -.fwvf r»2 

'4:$ 
•:i 

•'"■1. SP/ 



.SET EXTEND ens 



«)FAO THE EXTENDED BITS 
CHOP Off 

BRANCH IF OH70 WITH 22 REG 

OTHERWISE NOT A Rn70 OR RH70 WITH 52 REG 



DONE AIL TESTS 
•ES. . 



;Dl#Wv RTI ADDRESS 
.RESTORE PRIORITY 

;;POP S'ACK INTO ERRVEC 

;;POP STACK INTO ERRVEC»2 
.END Of TEST 



af^fT iC B« :sr TEST 



.•SCOPE CALL 

•S'A(K.S*» .-iOAD THE STACK POINTER 

IBASE.RC :R0 = l#^I8US ADDRESS 

HT*jf ;R1 ^ POINTER TO DEVICE 

#26.1TfST«» ;;SET TEST NLMBER IN APT MAIL BOX 

»»C.CNTC.R ;&0 CLEAR CONTROLLER 

RCMDADR .-SETUP REGISTER ADDRESS FOR MSG 



i/E anc vfRif* ^ha- go is reset 

•GC.RWCSTRQ) .-LOAD RHCS1 



PC.CN'C.R 
Rf«(S'fRC;.«JDCAT 

•Of 

»<iDC*' 

' \7 



.•GC CLEAR CONTROLLER 

.-STORE RMCS1 AT S8DDAT 

.-BRANCH IF GO IS RESET 



;END OF TEST 



'A'Uy.Ur »<ODE ^EST 



•520 



017512 
017512 
017514 
01751^ 
01 752? 
0^ 7526 
C'7552 



00000< 
000240 
012706 
015700 
015701 
012^57 



001 'OC 
00' 276 
001466 
000027 



001226 



'"jpf 
NCA 



•S^ACr.'^P 
»BASf .RO 
'STi.jE.»' 
*2".l^f /N 



.•SCOPE CALL 



;lOAD the stack POINTER 
.RO = LWI8US ADDRESS 

POINTER TO DEVICE 
TEST NUMBER IN APT MAIL BOX 



.R' - 
.-.SET 



V DIAGNCS'K "Cf-f 'El' 



'52' 


C'7S40 


010C37 










1522 
'323 


01 7544 


062^37 


coc J- 






■ 


017552 


CO50C5 










'324 














1325 










, • t • • • • 
. • • - - ^ 




'326 


017554 


004757 


2546 








'527 
'528 
'329 


017S60 
C'7566 


OI6O37 


&00C24 








042757 


» • • 

V > *•> 






017574 


OOU05 










1530 
'351 


017576 


005C3'' 

"04075 


00"": 








017602 








f ■* 


1532 














1333 












•'334 


0176C4 








•:»• 




153S 


017604 


01 2760 


0OOOC1 


0OC<24 






1336 


017612 


012760 


«oooox 


DOOC^* 
OC'W? 






'337 


017620 


016057 


000024 






1538 


017626 
0' 7654 


042737 


^ 7777t 




«*: 


1359 


001405 










1340 
'341 


CI 7656 


00505? 


0C114C 








01^642 


1040^6 










1342 


017644 


052^03 


COO-X' 








'345 














'544 












w: 


'545 


017650 












1546 
'547 


017650 


012^60 


oooocc 

00000' 


0OOC24 






01 7656 


012760 


000C24 






1548 


017664 


016057 


000024 


001*42 
C-C'^.? 






1549 


01 7672 


042737 


177776 






1550 


017700 


001006 










1551 


017702 


012737 


0000c • 








1552 


017710 


104C77 










1555 


017712 


052 7C 5 










1554 














1555 










vc 




1556 














1557 


017716 








Vi 




1358 


017716 


005705 








m » 9 


1359 


017720 


001027 








ft* 


1560 


017722 


012702 


000002 








1361 


017726 








-i 






01 7726 


012760 


000000 


c-o::2«. 






1562 


017734 


010260 


000024 








1565 


017740 


016057 


000024 
'7777t 


X"4^ 

0C''<.> 






1364 


01 7746 


042757 






1365 


017754 


0O1407 










1366 


017756 


010257 


001174 
00" 7<. 

.00' 140 








1367 


017762 


010257 








1568 


017766 


005057 
104100 








1569 


017772 








1370 














1571 














1572 


017774 










1575 


017774 


006302 








A-. 


1374 
1375 


017776 


001355 










020000 












1376 















G 10 
f-AGE •»-27 



S'..te:'A:«j .-Sf Tc*» «>f&IS*ER ADDRESS 

?i» ;!MTJAi.lZE ER«0*» Fl*GS 

»hA» "t)»lD" IS RESET 
p:. .-co CLEAR CONTROLLER 

;<^" ««:... KiODA* .-STORE RMMR1 AT S8D0AT 

sew A' 

• » .wanch if "dwd" is zero 

Ij^:a' 

tn>" uSIVa REGISTER TRANSFER-VERIFy 'DWD" NOT S-A-1 

»0»«.R^'fRC; ;4.0AD RWRI 
»C.«WHRi'»0) .-lOATi R^flRI 

RJW '»0-.KCDA» .-STORE RfWRI AT $8DDAT 

^'-.» .-8RANCH IF DMD NOT S-A-1 

IGCDAT 

^.":.R5 ;SE1 ERROR FLAG 

■>««>'• JSING register TRANSFER-VERIFr "DMD" NOT S-A-0 

#C.RWR1'RC .-LOAD RnWI 
*D«D.R>W RO) .-LOAD RWR1 

flWRi {R0).l8i>DAT .-STORE RMMRI AT $8DDAT 

•*:D^.lfiODAT 

!:i .-BftANfM IF DMD NOT S-A-0 

*^»C,»GDDA' 

7T 

.01 .SET ERROR fLAG 

fRR2R. Tf-" t3ft en INTERFERENCE WITH SHIFTING 



05 

•e.'^'.R? 



AN* ERRORS DETECTED?? 
vES. : 

IMTAIlIZE data PATTERN 



#C.R»WfRC) .vOAD RfWI 

R2.Rf«Ri 'RG)"-^ ..OAD RWR1 

Rff»»' (R0).»6I/DAT .-STORE RMMRl AT $8DDAT 

r-'.DWD.tBDDA* 

SO* .-BRANCH IF DW NOT SET 

R2.»'«»>C ;SAVE DATA 

R2.»T»»>C .SAVE DAM 

tGDDAT ;DnD SHOULD BE ZERO 

•oc 

LATA e:' AND 'ONTINUE TEST IF NOT DONE 
R2 

;FND 6f TEST 



C20000 
020000 
020002 
02000* 
020010 
0200U 
020020 



00OOO4 
00024C 
012706 
013700 
C13701 
012737 



uC-'2't 
00^46t 
0000 3C 



•378 








*379 020026 


004737 
010037 


054674 




1380 020032 
^5«1 020036 


OOr 36 




062737 


000012 




^382 020044 


X5003 




1383 








1384 








1385 020046 


012760 


OOOOC^ 


::"4;r 


1386 C20054 


016037 


0000^2 


1 387 020062 
•388 020070 


042737 


16777^ 


x*:4^ 


00'405 






1389 020072 


005C37 

104101 


OOIHC 




•390 020076 






1391 020100 


C52703 


0O0CC1 




1392 








1393 








1394 020104 








1595 020104 


012760 


0000C1 


000024 


1396 020T12 


012760 


OO^yOl 


ooo-:** 

0C1'42 
001142 


1397 020120 


016037 


.QdOC-12 


1398 020126 


042737 


1399 020134 


001006 






1400 020136 


012737 
'04'02 


0100O0 


0CV4C 


1401 020144 






1402 020146 


052703 


0000C2 


■ 


1403 








1404 








1405 








1406 020152 








1407 020152 


005703 






1408 020154 


001057 






U09 020156 


016037 


00OC12 




1410 020164 


042737 


}77t77 


OC'U? 


1411 020172 


001403 






U12 020174 


005037 


001 HO 




1413 020200 


104135 






1414 020202 








HI 5 020202 


012702 


00000' 




'416 020206 








020206 


012760 


000001 


000024 


1417 020214 


010260 


000024 




1418 020220 


016037 


000012 


001142 
001'42 


1419 020226 


042737 


}t7777 


1420 020234 


005003 






'421 020236 


032702 


001000 




U?2 020242 


0C*402 







4 

1 



H 10 

SCO 01, A 



..TPf .-SCOPE CALL 

•*C. »S'4-*.SP .LOAD TMC STACK PQINTfR 

leAif.aC ;«0 = i^I9US ADDRESS 

•C. 'SOv<.»^ ;R1 - POINTER TO DEVICE 

»30.l'fS'S ;;SET TEST NlMBER IN APT K^lL BOX 

.'>fc P-.CN'C.R ; GO CLEAP CONTROLLER 

•C. wC.iai^ADft .■R0=REGISTER ADDRESS 

k: •ws.ieoADR 

'.fit «)3 .■R3=ERR0R HAG 

HX>i AND A^U^ *HAT 'HOl" IS ZERO 

•r.» »D»«.R#f«l (SiO) ;lOAD RWRI 

"C* WSCRO.ieODA^ ;S»ORF R«DS AT $8DDAT 

e;. »-:«OL.saDDA» 



be; 



W9 

»>:iCDAT 



&:s B5 .-ser error flag 

>;S'f^AN:i uM* RfAI^r AN^ yERIFr THAT "^lOL" IS ONE 

•O. #0»t).RfWR1 (RO) -LOAD R«hR1 

•<C# #0«P »M>.RWR1(R0) .-LOAD RW 

HI, WSJROJ.ieODAT ;STOftf WDS AT J8DDAT 

e;- r-rnoL.ieoDAT 
•t; <^ .»GDOAT 
BIS •b:i\r5 

e*frfIX'^ ERROR. .ERI'" ^'JlL/IE i^A^JD IS RESET AND 
OR Br IN'ER^ERfSC* 

ft! ;ANV ERROR DETECTED?? 

8Nf 'Of .-^ES : 

WS.'RO/ .»8tDA' .-S^ORE RMDS AT $8DDAT 

%fi 251 .-BRANCH IF VV RESET 

»\S'2 .'INITIALIZE DATA PATTERN 

wCrf #D«D.RPWRO> ;LOAD RW1 

R2.RH«R'fR0) .'LOAD RMMRl 

•<0# !WDS(R0^.$8DDAT ; STORE R«DS AT S8DDAT 
SK t-CMC. .»BDDAT 

:lR R3 .-SETUP EXPECTED 'WOL" 

e:^ «^.'R,P2 

4'.S 



mol test 





0?0?t4 


DSP 70 3 








OP0337 


WW *4 






UV "•V 7 






VpTC vc 70 










010^37 










■I 429 








TV 


















\JC\JC ' w 


04P70P 








W v < W% 












020302 


006302 








00140^ 




1437 


020306 


052 7C2 


0000c* 


'458 


020312 


000^55 




^439 








1440 


0203U 






1441 








'442 









HAW. 



f ' 



♦,.1: 



a: 



be;: 



I 10 



SE«* fcA^^ffts 



«>? 

5:s 



SCO 012s 



•WOt" SHOULD Be ONf 
IS OK?? 
»ES.: 

SA*E TEST PATTERN 



;DONT SMJFT D»1D 

;D0NT TRUNCATE TEST 
rSMlf T TO NEXT BIT 
.8AANCH If DONE 
.KEEP DH> ON 
.-CONTINUE 

:fH[> Of TEST 



•ES' 



020314 
020314 
020316 
020320 
02032A 
020350 
020334 

1443 

1444 020542 

1445 020544 

1446 020550 

1447 020556 

1448 020562 
1449 

1450 

1451 020566 

1452 020374 

1453 020402 

1454 020410 

1455 020412 

1456 020414 
1457 

1458 

1459 020420 

1460 020420 

1461 020426 

1462 020434 

1465 020*42 
1464 020450 
'465 020452 

1466 020460 

1467 020462 
'468 

1469 



0OOOC4 
0O0240 
012706 
015700 
015701 
012757 

005005 
010057 
062757 
005057 
004757 



012760 
G16057 
042737 
001405 
104104 
052703 



012760 
012760 
016057 
042737 
001006 
012757 
104105 
052703 



ooroc 

00^2^6 
001466 
0OOC5' 



001^56 
OCOO'2 
001 '40 
054674 



OOOOCI 
0000*2 
173777 



OOOOC' 



OOOOCI 
0000' 1 
000012 

175777 



• ( 



•c. 

a:: 

' ;• 

by 
%e; 

fM' 



*S*AC«,SP 
l8ASf .»C 
•S»0U€.B1 
•31.1TESTN 

P3 

SGD&AT 

pc.cntclb 



.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;R1 = POINTER TO DEVICE 

.•.•SET TEST NlfBER IN APT MAR BOX 

;R3=ER«0fl FLAG 

.•SfTiF REGISTER ADDRESS 

.•yRL SHOULD B£ ZERO 
.•GO CLEAR CONTROLLER 



PIODE AND VERIFY 'WL" IS ZERO 

Wf>.»WW»HRCJ .-LOAD RffWI 

RnDS{RO).SeDDAT .-STORE RWS AT tSDDAT 
»*Crf»L.ieDDAT 

'0« .-BRANCH IF WRL IS ZERO 

* Q4 

•BIT0.R3 .-SET ERROR FLAG 



000024 
000024 
00**42 
0C"42 



•',F ' 

v9 • 



004000 001 '4: 

0OOOC2 



n6;N'ESAN''E t^rf protect and verify •^JRL" IS ONE 

«*:'^ #0«D.R«HR1(R0) ;L0AD WW 

«C.r »D«.'»M>.RWR1 (RO; .-LOAD RMMR1 

RI«OSCRO;,$eODAT .-store RWS at $8DDAT 

hi: »-ci#»L.ieooAT 

BNE 20t :BRANCH IF URL IS NOE 

")C'< «krf)L.SGDDAT :URL SHOULD BE SET 

E«T 'C5 

9:S aBITI.R' .SET ERROR FLAG 

V. ^-Rf^;?/- error, tes^ for bit interference on 'njp' 



J TO 



H70 










020466 


005 70 5 




U72 


020470 


00*045 






020472 


012702 


OL" ' 


K74 








U75 








*477 


020476 






020476 


0V760 


ooc-cc 


U78 


020504 


010260 


0C<0<"2<, 


K79 


020510 


016037 


ooocu 




020516 


0^2717 


17377-' 


Kd1 


020524 


005003 






020526 


032702 


0000* c 


K63 


020532 


001402 




K84 


020534 


052703 


00400C 
00"-? 


H85 


020540 


020337 


K86 


020544 


001405 




•A87 


020546 


010337 


0Oi'4C 


H88 


020552 


010237 


oc^ ' 74 


K89 


C20556 


104 ''06 




U90 








K91 








U92 
'495 


020560 






020560 


042702 


OOOCC' 


K94 


020564 


001002 




K95 


020566 


012702 


00000' 


1496 


020572 


006302 




U97 


020574 


001403 




U98 


020576 


052702 


qoooci 


1499 


020602 


000735 




1500 








150i 


020604 






150? 








1503 









020604 
020604 
020606 
020610 
020614 
020620 
020624 

1504 

1505 020632 

1506 020636 

1507 020640 

1508 020644 

1509 020652 
1510 

1511 
1512 

1513 020656 

1514 020664 

1515 020672 

1516 020700 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
005003 
010037 
062737 
005037 



012760 
012760 
012760 
016037 



001 IOC 
001276 
00U66 
000032 

054674 

001136 
000042 
001^40 



>E0 0126 



ANV OTHEI) £(<R0R7? 

ns. : 

INITIALIZE DATA PATTERN 



:4*A *: ;vf«*. kfV) wvs AND VERIFY uRl 



%:• 
■c. 



, a: . V. 



e;: 

SNE 

BIS 



ffSmD.Wmi (RO) : LOAD (WW 1 
a2.«W*»1(»»Ci .-LOAD RWR1 
(W:>S'ftC .leDDAT .-STORE RMDS AT $8DDAT 
•"C^i-.ieODA* .CcEARUP RECEIVED "VlRL" 
.-GENERATE EXPECTED "WiL" 



.WRL SHOULD BE SET 
;IS WRL OK?? 
;VES: ; 

.SAVE EXPECTED 
.•SAVE DATA PATTERN 



.DONT SHIFT DW 

;DONT TRUNCATE TEST 

; SHIFT DATA BIT 

.-EXIT IF DONE 

.•KEEP DIAGNOSTIC MODE ON 

; CONTINUE TEST 

;END OF 'EST 



».R2 
<.01 

Ml .R3 
«i?.l8tDA' 

*>:% 

•J3.1&DD*' 
«2.f»W»C 



'c vf «• LATA er 



•I*«.»2 

63 

92 



»A^.T -EST 



O0'i3t 



LlCPf 
NOP 



#STA'.it.SP 
IftASE.RC 
•ST0-_€.R1 
*?2.irESTN 

O'l.CNTCLR 
tr3 

RC.IBDADR 

«RfVR2.SeOADR 

IGDDAT 



00000^ 000024 

000000 000042 

000000 0000*4 

000042 001142 



;SE' AND frESET »VMNTENANCE DRIVE 

;'.^.-:<f-AT-ONE- 

PVV «DN>.RmR1(R0) 
■lOv #0.RnER2'R0> 
"10/ #0.R«ER1(R0) 
mj R«R2tR0).t8DDAT 



; SCOPE CALL 

;LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

:R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

;60 CLEAR CONTROLLER 
: INITIALIZE ERROR FLAGS 
; SETUP REGISTER ADDRESS 

;'T)VC" AND •\JNS" SHOULD BE ZERO 

FAULT. VERlFr THAT "DVC" IS NOT 

LOAD RWRI 
LOAD RnER2 
LOAD RMERI 

.-STORE R»1ER2 AT tBDDAT 



JRMPBO W05/5/2 DSKLS TS' 
•32 DRIVE »AUl' test 



517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 
532 
533 
53A 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
54B 
549 
550 
551 
552 



020706 
0207H 
020716 
020720 
020724 



020732 
020732 
020740 
020746 
020754 
020756 
020762 
020770 
020776 
021000 
021002 
021004 
021 004 



021006 
021006 
021014 
021022 
021030 
021036 
021044 
021046 
021052 
021060 
021062 
021066 



042737 
001406 
104107 

052703 000001 
012737 04000C X"*.C 



&:: 

81 S 



K 10 

::*.V5 PAoC '3-*' 



'01 

•V^S.iGODAT 



RESET?? 
.SET ERROR HAG 



;IS "DVC 
;VES..' 



016037 
042737 
C23737 
001414 
010037 
062737 
032737 
001002 
104110 
000401 

1041*1 



012737 
012^60 
012760 
016037 
042737 
001012 
010037 
062737 
104112 
052703 
005037 



000014 

137777 
001140 

00" 36 
OOOCU 
04000C 



:c''<.2 

XV42 
DO' '42 



•'JiS" IS S*«E AS •!>#£• 



91 : 
»»» 

SR 



tV«ni(RO}.teDDAr 
«-:^S.S800AT 
SGDDAT.teDDAT 
3Cl 

R0,I8DAI>A 

«RnER1.SBDADR 

'vJXS.tGOOAT 

201 
"0 
?0l 



.-STORE RMERI AT S8DDAT 

OK?? 



;IS "IWS 
• vES ' 

•SETUP REGISTER ADDRESS 
.SHOULD '\fiS" BE ON?? 



000200 
OOC-OC'^ 
000101 
000042 
}77577 

001^56 
000042 

000002 
OOlUO 



00'14C 
OO'X'24 
000C24 
00*^42 
00"42 



OC'*?t 



1553 


021072 








4.1: 




1554 


021072 


005757 


001140 






•S' 


1555 


021076 


001403 








eE3 


1556 


021100 


012737 


040000 


001140 






1557 


021106 












1558 


021106 


016037 


000014 


001^2 






1559 


021114 


042737 


M7777 


0C1142 






1560 


021122 


023737 


001140 


001142 






1561 


021130 


001414 










1562 


021 1 32 


010037 


001136 






. 


1563 


021136 


062737 


OOOOU 


00ii5^> 






1564 


021144 


032737 


040000 


001 140 




8IT 


1565 


021152 


001002 








BNE 


1566 


021154 


104113 








£«T 


1567 


021156 


000401 






tC»: 


BR 


1568 


021160 










1569 


021160 


104114 








E«T 


1570 














1571 










-]f THERE WERE 


1572 














1573 


021162 













IML ^ET 'H>f'\ Jltilfi THAT 'DvC" IS NOT S-A-0. 

*«C» «DvC.tGOOAT :DVC SHOULD BE ON 

^Cf «D#V.Rrv«1(R0) ;l0AD RW1R1 

•C'. JlW:»t>f .RWRKRO) .-LOAD RWR1 

•O. B«R2(R0).ieODAT .-STORE RMER2 AT SBDDAT 

9:: »*CPVC.I8(>DAT 

9NE 40t .-BRANCH 1^ DVC IS SET 

•C* BO.ieOADR ;SETi^ REGISTER ADDRESS 

ADD «RnE»2,S8DADR 

9iS •BiT1.R3 .-SET ERROR FLAG 

':R »GDDAT :\JiS SHOULD BE OFF 

'HA' -'Jii'- IS SA«E AS 'DVC" 



SGDDAV 

sot 

•IMS.SGDDAT 

RnEft1(R0),SBDDAr 
«*ClAS.ieDDAT 
SGODAT.IBDDAT 
70$ 

RO.SBDAOR 
«fVCRi,t6DADR 
«lMS,tGDDAT 
60t 

113 
70S 

1U 



.-CHANGE Di^C TO UNS 



.-STORE RMER1 AT $8DDAT 



;8RANCH IF UNS IS 0< 
.-SETUP REGISTER ADDRESS 

.-SHOULD UNS BE ON?? 
;VES.'! 



'l^ DRUE ^AUc* TfST 





0?1 1*»? 


005703 








021 1^ 


001056 

VV ■ V 






IS 76 




0*27C2 

V C ' VC 


www 




1577 


02117? 










0P1 1 7? 


012760 

VIC' wv 


000GC1 


WW w ^ 


iS7a 


OP 1 POO 


01P760 

V 1 C ' wv 


000000 


www at ^ £ 


1S7Q 


wC < C W 


010P60 
w ' VC w 


000024 

VVVWC ^ 






0P1P1? 
VC > c * c 


016037 

V 1 WW J r 


000042 


0C"*2 


1S8I 


0P1 PPO 

v/C I CC V 


042737 

W^C » ^ » 


177577 




1 yoc 


021226 


005037 

WW ✓w ^ » 


WW ' ■ ^w 

000100 

www ' WW 






OP1P52 

VC ' C JC 


032702 

V JC ' VC 






021236 


001403 

WW 1 ~W J 








021 240 


052737 


00020c 

WVVC •'W 


001'4'" 

0C1 142 


1 586 


021246 


023737 


001 140 


1587 


021254 


00U10 






1588 


021256 


010037 


001 36 




1 589 


021262 


062737 


fcf00042 


OC' 1 36 


1590 


021270 

Wfc ■ ' w 


010237 


1 74 




1591 


021 274 

Wfc • fc » ^ 


104115 






1592 










1593 










1594 


021276 








1595 


021276 

Wfc > ' w 


042702 


OOOOC' 




1596 


021302 


001002 






1597 


021 30A 


012702 


0000c ' 




1598 


021310 


006302 






1599 


021312 


0OU03 






1600 


021 3U 


052702 


00C0C1 




1601 


021320 


000724 






1602 










1603 


021322 








1604 










1605 











021322 
021322 
021324 
021326 
021332 
021 336 
021342 



000004 
000240 
012706 
013700 
013701 
012737 



OOMOO 
001276 
001466 
000033 



001226 



1606 










1607 


021350 


004737 


054674 




1608 


021354 


005003 






1609 


021356 


010037 


001136 




1610 


021362 


062737 


000042 


001136 


1611 










1612 










1613 


021370 
021376 


012760 


000001 


000024 


16U 


012760 


000000 


000042 


1615 


021404 


016037 


000042 


001142 
00r42 


1616 


021412 


042737 


M7777 


1617 


021420 


001405 






1618 


021422 


005037 


001140 




1619 


021426 


104116 
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SEO 0128 



'2Ct 
»*.R2 



.-BRANCH IF ANV OIHER ERRORS 
.•INITIALIZE TEST PATTERN 



•OWD.WfWiCRO) .-LOAD RfWi 
«0.^R2<R0) .-LOAD RnER2 
R2.k>fW1(R0) .-LOAD RHWI 

(ME(i2(RO).teODAT .-STORE RMER2 AT SeODAT 

#*C0^C.I80DAT ;GET RESULTS 

.•SETUP EXPECTED 
.-WAS H)f SET?? 
'NO' ' 

•VES-DVC SHOULD BE ON 



SC^DAT 
.R2 

901 

«DvC.»GODAT 
SGDDAT.teODAr 
'00$ 

RC.S80ADR 

«<WER2.»eOADR 

R2-fT»<P0 

'1§ 

Br posnoN 

«DnD.R2 

i'0» 

*0«D.«2 

R2 

'201 

#0«D.R2 

801 



.-BRANCH If DVC IS OK 
.-SETUP REGISTER ADDRESS 

.-SAVE TEST PATTERN 



.-DONT SHIFT DMD 

;DONT TRUNCATE TEST 
.-SHIFT 

.-EXIT IF DONE 
.-KEEP DMD ON 
.•CONTINUE 

.-END OF TEST 



SfE< ERRQP TEST 



#STACic.SP 
IBASE.PO 
TSTOuE.RI 
•33.ITESTN 

PC.CNTCLR 
R3 

R0.I8DADR 
tR«ER2.SeDADR 



; SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

.•R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAI. BOX 

;G0 CLEAR CONTROLLER 
.•CLEAR ERROR FLAGS 
.•SETUP REGISTER ADDRESS 



C MODE AND VERIFY THAT "SKI" CAN BE RESET 

ITDMO.RMHRKROJ .-LOAD RMMR1 

#0.RnER2(R0) ;LOAD RMER2 

RnER2(R0).t6DDAT ;STORE RMER2 AT SBDDAT 

^•CSKl.SeDDAT 

lot .-BRANCH IF SKI IS RESET 

tGDDAT ;SKI SHOULD BE ZERO 

n6 



CZRMPBO RH05/5/2 OSHLS ^ST ' 
T?5 SEEK ERROR TEST 



1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1655 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 



021430 052703 00000^ 



021454 
021434 
021442 
021450 
021456 
021464 
021472 
021474 
021502 



021506 
021506 
021510 
021512 
C21516 
021516 
021524 
021552 
021536 
021544 
021552 
021556 
021562 
021564 
021572 
021600 
021602 
021606 



021610 
021610 
021614 
021616 
021622 
021624 
021626 
021632 

021634 



012760 
012760 
012760 
016037 
042737 
001005 
012737 
052703 



OO5703 
001051 
012702 

012760 
012760 
010260 
016037 
042737 
005037 
032702 
001403 
052737 
023757 
001405 
010257 
104120 



042702 
001002 
012702 
006502 
001405 
052702 
000751 



000001 
000000 
000201 
000042 
M7777 

040000 
000002 



000001 

000001 
000000 
000024 
000042 
M7777 
001140 
000200 

040000 
001140 

001174 



000001 
0000C1 

000001 



021634 

021634 000004 

021636 000240 

021640 012706 001100 

021644 015700 001276 

021650 0157n 001466 

021654 012737 000034 



000024 
000042 
000024 
00^142 
00* U2 

0C4C 
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.-4P*i-8' :':2<.:<f5 PAGE 13-55 



b;s «9Itc.r5 .-set error flag 
maintenance seek error and verjfr that "skj' 



SEO 0129 



CAN eC SET 



t^* «DnD,RWR1 (RO) .-LOAD R^l 
#0,RMER2(R0) .-LOAD RnER2 

*W «D«>«>:NSER.RmR1(R0) .-LOAD RWR1 

•Vk t»IER?(RC).ieDDAT .STORE RnER2 AT S8DDAT 

81 C «*CSxI,SaDDAT 

BNE 20t .-BRANCH IF SK] IS SET 

*W »SXI.»G0DAT ;CANT SET SKI 

BIS aeiTLR? ;SET ERROR FLAG 

:lf NC PRErf.'OLS ERROR. CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE 
;SEf« ERROf. 
2Cl: 



0OOC24 
000042 

001U? 



OC'UC 
001 H2 



401: 



BNE 

MCv 

BIC 
ClR 
BIT 
BEC 
BIS 
rnp 

BEO 
«0^ 

Em 



R5 
70% 

#1.R2 



.-BRANCH IF ANr OTHER ERRORS 
.-INITIALIZE TEST PATTERN 



•DfV.RMMRKRO) ;LOAD RW«)1 
#0.««ER2(R0) .-LOAD RMER2 
R2.R^1(R0) .-LOAD R^Wtl 

RHER2(R0).SeDDAT .-STORE RnER2 AT S6DDAT 

••CSKl.ieODAT .-GET SKI STATUS 
SGDDAT ;SETUP EXPECTED RESULT 

*MEH.R2 
40S 

•SKl.tGODAT 
SGDDAT. tBDDAT 
SOS 

R2,ST«P0 

120 



;SKI SHOULD BE ON 

;8ftANCH IF SKI IS OK 
.-SAVE TEST PATTERN 



.ACkANCE »EST PATTERN IN R2 
50S: 



6-:$: 



7GS: 



BK 
BME 

«ov 

ASL 
BEO 
B.'S 
BR 



#DflD.R2 
60S 

#0«D.R2 

R2 
70S 

#D«D.ft2 
50S 



.-DONT SHIFT DMD BIT 

;D0NT TRUNCATE TEST 
.-SHIFT TO NEXT BIT 
.-EXIT IF DONE 
.-KEEP DMD ON 
.-CONTINUE TEST 

.-END OF TEST 



.-•TEST 54 



PIP TEST 



'S'34; 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOy 



.•SCOPE CALL 

•STACK. SP .-LOAD THE STACK POINTER 

SaASE.RO ;R0 = UNI8US ADDRESS 

TST0UE.R1 ;R1 = POINTER TO DEVICE 

#54.STESTN ;;SET TEST NUMBER IN APT MAIL 8CX 



CZ«WPeO W05/5/2 CSKLS TST 1 
'5^ PiP TfcST 



1667 

1668 

1669 

167C 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

'690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

V22 

17?! 



021662 
021666 
C21670 
021674 



021 702 
021710 
021716 
021724 
021732 
021734 
021740 
021 742 



022102 
022102 
022106 
022110 
022114 
022116 
022120 
022124 



004737 
005003 
010037 
062737 



012760 
012760 
016037 
042737 
001405 
005037 
104121 
052703 



0546^4 
00^136 

000012 001136 



000001 000024 

000401 000024 

000012 00^42 

157777 001 '42 

001 HO 

000001 



ADD 



N 



10 

^3-34 



SEC 0130 



S3 

RO.tSOAOft 
#WDS.S80A0R 



;G0 CLEAR CONTROLLER 
.•RESET ERROR FlAGS 
.-SETUP REGISTER ADDRESS 



■fT tfUIN'EVANCE ON CYLINDER "WC" AND VERIFY THAT "T'lP" CAN BE RESET. 
•C^ #0«D.RMHR1(R0) :LOAD RfWRI 

#I*«.»«C.Wf«1(R0) .-LOAD RWRI 

•icv rh:/S(R0).S8DDat .-store m>s at $80Dat 

QIC #*CPIP.$8DDAT 

BEO lot .-BRANCH IF PIP IS RESET 

:.R fGODAT 

Em 121 

BIS •eiT0.R3 .SET ERROR FLAG 

.-afSt^ H4INTf«4ANCE ON CYLINDER AND VERIFY THAT 'VIP" CAN BE SET 



021746 






' SI * 








021746 


012760 


000001 
OCOO'2 


0OOC24 




^^y9.Km^^ (ro) 


.-LOAD RfWRI 


021754 


016037 


001142 
00" 42 




RnDS(R0}.l8DDAT 


.-STORE W10S AT S8DDAT 


021762 


042737 


157777 


BIC 


#*CPIP.18DDAT 




021770 


001006 






BNE 


20S 


.-BRANCH IF PIP IS SET 


021772 


012737 


020000 


ooi'4: 


«Ov 


•PIP.SGDDAT 




022000 


104122 






E«T 


122 




022002 


052703 


000002 




BIS 


•8IT1.R3 


;SET ERROR FLAG 



022006 








11%: 




022006 


005703 








TST 


022010 


00'046 








BNE 


022012 


012702 


0O00C1 






NOV 










;-^ITE 


»H€ TEST 


022016 












022016 


012760 


OOOOOl 


0O0C24 


• 


NOV 


022024 


010260 


000024 






NOV 


022030 


016037 


000012 


001 H2 




•CV 


022036 


042737 


157777 


00M42 




BIC 


022044 


005037 


001140 






ClR 


022050 


032702 


000400 






BIT 


022054 


001003 








BNE 


022056 


052737 


020000" 


001140 




SIS 


022064 


023737 


001140 


00^142 


4jf. 


:«p 


022072 


001403 








BcO 


022074 


010237 


001 1 74 








022100 


104123 











VO P*>E^iOu5 ERROR. TEST FOR ADJACENT BIT SETTING "WOC" 



R3 

70t 

#1.R2 



#DMD.RmR1 (R0> 

R2.RWR1(R0) 

inDS(R0>.S6DDAT 

♦•CPIP.S80DAT 

SGDDAT 

*H0C.R2 

40S 

•PIP. SGDDAT 
SGDDAT. SBDDAT 
50S 

R2,ST«P0 

12^ 



.-BRANCH IF ANY PREVIOUS ERROR 
.-INITIALIZE TEST PATTERN 



LOAD WW1 
L"AD RMMR1 

STORE RMDS AT S8DDAT 

GET PIP STATUS 

SETUP EXPECTED RESULT 



042702 
001002 
012702 
006302 
001403 
052702 
000734 



000001 
000001 

000001 



.-ADVANCE ^HE »EST PATTERN 
5Cf: 



BIC 
BN^ 
NOV 

asl 
BEO 
BIS 
BR 



#D«D.R2 
60S 

«DnD.R2 

•R2 

70S 

#DW.R2 
3CS 



;PIP SHOULD BE SET 

.-BRANCH IF PIP OK 
.-SAVE TEST PATTERN 



;DONT SHIFT DMD 

.-DONT TRUNCATE TEST 
.-SHIFT BIT 
.-EXIT IF DONE 
.-KEEP DMD m 
;CONTINU£ TEST 



CZRMPBO RH05/?/<? DSKLS 'ST 
PIP TEST 



V25 
1726 



022126 
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70$: 



;*TEST 35 



E8L TEST 



;ENO OF TEST 



1727 

1728 

17?9 

1730 

173'. 

1732 

1733 

173^ 

1735 

1736 

1737 

1738 

1739 

1740 

17A1 

17A2 

1743 

1744 

174 b 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 



022126 
022126 
022130 
022132 
022136 
022142 
022146 

022154 
022156 
022162 
0221 70 



022174 
022200 
022206 
022214 
022216 
022220 



022340 
022340 
022342 
022544 



022350 



000004 
000240 
012706 
013700 
013701 
012737 

005003 
010037 
062737 
005037 



004737 
016037 
042737 
001403 
104124 
052703 



TST35: 



001100 
001276 
001 4C^ 
000035 



001136 
000024 
001140 



054674 
000024 
157777 



00000'. 



001226 
001136 



001142 
001142 



022224 








022224 


012760 


000001 


000024 


022232 


012760 


020001 


000024 


022240 


CI 2760 


000001 


000024 


022246 


016037 


000024 


001142 


022254 


0s2737 
001403 


157777 


001142 


022262 






022264 


104125 






022266 


052703 


000001 





SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

CLR 
MOV 
ADD 
CLR 



#STAC»C,SP 
$8ASE,R0 
TSTQUE.R1 
#35.$TESTN 

R3 

R0,$eDA0R 

#RMMR1,SeDADR 

$GDDAT 



.•SCOPE CALL 

;LOAD THE STACK POINTER 
;R0 = UNI8US ADDRESS 
;R1 = POINTER TO DEVICE 
■.■;SET TEST NUMBER IN APT MAIL BOX 

;RESlT ERROR FLAGS 
.•SETUP REGISTER ADDRESS 

.•SETUP EXPECTED RESULT 



022272 






20$: 




022272 
022:00 


012^60 


000001 


000024 


MOV 


012760 


020001 


000024 / 


MOV 


022306 


016037 


000024 


001142 


MOV 


022314 


042737 


157777 


001142 


81 <" 


022322 


001006 






BNE 


022324 


012737 


020000 


001140 


mv 


022332 


104126 






EMT 


022334 


052703 


000002 




BIS 



.CLEAR AND VERIFY THAT END OF BLOCK IS RESET 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV RMMRl CRO) ,$8DDAT ;STORE RMMR1 AT IBDOAT 

SIC #*CE8L.$8DDAT 

BEQ 10$ .-BRANCH IF E8L IS RESET 

EMT 124 

BIS *e[T0.R3 .-SET ERROR FLAG 

.SET AND RESET DIAGNOSTIC END OF BLOCK. CHECK FOR EBL S-A-1 . 
10$: 

MOV WW.RMMRI (RO) ;L0AD RMMRI 

MOV #DMD !DEBL. RMMRI (RO) ;LOAD RMMR1 

MOV #D«D.RHMR1 (RO) ;LOAD RMMRI 

MCV R«1R1(R0),$80DAT ;STORE RMMRI AT $8DDAT 

BJr #*CEBL,$8DDAT 

BEQ 20$ .-BRANCH IF EBL IS RESET 

EMT 125 

BIS *8IT0.R3 .-SET ERROR FLAG 

;RESET AND SET DIAGNOSTIC END OF BLOCK. CHECK FOR FBL S-A-0 

*DMD.RMMR1(R0) ;LOAD RMMRI 
*DMD!DEBL.RMMR1(R0) ;LOAD RMMRI 
RMMRI (R0).$8DDAT .-STORE RMMRI AT $BDDAT 

#*CE8L.$8DDAT 

.-BRANCH IF EBL IS SET 



30$ 

#EBL.$GDDAT 
126 

*8IT1 ,R3 



;SET ERROR FLAG 



005703 
001042 
012702 



000001 



.IF NO PREVIOUS ERRORS. TEST FOR ADJACENT BIT INTERFERENCE ON "DEBL* 
30$: 

TST R3 

BNE 70$ .-BRANCH IF ANY ERROR 

MOV #1.R2 .-INITIALIZE TEST PATTERN 

.•WRITE, READ AND VERIFY THE TEST PATTERN IN R2 
40$: 



CZPMPBO '<M05/3/2 OSKLS TST 1 
T?5 EBL TEST 
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1771 


022350 


012760 


000001 
000024 


000024 


1772 


022356 


010260 




1773 


022362 


016037 


000024 


001142 


1774 


022370 


0427.37 


157777 


0Q1142 


1775 


022376 


010203 




.776 


022400 


042703 


157777 




1777 


022404 


020337 


001142 




1778 


022410 


001405 






1779 


022412 


C10337 


001140 




1780 


022416 


010237 


001 1 74 




1781 


022422 


104127 






1782 










'783 










1784 


022424 








1785 


022424 


042702 


000001 




1786 


022430 


001002 






1787 


022432 


012702 


000001 




1788 


022436 


006302 






1789 


022440 


001403 






1790 


022442 


052702 


0C0001 




1791 


022446 


000740 






1792 










1793 


022450 








1794 










1807 










1808 











MOV #DW.R«MR1 (RO) ;L0AD RWR1 

MOV R2.RMHR1(R0) .LOAD RMMR1 

MOV RMTmRI (R0).S8DDAT ;STORE R-WI M tSDDAT 

BIC #*CE8L,$BDDAT 

MOV R2,R3 .-GENERATE EXPECTED RESULT 

BIC #*CEBL.R3 

IMP R3,$8DDAT 

BEQ 50$ 

MOV R3.SGDDAT 

MOV R2 STMPO 

EMT 12/ 



.•BRANCH IF EBL IS OK 
.-SAVE EXPECTED RESULT 
.•SAVE TEST PATTERN 



.-SHIFT TO NEXT BIT POSITION 
50$: 



60$: 



70$: 



BIC 
BNE 
MOV 
ASL 
BEQ 
BIS 
BR 



*DMD.R2 
60$ 

#DMD.R2 

R2 

70$ 

*DMD,R2 
40$ 



;00NT SHIF" DMD 

;DONT TRUNCATE DMD 
.•SHIFT TO NEXT BIT 
.•EXIT IF DONE 
;KEEP DMD ON 
.-CONTIfJUE TEST 

;END OF TEST 



•TEST 36 LAST SECTOR. LAST TRACK TEST 

•TRANSFER TEST PATTERN TO RMDA THfN VERIFY LAST SECTOR "iS" AND LAST 



•SECTOR/TRACK *tST" FOR EACH TRANSFER. 
•OF RMDA FOR WHICH LS AND LST ARE SET. 



♦RM02/03 - 
•RM05 



LS = 

LST= 
LST= 



18 BIT MODE 
XXX035 

002035 
011035 



THE TABLE BELOW LISTS THE VALUE 



16 BIT MODE 
XXX037 



002037 
011037 





022450 








TST36: 








022450 


000004 








SCOPE 






022452 


000240 








NOP 






022454 


012706 


001100 






MOV 


#STACK,SP 




022460 


013700 


001276 






MOV 


SBASE.RO 




022464 


013701 


00U66 






MOV 


TST0UE.R1 




022470 


012737 


000036 


001226 




MOV 


#36,$TESTN 


1809 
















1810 


022476 


005002 








CLR 


P2 

R0.$8DADR 


1811 


022500 


010037 


001136 






MOV 


1812 


022504 


062737 


000024 


001 1 36 




ADD 


#RMMfi1 ,$8DADR 


1813 


C22512 


005037 


001444 






CLR 


RMOFO 


1814 


022516 


013737 


001334 


023006 




MOV 


LSrRK.80$ 


1815 


022524 


112737 


000035 


023006 




M0V8 


#035.80$ 


1816 


022532 








10$: 






1817 


022532 


004757 


054674 






JSR 


PCCNTCLR 


1818 


022536 


013760 


001444 


000032 




MOV 


RM0F0,RMOF(R0) 


^819 


022544 


016037 


000032 


001176 




MOV 


RMOF(RO),$TMP1 


1820 


022552 


010260 


000006 






MOV 


R2.RMDA(R0) 



•••»»»*••••**•»»***•••*«*•••••*•♦•••••••******•*•*•••••••*•♦»••• 

.•SCOPE CALL 

LOAD THE STACK POINTER 
RO = UNI8US ADDRESS 
R1 = POINTER TO DEVICE 
;SET TEST NUMBER IN APT MAIL BOX 

.-INITIALIZE TEST PATTERN 
.•SETUP REGISTER ADDRESS 

;STAPT IN 18 BIT MODE 
; SETUP LAST TRACK AND 
;LAST SECTOR (29.) 

;G0 CLEAR CONTROLLER 
.-LOAD RMOF 

.-STORE RMOF AT ITMPI 
;LOAD RMDA 



1821 

1822 

"825 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

^83A 

1835 

1836 

1837 

1838 

1839 

18^0 

18A1 

18A2 

18A3 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

(870 

1871 

1872 

1876 



K«05/5/2 DSICLS IS1 1 MACRO 
LAST SECTOR. LAST TRACK TEST 
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D 

PAGE 



11 

13-37 



S€0 0133 



022556 
022564 
022572 
022600 
022604 
022612 
022614 
022620 
022622 
022624 
022630 

022632 
0226^0 
022646 
022650 
022654 
022656 

022660 
022666 
022674 
022700 
022706 
022710 
022714 
022716 
022720 
022724 

022726 
022734 
022742 
022744 
022750 
022752 



022754 
022754 
022756 
022760 
022766 
022770 
022776 
023004 



016037 
013737 
042737 
0O5C37 
032737 
001004 
123702 
001007 
000403 
123702 
001003 

052737 
023737 
001404 
010237 
104130 
000454 

013737 
042737 
005037 
032737 
001004 
023702 
001007 
000403 
023702 
001003 

052737 
023737 
001404 
010237 
104131 
000416 



005202 
001265 
032737 
001010 
012737 
112737 
000652 



023006 000000 

023[no 



000024 


001562 




MOV 


RMMR1 (RO).RWRII 


.•STORE WMRl IN INPUT BUfFER 


C01362 


001142 




MOV 


RMHR1I.$B0DAT 


.-VERIFY 'IS" 


1 77771 


001142 




61 C 


#*CLS,$BDDAT 


.•GENERATE EXPECTED "IS" 


001140 






CLR 


$GODAT 


010000 


001444 




BIT 


#FMT16.RM0f0 


;16 BIT MODE ? 






BNE 


20$ 


.-vEs: ; 


023006 








0\J*,Hd 


• IS QIT MOrtC 1 ACT CPTTOD "> 






BNE 


55$ 


;N0 :.' 








BR 


30$ 




023006 




20$: 


CMP8 


80S.R2 


;16 BIT MODE LAST SECTOR ? 






BNE 


35$ 


;N0 !! 


000004 


001 uo 


50$: 


BIS 


*LS.$GDDAT 


.•LS SHOULD BE ON-16 BIT MODE 


OU 1 1 hU 














BEQ 


40$ 


.-BRANCH If LS IS CORRECT 


001 1 74 






MOV 


R2.$TMP0 


.•SAVE TEST PATTERN 






EMT 


130 










BR 


90$ 


.-SKIP TO NEXT 


001 362 


001142 


40$: 


MOV 


RMMR1I,$8DDAT 


;VERJFy '1ST" 


177775 


001142 




BIC 


#*LLST.$8DDAT 


.•GENERATE EXPECTED '1ST" 


001140 






CLR 


$GDDAT 


010000 


001444 




Bir 


.»FMT16.RM0F0 


;16 BIT MODE?? 








BNE 


50$ 


.-rESi I 












•1R RIT Mfinp 1 A^T TRAfK/SFfTOR 






BNE 


65$ 


;N0 !. 








BR 


60$ 




023006 




50$: 


CMP 


80$. R2 


;16 BIT MODE LAST TRACK/SECTOR ? 






BNE 


65$ 


;N0 ! . 


000002 


001140 


60$: 


BIS 


*LST,$GDDAT 


;LST SHOULD BE SET 


001140 


001142 


65$: 


CMP 


$GDDAT,$8DDAT 










BEQ 


70$ 




001174 






MOV 


R2.$TMP0 


;SAVE TEST PATTERN 








EMT 


131 










BR 


90$ 


;SKIP TO NEXT 



.•ADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL 
;18 BIT TESTS DONE. 



70$: 



010000 001444 



OiOOOO 
000037 



001444 
023006 



80$: 
90$: 



INC 

BNE 

BIT 

BNE 

MOV 

M0V8 

BR 

.WORD 



R2 
10$ 

*FMT16.RM0F0 
90$ 

#FMT16.RM0F0- 

*037.80$ 

10$ 



INCREMENT PATTERN 
CONTINUE IF NOT DONE 
DONE 16 BIT TEST ? 
yESl ! 

DO 16 BIT FORMAT TEST 

SEl LAST SECTOR FOR 16 BIT MODE (51.) 



; HOLDS LAST TRACK/SECTOR ADDRESS 



•***•*»**»**•*♦*»***»*»♦♦****»****«**•*•***•***•*****»*••*•*••*• 



.••TEST 37 



RMDA COUNT TEST 



023010 



.-♦♦»♦*»**•••»*»****•**»♦•••***•*»*•»•**•*»***•••••*••••••••*•••• 

tST57: 



rZRMPBO RM05/3/2 DSKLS TST 
^'.^ PMOA COUNT TES"' 



t*AZRO V{K.OO 
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SEO 0154 



1877 
1878 
1879 
1880 
1881 
1832 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189A 
1895 
1896 
1897 
1898 
1899 
'900 
1901 
190^ 
1905 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
i916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 



023010 
023012 
023014 
023020 
023024 
023030 

023036 
023042 
023050 
023054 
023062 



023070 

023070 
023074 
023102 
023110 
023116 
023124 
023132 
023140 
023146 



023154 
023154 
023162 
023170 
0231 76 
023204 
025206 
023210 



023212 
:?3212 
0^3216 
C."'3224 
023226 
023232 
023236 
023242 
023244 



023246 
023246 



000004 
000240 
012706 
013700 
013701 
012737 

010037 
062737 
005037 
012737 
012737 



004737 
01 2760 
01 2760 
012760 
012760 
01 3760 
016037 
012760 
012760 



012760 
012760 
016037 
023737 
001402 
104132 
000416 



001100 
001276 
001466 
000037 

001136 
000006 
001444 
000001 
000035 



054674 
000001 
000000 
000000 
000000 
001444 
000032 
040001 
000001 



0600C1 
040001 
000006 
001142 





SCOPE 




.•SCOPE CALL 




NOP 








nov 


*STACK SP 


•'OAD THE STACK POINTER 




MOV 


SfiASE RO 


•RO = UNIBUS ADDRESS 




nov 


TSTOUE R1 


•R1 = POINTER TO DEVICE 


001 226 

w 1 ecu 


nov 


#37 STECTN 


"SET TEST NUMbfcR IN APT MAIL BOX 




MOV 


R0,S3DADR 


.•SETUP REGISTER ADDRESS 


001136 


ADD 


#RMDA,$BDADR 




CLR 


RMOFO 


.•START WITH 18 BIT FORMAT 


001140 


MOV 


#1 .$GDDA1 


.•SETUP FIRST COUNT 


023462 


MOV 


#29.. 110$ 


;LAST SECTOR 



000024 
000014 
000042 
000006 
000032 
001 1 74 
000024 
000000 



000024 
000024 
001142 
001140 



INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT 
SECTOR 0 AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS 

.CLEAR THE MASSBUS 

.SET FORMAT 

.LOAD SECTOR AND TRACK ADDRESS 
ENABLE DEBUG CLOCK 



10$: 



.SET GO BIT 



JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



;G0 CLEAR CONTROLLER 
.-LOAD RMMR1 
.-LOAD RMER1 
.-LOAD RMER2 
;LOAD RMDA 
;LOAD RMOF 

.•STORE RMOF AT $TMPO 
#DMD!DBEN.RMMR1(R0) .-LOAD RMMR1 

#G0,RMCS1 (RO) ;LOAD RMCS1 



PC.CNTCLR 
#DMD,PMMR1 (RO) 
#0.RMER1 (RO) 
#0.RMER2(R0) 
#O.RMDA(RO) 
RMOF 0, RMOF (RO) 
RMOF(R0),$TMP0 



;SET AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA. 
25$: 

MOV 1 #DMDiDBEN!DEBL.RMMR1 (RO) ;LOAD RMMR' 

MOV #D«D.'D8£N,RMMR1(R0) ;LOAD RMMRl 

MOV RMDA(R0),$8DDAT 

CMP $8DDAT.$GDDAT 

BEO 30$ 

EMT 132 

BR 50$ 



STORE RMDA AT $BDDAT 

BRANCH IF RMDA OK 

OUT OF SYNC-SKIP TO NEXT 



.•ADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT 
.•COMPLETE 
30$: 



005237 


001140 


INC 


$GDDAT 


•INCREMENT EXPECTED SECTOR 


123737 


001142 023462 


CMP8 


$8DDAT.110$ 


■WAS THE LAST SECTOR JUST COUN'ED''? 


001004 




8NE 


40$ 


•NO. ! 


105037 


001140 


CLRB 


$GDDAT 


•YES-NEXT SECTOR SHOULD BE ZERO 


105237 


001141 


INC8 


$GDDAT+1 


; INCREMENT TRACK ADDRESS 


105737 


001142 40$: 


TST8 


$eDDAT 


■HAS A FULL CYCLE BEEN COUNTED?? 


001401 




BE (3 


50$ 


•YES-DO NEXT 


000743 




BR 


25$ 


■CONTINUE SECTOR TEST 



013737 023462 001420 



.•INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK. START AT TRACK 0. 

;LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE. 

50$: 

MOV 110$,RMDAO .-START SECTOR ADDRESS = 0 



rZH-iPeO ftMOS/5/2 DSKLS TST 
RMDA CCXJNT TEST 
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1928 

1929 

1930 

1951 

1952 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 



023254 012737 000400 001140 



•TA1.SGDDAT 



.•FIRST VALUE AFTER JNCREi^NT 



004737 
01 3760 
01 3760 
012760 
012760 
012760 



012760 
012760 



016037 
023737 
001402 
104133 
000441 



023262 
023262 
023266 
023274 
023302 
023310 
023316 



023324 
023332 



023340 
023346 
023354 
023356 
023360 



023362 
023362 
023366 
023374 
023376 
023402 
023410 
023412 
023420 
023422 
023422 
023430 
023432 
023440 
023446 

023450 
023456 

023462 
023464 



023464 

023464 000004 
023466 0C0240 



054674 
001444 
001420 
000001 
040001 
000001 



060001 
040001 



000006 
001140 



60$: 



000032 
000006 
000024 
000024 
000000 



000024 
00002^. 



001142 
001142 



.CLEAR THE MASS8US 
.SET FORMAT 

.LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS 
.ENABLE DEBUG CLOC»< 
.SET GO BIT 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

flOV RflOFO.RMOF(RO) ;L0AD RMOF 
MOV RMDAO,RMOA(R0) ;lOAD RMDA 
MOV *DMD.RMMR1 (RO) .LOAD RMMR1 
MOV #DMD!DBEN.RMMR1(R0) ;L0AD RMMRI 
MOV *G0.RMCS1 (RO) ;LOAD RMCS1 

.-CLOCK RMDA USING DIAGNOSTIC END OF BLOCK 

MOV *DMD !DBEN!DE8L. RMMRI (RO) ;LOAD RMMRI 

MOV #DMD .'DBEN, RMMRI (RO) UOAD RMMRI 

.-VERIFV RMDA ACCORDING TO SGDDAT 

MOV RMDA(RO).$BDDAT ;STORE RMDA AT SBDDAT 
CMP $GDDAT,$8DDAT 
BEO 70$ 
EMT 133 

BR 120$ ;OUr OF SYNC-SKIP TO NEXT 

.•SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS 
70$: 



105237 


001141 






INC8 


$GDDAT*1 


123737 


001143 


001335 




CMP8 


$8DDAT + 1 ,LSTRK-^1 


001002 








BNE 


80$ 


005037 


001140 






CLR 


$6DDAT 


013737 


001142 


001420 


80$: 


MOV 


$8DDAT.RMDA0 


001404 








BEQ 


90$ 


113737 


023462 


001420 




M0V8 


110$.RMDA0 


000720 








BR 


60$ 








90$: 






032737 


010000 


001444 




BIT 


*FMT16.RM0F0 


001015 








BNE 


120$ 


012737 


010000 


001444 




MOV 


*FMT16,RM0F0 


012737 


000037 


023462 




MOV 


#31., 110$ 


000400 








BR 


100$ 


01273.' 


000001 


001140 


100$: 


MOV 


#1.$GDDAT 


000137 


023070 






JMP 


10$ 


000000 






110$: 


.WORD 


0 



.•ADVANCE EXPECTED TRACK 

.-WAS THE LAST TRACK JUST CaWTED? 

NO! ! 

YES-NEXT TRACK. SECTOR SHOULD BE ZERO 
HAS A FULL CYCLE BEEN COUNTED?? 
YESl ! 

INCREMENT FROM LAST SECTOR 



DONE BOTH FORMATS?? 
YES! . 

SET FORMAT BIT FOR 16 

SET LAST SECTOR FOR 16 BIT MODE 



;SET FIRST COUNT VALUE 
.•REPEAT TEST 

.-STORAGE FOR LAST SECTOR VALUE 



120$: 



.••TEST 40 RMDC COUNT TEST 



TST40: 



SCOPE 
NOP 



.-SCOPE CALL 



OSKLS TST 1 
f^MOC COUWT TEST 



PWCR3 V(K.OO 
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SEO 01% 



1979 

1980 

^981 

1982 

1983 

1984 

1985 

1936 

1987 

1988 

1989 

1990 

1991 

1992 

1'393 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2050 

2031 



02 3470 
023474 
023500 
023504 



023512 
023516 
023524 
023530 
023536 
023544 
023544 
023550 
023556 



023564 
023564 
023570 
023576 
023604 
023612 
023620 
023626 



023634 
023642 
023650 
023656 
023664 
023666 
023670 



023672 
023672 
023676 
023704 
023706 
023712 
023716 
023720 
023722 
023722 
023730 
023732 
023740 
023746 
023750 



012706 
013700 
013701 
012737 



010037 
062737 
005037 
013737 
112737 

004737 
012737 
012760 



004737 
013760 
016037 
01 3760 
012760 
012760 
012760 



012760 
012760 
016037 
023757 
001402 
104 HO 
000427 



001100 
G01276 
001466 
000040 



001136 
000034 
001444 
001334 
000035 

054674 
000001 
OCOOOO 



054674 
001444 
000032 
001420 
000001 
040001 
000001 



060001 
040001 
000034 
001140 



001226 



001136 

001420 
001420 



001140 
000034 



000032 
001174 
000006 
000024 
000024 
000000 



000024 
000024 
001142 
001142 



HOV #STAC»C.SP .-LOAD THE STACK POINTER 

MOV WASE.RO ;R0 - JNI8US ADDRESS 

MOV TSTQ'JE.RI ;R1 = POINTER tq DEVICE 

MOV *40.$TESTN ;;SET TEST MUMBER IN AP' MAIL BOX 

.•CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS 



10$: 



MOV 


■RO.SSDADR 


.-SETUP REGISTER ADDRESS 


ADD 


#R«OC.$BDADR 




CLR 


RMOFO 


.•START WITH 18 BIT FORMAT 


MOV 


LS7RK.RMDA0 


.•SETUP LAS I- TRACK AND 


M0V8 


*29..RMDA0 


.-LAST SECTOR 


JSR 


PCCNTCLR 


.•GO CLEAR CONTROLLER 


MOV 


*1.$GDDAT 


;.-OAD FIRST INCREMEN'-AL V 


MOV 


*0,RMDC(RO) 


.•LOAD RMDC 



VALUE 



20$: 



.CLEAR THE MASSBUS 
.SET OFFSET 

.LOAD LAST SECTOR AND TRACK ADDRESS 
.ENABLE DEBUG CLOCK 
.SET GO BIT 



JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



;G0 CLEAR CONTROLLER 
;LOAD RMOF 

.•STORE RMOF AT $TMPO 
.•LOAD RMDA 
;LOAD RMMRl 
WMDIDBEN.RMMRKRO) ;LOAD RMMRl 
#G0.RMCS1 (RO) .-LOAD RMCSl 



PC.CNTCLR 
RMOFO. RMOF (RO) 
RMOF(RO) ,$TMFO 
RMDAO,RMDA(R0) 
WMD. RMMRl (RO) 



.•CLOCK THE CYLINDER ADDRESS USING DEBL 

MOV *DMO IDBEN! DEBL. RMMRl (RO) ;LOAD RMMRl 

MOV *DMD !DBEN. RMMRl (RO) ;LOAD RMMRl 

MOV RMDC(R0).$8DDAT .-STORE RMDC AT $8DDAT 

CMP $GDDAT,$BDDAT 

BEQ 30$ .-BRANCH IF RMDC-RMDC+1 

EMT 140 

BR 60$ .OUT OF SYNC-SKIP TO END 

.ADVANCE EXPECTED RESULT FOR NEXT INCREMENT 
30$: 



005237 


001140 






INC 


$GDDAT 


.•ADVANCE NEXT RESULT 


022737 


002000 


001140 




CMP 


*102A.,$GDDAT 


.•SHOULD NEXT VALUE BE ZERO?? 
;N0! ! 


001002 








BNE 


40$ 


005037 


001140 






CLR 


$GDDAT 


;YES-RMDC SHOULD OVERFLOW 


005737 


001142 




40$: 


TST 


$8DDAT 


;IS ONE CYCLE COMPLETE?? 


001401 








BEO 


50$ 


-YES ' ' 


000721 








BR 


20$ 


•CONTiNUE 








50$: 








032737 


010000 


001444 


BIT 


*FMTi6.RM0F0 


;DONE 16 BIT FORMAT MODE ? 


001007 








BNE 


60$ 


;YES :. 


012737 


010000 


001444 




MOV 


*FMT 16. RMOFO 


;SET 16 BIT FORMAT AND 


112737 


000037 


001420 




MOVB 


*31..RMDA0 


.-LOAD LAST SECTOR FOR 16 BIT 


000676 








BR 


10$ 


.-REPEAT TEST 



60$: 



•»•*•••*•*•»»••••••♦••••••*••♦*••**•••••••*•*••**•*»*»*»•***<••» 



.8' TES^ 
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.-•TEST 41 



L8T TEST 



023750 
023750 
023752 
023754 
023760 
023764 
023770 



000004 
000240 
012706 
013700 
013701 
012737 



TST41 



001100 
001276 
001466 
000041 



001226 



2032 








2033 023776 


010037 


001136 




2034 024002 


062737 


000012 


001 1 36 


2035 








2036 024010 


005037 


001444 




2037 024014 


013737 


001 334 


001420 


2038 024022 


1 12737 


000035 


001420 


2039 








2040 








2041 








2042 








2043 








2044 








2045 








2046 024C30 








2047 024030 


004737 


054674 




2048 024034 


012760 


001466 


000034 


204V 024042 


013760 


001420 


000006 


2050 024050 


01 3760 


A A 1 tit 

001444 


000032 


2051 024056 


016037 


000032 


001 1 74 


2052 024064 


016037 


000012 


001 142 


2053 024072 




1 75777 


001 142 


2054 024100 


001403 






2055 024102 


005037 


001 140 




2056 024106 


1 04 1 '« 1 






2057 








■-\ /s r" Q 

2058 








2059 








2060 








2061 








2062 








2063 024110 








<'U64 1 I U 


U 1 <:/^o(J 


UUUU01 


U0UU2*» 


2065 024116 


012760 


000000 


0CG014 


2066 024124 


012760 


000000 


000042 


2067 024132 


012760 


000001 


000000 


2068 024140 


012760 


060001 


000024 


2069 024 U6 


012760 


040001 


000024 


2070 024154 


016037 


000012 


001142 


2071 024162 


042737 




001142 


2072 024170 


001005 






2073 024172 


012737 


002000 


001140 


2074 024200 


104142 






2075 024202 


000413 






2076 024204 








2077 024204 


032737 


010000 


001444 


2078 024212 


001007 







10$: 



20$: 



30$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 
ADD 



*STACK,SP 
$aASE,RO 
TSTQUE.RI 
*41,$TESTN 

RO.$eDADR 
*RMDS.$BDADR 



CLR RMOFO 

MOV LSTRK.RMDAO 

M0V8 *29.,RMDA0 



.•SCOPE CALL 

LOAD THE STACK POINTER 

RO - UNIBUS ADDRESS 

R1 = POINTER TO DEVJCF 

.-SET TEST NUWBER IN APT M,ML 

.•SETUP REGISTER ADDRESS 



START WITH 18 BIT MODE 
SETUP LAST TRACIf: AND 
LASr SECTOR 



BOX 



CLEAR THE MASSBUS 
SET liORMAT 

LOAD LAST TRACK AND SECTOR 
LOAD LAST CYLINDER 



VERIFY THAT "LBT" IS RESET 



JSR PC.CNTCLR 

MOV *822.,RMDC(R0) 

MOV RMDAO.RMDA(RO) 

MOV RMOFO,RMOF(R0) 

MOV RMOF(R0).$TMP0 

MOV RMDS(R0).$8DDAT 

BIC **CL8T.$BDDAT 

BEQ 20$ 

CLR $GDDAT 

EMT 141 

fcNABLE DEBUG CLOCK 
SET GO 
FORCE E8L 

VERIFY THAT LBT IS SET 



GO CLEAR CONTROLLER 
LOAD RMDC 
LOAD RMDA 
LOAD RMOF 

STORE RMOF AT $TMPO 
STORE RMDS AT $8DDAT 

.•BRANCH IF LBT IS RESET 
;L8T SHOULD BE ZERO 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
BNE 
MOV 
EMT 
BR 

BIT 
BNE 



*DMD.RMMR1 (RO) ;LOAD 
*0.ftMER1(R0) .-LOAD 
*0.RMER2(R0) ;LOAD 
*G0.RMCS1(R0) ;LOAD 
#DMD .' DBEN : DE8L .RMMR1 (RO) 
*DMD!DBEN.RMMR1(R0) 
RMDS(R0).$8DDAT ; STORE 
**CL8T.$BDDAT 
30$ .-BRANCH IF 

*L8T.$GD0AT 
142 
40$ 



RMMRl 
RMERl 
RMER2 
RMCS1 

.-LOAD RMMRl 
.•LOAD RMMRl 
RMDS AT $8DDAT 



LBT IS SET 



#FMT 16. RMOFO 
40$ 



.•DONE 16 BIT FORMAT 
;YES :. 



m L8T TEST 

2C79 02A2U 
2080 02^222 
?081 024230 
P082 024252 
2083 
2084 



DSKlS tst 1 PtACKO V04.00 



012737 
112737 
000677 



010000 
000037 



001444 
001420 



40S: 
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.••TEST 42 



btQ 0156 



MOV «FMT16.R«OF0 
nOVB «31.,RnDA0 
BR 10S 



SET 16 BIT flODE AND 
LAS' SECTOR 
TEST AGAIN 



:OMPOSITE ERROR TEST 



024232 
024232 
024234 
024236 
024242 
024246 
0242S2 



000004 
000240 
012706 
01 3700 
01 3701 
012737 



TST42: 



001100 
001276 
001466 
0000A2 



001226 



^085 










2086 


024260 


004737 


054674 




2087 


024264 


010037 


001 1 36 




2088 


G24270 


062737 


000012 


001 1 36 


2089 










2090 










2091 










2092 


024276 


012760 


000001 


000024 


2093 


024304 


012760 


000000 


000014 


2094 


024312 


012760 


000000 


000042 


2095 


024320 


016037 


000012 


001142 


2096 


024326 


042737 


1 17777 


001142 


2097 


024334 


001403 






2098 
2099 


024336 


005037 


001140 




024342 


104143 






2100 


024544 


012737 


040000 


001140 


2101 










2102 










2103 


024352 


012760 


'\77777 


00C014 


2104 


024360 


012760 


}77777 


000042 


2105 


024566 


016057 


00001 2 


001142 


2106 


024374 


042737 


M7777 


001142 


2107 


024402 


001001 






2108 


024404 


104144 






2109 










2110 










2111 


024406 








2112 


024406 


012702 


000001 




2113 










2114 










2115 


024412 








2116 


024412 


004737 


054674 




2117 


024416 


012760 


000001 


000024 


2118 


024424 


012760 


000000 


000014 


2119 


024432 


012760 


000000 


000042 


2120 


024440 


010260 


000014 




2121 


02A444 


016037 


000012 


001142 


2122 


024452 


042737 


M7777 


001142 


2125 


024460 


001005 






2124 


024462 


010237 


001174 




2125 


024466 


005037 


001176 





SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
MOV 
ADD 



<rSTACK.SP 
SBASE.RO 
TST0UE.R1 
*42.$TESTN 

PC.CNTCLR 
R0,$8DADR 
#RMDS.$BDADR 



.•SCOPE CALL 

;LOAD THE STACK POINTER 

;R0 - UN I BUS ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•GO CLEAR CONTROLLER 
.■SETUP REGISTER ADDRESS 



.•USING 
.ERROR 



MODE. CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE 



10$: 



DIAGNOSTIC 
IS RESET. 

MOV WMD.RMMRI (RO) 
MOV /fO.RMERI (RO) 
MOV *0.RMER2(R0) 
MOV RMDS(RO).$BDDAT 
SIC #*CERR.$8DDAT 
BEQ 10$ 
CLR SGDDAT 
EMT 143 
MOV *ERR,$GDDAT 



.-LOAD RMMR1 
;LOAD RMER1 
.-LOAD RMER2 
.•STORE RMDS 



AT $8DDAT 



.•BRANCH IF ERR IS RESET 



.-SET BOTH ERROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET 
MOV *-1.RMERl(R0) ;LOAD RMERl 
MOV #-1.RMER2(R0) ;LOAD RMER2 
MOV RMDSlRO>,$BDDAT ;STORE RMDS AT $8DDAT 
BIC **CERR.$BDDAT 

BNE 20$ .-BRANCH IF ERR IS SET 

EMT 144 

.•VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMERl 
20$: 

MOV *1,R2 ;INITIALIZE TEST PATTERN 



: WRITE 
|0$: 



THE TEST PATTERN AND VERIFY THAT ERR IS SET 



JSR PC.CNTCLR 

MOV #DMD,RMMR1 (RO) 

MOV #0. RMERl (RO) 

MOV #0.RMER2(R0) 

MOV R2.RMER1 (RO) 

MOV RMDS{R0).$8DDAT 

BIC **CERR,$BDDAT 

BNE 40$ 

MOV R2.$TMP0 

CLR $TMP1 



GO CLEAR CONTROLLER 
LOAD RMMRl 
LOAD RMERl 
LCAD RMER2 
LOAD RMERl 

STORE RMDS AT $BDDAT 

BRANCH IF COMPOSITE ERROR SET 
SAVE RMERl TEST PATTERN 
SAVE RMER2 TEST PATTERN 



rZRMPeO RM05/5/2 OSKlS TST 1 
T^.? COMPOSITE ERWW TEST 
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2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
21 3A 
2135 
2136 
2137 
2138 
2139 
2UC 
21A1 
2K2 
2K3 
?KA 
2K5 
2K6 
2U7 
2148 
21 49 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
215/ 
2158 
2159 
2160 
2161 
2162 
2163 
2164 



024472 104145 



024474 
024474 
0244/6 



024500 
024500 
024504 



024512 
024512 
024516 
024524 
024532 
024540 
024544 
024552 
024560 
024566 
024574 
024600 
024602 
024606 
024614 
024616 
024622 
024626 



024630 
024630 
024632 
024634 



024634 
024634 
024636 
024640 
024644 
024650 
024654 

2165 

2166 024662 

2167 024666 
2168 

2169 

2170 024670 

2171 024670 

2172 024674 



006302 
001345 



012702 
012737 



004737 
012760 
012760 
012760 
010260 
013760 
01603^ 
042737 
012737 
032702 
001402 
005037 
023737 
001405 
005037 
010237 
104145 



006302 
001327 



000004 
000240 
012706 
013700 
01 3701 
012737 

010037 
005002 



004737 
012760 



000001 
010000 



054674 
000001 
000000 
000000 
000042 
001 444 
000012 
137777 
040000 
001567 

001140 
001140 

001 1 74 
001176 



001100 
001276 
001466 
000043 

001136 



054674 
000001 



SEO 0139 



EMT 



145 



.-ADVANCE THE TEST PATTERN FOR RWER1 
40»: 

ASL R2 

BNE 30$ .-CONTrJUE IF TEST NOT DONE 

; VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2 
50S: 

MOV *1.R2 .-INITIALIZE TEST PATTERN 

MOV *FMT16.RM0F0 .-SET 16 BIT FORMAT 

.WRITE THE TrST PATTERN AND VERIFY THAT ERR IS SET 
60$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV ffDMD.RMMRI (RO) ;LOAD RMMR1 

MOV *0.RMER1(R0) ;LOAD RMER1 

MOV *0.ftMER2(R0) ;L0AD RMER2 

MOV R2.RMER2(R0) ;L0AD RMER2 

MOV RMOFO.RMOF(RO) ;LOAD RMOF 

MOV RMDS(R0).$8DDAT ;STORE RMDS AT $8DDAT 

BIC **CERR.$8DDAT 

MOV *ERR.$GDDAT 

BIT *XNUER2.R2 

BEQ 65$ 

CLR $GDDAT 

001142 65$: CMP $6DDAT.$BDDAT 

BEQ 70$ 

CLR $TMPC 

MOV R?.$TMP1 

EMT 145 



001444 



000024 
000014 
000042 

000032 
001142 
001142 
001140 



.SETUP EXPECTED VALUE FOR COMP ERROR 

.-BRANCH IF TEST BIT IS A USED BIT 
.-TEST BIT IS NOT USED - ERR SHOULD BE 0 

BRANCH IF COMP ERROR IS OK 
SAVE RMER1 TEST PATTERN 
SAVE RMER2 TEST PATTERN 



.-ADVANCE THE TESi -A'TERN FOR RMER2 
70$: 

ASL R2 

BNE 60$ .-CONTINUE IF TEST NOT DONE 

80$: 

■■*******♦***»***********♦»♦***♦»»•****♦**»**•*«****•****♦»****** 



;*TEST 43 



WRITE GO TEST 



■ •«•***•«*******♦»**♦**♦**♦****•*♦*»**•***«•»»♦***'•***»*•»»»**•* 



TST43: 



001226 



SCOPE ; SCOPE CALL 
NOP 

MOV /rSTACK.SP .-LOAD THE STACK POINTER 

MOV $8ASE,R0 ;R0 = UNIBUS ADDRESS 

MOV TSTQUE.R1 .-Rl = POINTER TO DEVICE 

MOV *43.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 



MOV R0.$8DA0R 

CLR R2 



;COPY RMCS1 ADDRESS 
.'INITIALIZE FUNCTION CODE 



000024 



.-CLEAR THE MASS8US, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV #DMD,RMMRHRO) ;LOAD RMMR1 



/w'^PfaO RM05/3/^ DSK.LS TST 1 
WRITE GO TEST 
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SEO 0140 



2173 

2^7^, 

?175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2^86 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 



2200 

2201 

220^ 

2203 

2204 

2205 

2206 

220. 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 



024702 
024710 
024716 



024724 
'^24726 
024732 
024736 
024744 
024752 



024754 
024762 
024766 
024770 



024772 
024772 
024776 
025002 

025004 



025004 
025004 
025006 
025010 
025014 
025020 
025024 

025032 
025036 
025044 



025050 
025050 
025054 
025062 
025070 
025076 



025104 
025112 
025120 
025122 
025150 



012760 
012760 
012760 



010203 
052703 
010360 
016037 
032737 
001007 



042737 
010337 
104146 
000405 



062702 
022702 
103332 



004737 
012760 
012760 
012760 
012760 



041001 
000000 
000000 



000001 
000000 
000000 
000001 



177700 
001140 



000002 
000076 



000024 
000014 
000042 



001142 
001142 



001142 



MOV #0MDIDeEN!^*JR.RMW1(R0) .-LOAD RMMR1 

MOV #0.RMER1(R0) ;L0AD RMER1 

^V #0.WER2(R0) .-LOAD RMER2 

.•TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 

MOV R2.R3 .-SETUP FUNCTION CODE 

BIS *G0.R3 

MOV R3.RMCS1(R0) ;LOAD RMCS1 

MOV R«CS1(R0).$8DDAT .STORE RMCS1 AT $8DDAT 

BIT *GO.$BDDAT 

BNE 20$ .-BRANCH IF GO IS SET 

.•REPORT THE ERROR-CANT SET GO WITH THIS FUNCTION CODE 

BIC *-CFNCMSK,SBDDAT 

MOV R3.$GDDAT ;SAVE FUNCTION CODE 

EMT 146 

BR 30$ 

;AbVANCc R2 TO THE NEXT FUNCTION CODE 
20$: 

ADD *2,R2 

CMP *ILF76.R2 

BHIS 10$ 



30$: 



;END OF TEST 



••*»♦*»****•»***•••***•*♦**♦•*•*•»*•**•••»»•»♦**»***»•»**»*»»*•** 

}WeST 44 BRANCH MULTIPLEXOR TEST 

• •♦*»♦»♦♦•**»*»«•*•♦•*•♦**»•»••*******»***•*•***••*•*•***»*»»*■*•»* 

tsT44: 



000004 






SCOPE 




; SCOPE CALL 


000240 






NOP 






012706 


001100 




MOV 


*STACK,SP 


;LOAO THE STACK POINTER 


013700 


001276 




MOV 


$aASE.RO 


;R0 - UNI8US ADDRESS 


013701 


001466 




MOV 


TST0UE.R1 


;R1 = POINTER TO DEVICE 


012737 


000044 


001226 


MOV 


#44.$TESTN 


;;SET TEST NUf«ER IN APT MAIL BOX 


010037 


001136 




MOV 


RG.$8DADR 


;COPY REGISTER ADDRESS 


062737 


000040 


001156 


ADD 


*RMMR2.$BDADR 




012702 


025270 




MOV 


*100$.R2 


.-INITIALIZE TABLE POINTER 



054674 
000001 
041001 
000000 
000000 



016037 000040 

032737 010000 
001010 

042737 167777 

012737 010000 



.CLEAR THE MASS8US AND SET DEBUG CLOCK ENABLE 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

000024 MOV ffDMD.RMMRI (RO) ;LOAD RMMR1 

000024 MOV #DMD!DBEN1MUR.RMMR1 (RO) ;LOAD RMMR1 

000014 MOV *0.RMER1(R0) ;LOAD RMER1 

000042 MOV *0.RMER2(R0) ;LOAD RMER2 

;THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN 

.-THE COMMAND SEQUENCER IS INITIALIZED. 

001142 MOV RMMR2(R0).$8DDAT ; STORE RMMR2 AT $8DDAT 

001142 BIT *TST.$BDDAT 

BNE 15$ .-BRANCH IF TEST BIT IS ON 

001142 BIC **CTST,$BDDAT .-SETUP FOR ERROR TVPE 

001140 MOV #TST.$GDDAT 



ZKMP80 KMOS/5/2 DSKLS TST 1 nAC»»0 VOA.OO 
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??20 025136 
2221 025140 
2222 
2223 
2224 

2225 025142 

2226 025142 

2227 025144 

2228 025150 

2229 025154 

2230 025160 
2231 

2232 025164 

2233 025170 

2234 025174 

2235 025174 

2236 025202 

2237 025210 
2258 025212 
2239 

2240 

2241 025214 

2242 025222 

2243 025230 

2244 025236 

2245 025244 

2246 025246 

2247 025250 
2248 

2249 

2250 025252 

2251 025252 

2252 025256 

2253 025262 

2254 025264 

2255 025266 
2256 

2257 

2258 025270 

2259 025270 

2260 025271 

2261 025272 
2262 

2263 025274 

2264 025275 

2265 025276 
2266 

2267 025300 

2268 025301 

2269 025302 
2270 

2271 025304 

2272 025305 

2273 025306 
227k 

227% 025310 
2276 025311 



104147 
000452 



111203 
052703 
0^,2703 
010360 
010337 

116203 
042703 

012760 
012760 
005303 
001370 



016037 
042737 
016237 
023737 
001402 
104150 
000406 



062702 
105762 
100401 
000671 
000436 



000 

001 
000000 

000 
002 
000000 

010 
001 
010000 

050 
001 
000000 

012 
001 



EMT 
BR 



147 
40S 



.-SKIP REST Of TEST 



;C.ET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE. 
.•THEN STEP THE COfflAND SEQUENCER ACCORDING TO THE TABLE. 
15S: 



000001 
177700 
000000 
001174 

000001 
1 77400 

141001 
041001 



000040 
167777 
000002 
001140 



000024 
000024 



001142 
001142 
001140 
001142 



20$: 



M0V8 

BIS 

6IC 

MOV 

MOV 

MOVB 
BIC 

MOV 
MOV 
DEC 
BNE 



(R2) .R3 
#G0.R3 

#*CrNCMSK.R3 
R3,RMCS1(R0) 
R3,$TMP0 

1 (R2),R3 
**C377.R3 



;R3=FUNCTI0N CODE. GO BIT 
.•LOAD RMCS1 

.-SAVE R3 FOR ERROR MSG 
;GET CLOCK COUNT IN R3 



#DMDID8EN:MUR.D8CK.RMMR1 (RO) .-LOAD RMMftI 
#DMDIDBEN1MUR.RMMR1(R0) ;LOAD RMMR1 
R3 .-DECREMENT CLOCK COUNT 

20$ .-ISSUE CLOCKS TILL ZERO 



000004 
000001 



.-GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY 

MOV RMMR2(R0).$BDDAT .-STORE RMMR2 AT $BDDAT 

BIC #*C:ST,$8DDAT 

MOV 2(R2).$GDDAT 

CMP $GDDAT.$8DDAT 

BEQ 30$ .-BRANCH IF TEST BIT OK 

EMT 150 

BR 40$ .-SKIP REST OF TEST 

.-MOVE THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE 
30$: 

ADD *4.R2 

TSTB 1 (R2) 

BMI 40$ ;8RANCH U DONE TEST 

BR 10$ .-REPEAT TEST 

40$: BR 200$ .'JUMP OVER TABLE 

.TABLE Of FUNCTION CODES. CLOCK COUNTS, AND TEST BITS 
100$: 



.BYTE 
.BYTE 
.WORD 


NOP 

1 

0 


;MUX ADDRESS=DATA 
.-TEST BIT 0 


COMMAND 


.BYTE 
• BYTE 
.WORD 


NOP 

2 

0 


;MUX ADDRESS=UNIT 
;TEST BIT=0 


READY 


.BYTE 
.BYTE 
.WORD 


DRVCLR 
1 

TST 


;MUX ADDRESS=F4 
.-TEST BIT=1 




•BYTE 
•BYTE 
.WORD 


WCD 

1 
0 


.-MUX ADDRESS-F4 
.-TEST BIT=0 




.BYTE 
.BYTE 


RLEASE 

1 


.-MUX ADDRESS-F4 
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2^77 025312 
2278 

2279 0253U 

2280 025315 

2281 025316 
2282 

2283 025320 

2284 025321 

2285 025322 
2286 

2287 025324 
2238 025325 
2289 025326 
2290 

2291 025330 

2292 025331 

2293 025332 
2294 

2295 025334 

2296 025335 

2297 025336 
2298 

2299 025340 

2300 025341 

2301 025342 
2302 

2303 025344 

2304 025345 

2305 025346 
2306 

2307 025350 

2308 025351 

2309 025352 
2310 

2311 025'i54 

2312 025355 

2313 025356 
2314 

2315 025360 

2316 025361 

2317 025362 

2318 025364 
2319 

2320 



025364 
025364 
025366 
025370 
025374 
025400 
025404 

2321 

2322 025412 
2323 



010000 

052 
001 
000000 

020 
001 
010000 

060 
001 
000000 

022 
001 
010000 

062 
001 
000000 

030 
001 
010000 

070 
001 
000000 

032 
001 

010000 

072 
001 
000000 

000 
377 
000000 



200$: 



.WORD 


TST 


.•TEST 8IT = 1 


BYTE 

• O Ilk 


WCH 


;MUX ADDRESS=F4 


-BYTE 


1 




.WORD 


0 


.TEST B1T=0 


BYTE 


RIP 


.-MUX ADDRESS=F4 


Ibyte 


1 


;TEST BIT=1 


.WORD 


TST 


BYTE 


WD 


.-MUX ADDRESS=F4 


iSYTE 


1 




.WORD 


0 


;TEST BIT=0 


-BYTE 


PAKACK 


;MUX ADDRESS=F4 


.BYTE 


1 


;TEST BIT=1 


.WORD 


TST 


BYTE 


WH 


.MUX ADDRESS=F4 


.BYTE 


1 




.WORD 


0 


;TEST 8IT-0 


•BYTE 


SEARCH 


;MUX ADDRESS-F4 


.BYTE 


1 


.•TEST BlT=1 


.WORD 


TST 


.BYTE 


RD 


;MUX ADDRESS=F4 


.BYTE 


1 




.WORD 


0 


;TEST BIT=0 


.BYTE 


ILF32 


;MUX ADDRESS=F4 


• BYTE 


1 


.-TEST BJT=1 


.WORD 


TST 


.BYTE 


RH 


;MUX ADDRESS=F4 


.BYTE 


1 




.WORD 


0 


.-TEST BIT=C 


.BYTE 




;END OF TABLE 


.BYTE 


-1 




.WORD 







.•END OF TEST 



000004 
000240 

012706 001100 

013700 001276 

013701 001466 
012737 000045 

012702 026026 



••*•♦••***»*•**•*•*««*»»****••******»***********••***••*****•***• 

}»TEST 45 SET/RESET 60 TEST 

• • »*»»♦***»*»••♦**•**•*«**••*****•*•**»»*••**»•*••*•••**•*••*••** 

tST45; 

; SCOPE CALL 



001226 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

MOV 



♦STACK, SP .-LOAD THE STACK POINTER 

$8ASE,R0 ;R0 = UNIBUS ADDRESS 

TST0UE,R1 ;R1 = POINTER TO DEVICE 

#45.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

*200J,R2 .-INITIALIZE FUNCTION CODE POINTER 
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025416 

Vb 1 w 


004737 


0546^4 








012760 

Vie* wW 


000001 


000024 




025430 


012760 


041001 


000024 




vC J" .JVI 


012760 

VIC* w 


000000 

WWW 


000014 

WW 1 ~ 


c > 


0?S^44 


012760 

VIC* wV 


000000 

www 


000042 

W W~ w 


CJJC 










t J J J 












0P5452 


1 1 1 203 






C J J J 


025454 


042703 


177701 






025460 


052703 


000001 






02546>4 


010360 

V ' V -/wW 


000000 

www 


001142 


2538 


025470 


016037 


000000 




025476 

VC ' w 


032737 


000001 


001142 




025504 


001 01 1 




001142 


2341 


025506 


042737 


1 77700 


2342 


025514 


010337 


001140 




2343 


C25520 

VC ^ -/C V 


010037 


001 1 36 




2344 


025524 

VC ^ -/c ^ 


104151 






2345 


025526 

VC J a/C V 


000536 






2346 










2347 










2348 


025530 








2349 


025530 

VC J y 


005037 

VV J\i -Jf 


001140 




2350 


025534 


032737 


000001 


001142 


2351 


025542 


001003 






2352 


025544 

VC 


012737 


000200 


001140 


2353 


025552 

VC V ■/ ^c 

025552 






001142 




016037 


000012 


2354 


025560 


042737 




001142 


2355 


025566 


023737 


001140 


001142 


2356 


025574 


001406 


001 1 36 




2357 


025576 


010037 




2358 


025602 


062737 


00001 2 


001 1 36 


2359 


025610 


104152 






2360 










2361 










2362 


025612 

VC -'W ' c 








2363 


025612 

VC a/W 1 C 


1 1 6204 


000001 




2364 


025616 


042704 


1 77400 




2365 


025622 

VC <^ VC fc> 






000024 


2366 


025622 

VC a' WC C 


012760 


141001 


2367 


025630 


012760 


041001 


000024 


2368 


025636 


016037 


000000 


001142 


2369 

1 VW ' 


025644 


042737 


1 77700 


001142 


2370 


025652 


010037 


001136 




2371 


025656 


010337 


001140 




2372 










2373 










2374 


025662 


005304 






2375 


025664 


001406 






2376 


025666 


032737 


000001 


001142 


2377 


025674 


001352 






2378 


025676 
02*^700 


104153 






2379 


00045^ 







.-CLEAR. THEN SET DIAGNOSTIC MODE. CLEAR COMPOSITE ERROR. SET MEDIUM 

;0N LINE AND ENABLE DEBUG CLOCK 

10S: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV /TDMD.RMMRKRO) ;LOAD RMMR1 

MOV #DMD!MUR:DBEN.RMMR1(R0) .-LOAD RMHRl 

MOV #0,RMERi(RO) .-LOAD RMER1 

MOV #0.RMER2(R0} .LOAD RMER2 



.TRANSFER THE 
M0V8 
BIC 
BIS 
MOV 
MOV 
BIT 
ONE 
BIC 
MOV 
MOV 
EMT 
BR 



AND 



GO BIT TO RMCS1 AND VERIFY GO IS SET 
GET FUNCTION CODE 
CLEAR UNUSED BITS 
SET GO 
LOAD RMCS1 

.•STORE RMCS1 AT $BDDAT 



FUNCTION CODE 
(R2).R3 
#*CILF76.R3 
#60, R3 
R3.RMCS1(R0) 
RMCS1(R0).$8DDAT 
#G0.$8DDAT 

20$ .-BRANCH IF GO IS SET 

#*CFNCMSK.$8DDAT 

R3.$6DDAT ;SAVE EXPECTED RESULT 

RO.SBDADR ;COPY REGISTER ADDRESS 

151 
100$ 



.-GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO 
20$: 

CLR $GDDAT .-EXPECT DRY TO BE OFF 

BIT #GO.$BDDAT ;WAS GO SET?? 

BNE 30$ ;YES.! 

MOV #DRY.$6DDAT ;60 WAS NOT SET. DRY SHOULD BE 

30$: 

MOV RMDS(R0).$8DDAT .-STORE RMDS AT $8DDAT 

BIC #*CDRY,$BDDAT 

CMP $GDDAT.$8DDAT 

BEQ 40$ .-BRANCH IF DRY IS OK 

MOV R0.$8DADR ;COPY REGISTER ADDRESS 

ADD *RMDS.$BDADR 

EMT 152 

;::EP THE DCBU6 CLOCK AND VERIFY THAT 60 REMAINS SET 
40$: 

Move 1(R2).R4 .-GET NUMBER OF CLOCK CYCLES 

BIC #*C377.R4 

50$: 

MOV #DMD!MUR!DBEN!D8CK.RMMR1 (RO) ;LOAD RMMR1 

MOV *DMD!MUR!DBEN.RM^lR1(R0) ;LOAD RMMR1 

MOV RMCS1(R0).$8DDAT .-STORE RMCSI AT $8DDAT 

BIC #*CFNCMSK.$8DDAT .-CLEAR UNUSED BITS 

MOV R0,$BDADR .-SETUP REGISTER ADDRESS 

MOV R3.$GDDAT .-SAVE EXPECTED RESULT 

.-DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO 

DEC R4 

BEO 60$ 

BIT *GO,$BDDAT ;IS GO STILL SET?? 

BNE 50$ .YES!! 

EMT 153 

BR 100$ ;OUT OF SYNC-SKIP TO NEXT 



ZRWPeO W)S/5/2 DSKLS TST 
SET/RtSfT GO TEST 



























?585 




KJjC' J' 














nps7i p 


n^P7^7 


WWV 1 


c 300 




1 U*» F JH 




C JO' 


n?S7PP 








nps7P^ 

VCjf £*• 






A5«;75Z. 


ni 97X7 


lAA/C vv 




nps7XP 


nXP7'^7 


VAA/vv ' 


c5t I 


nps7^n 

\JCJ' •»W 








nps7^p 




001 140 
















00001? 








177577 


> 

c J 7 J 


0PS76P 


010037 


001 1 36 




0?S7^>A 


06P737 


000012 


C 3" ' 






001 140 










2399 


OPAOOi 


1041 SP 






















OpAOOfi 






?i03 


0P606^ 

\J C w v/v/v> 


062702 


000002 

w w vt 




or 60 IP 


105762 


OOO0G1 


0P6016 


ioo^Op 




t WW 


0P60P0 


0001 37 


025416 




0P60P4 


OOOA23 






















0P6026 










OOP 






0P60P7 


001 




P41 3 










0P6030 


004 






026031 


001 












7 


0P603? 


006 




c** ' 0 


0P6033 


001 














0P6034 


014 






0P6035 


001 




c**cc 










VC 


016 




c Me** 


0P6037 


001 












c*»co 


OP6040 


024 




P4P7 


0P6041 


001 




P4P8 










0P604P 


026 




2430 


0260«.3 


001 




2A31 








2432 


026044 


034 




2453 


026045 


001 




2434 








2455 


026046 


036 
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:G0 


SHOULD I^OW 


BE RESET AND DRV 


SHOULD B*^ SEl 




60t: 








001 142 




Bjr 


'GO.SBDDA' 


:iS GO RESET?'> 








70$ 


• VtS. . 


001140 




BIC 


#G0 SGDDAT 


•SETUP EXPEC.'ED RESULT 




EMT 


154 








BR 


100$ 






70$: 








001140 




nov 


#D.'<Y, SGDDAT 


•EXPEC DRJVE READV TO 


001142 




BIT 


«G0 SfiDDAT 


;DJD GO RESET?? 






BEO 


80$ 


• VES' ' 






CLft 


SGDDAT 


•60 IS SET- 




SOS: 








001142 




nov 


R/1DS(R0) .SBDDAT 


; STORE RMDS AT SBDDAT 


001142 




BI c 


#*CDRY SBDDAT 






nov 


R0.S6DADR 


;COPY REGISTER ADDRESS 


001 1 36 




ADD 


#RMDS S6DADR 




001142 




CMP 


SGDDAT. SBDDAT 


;IS DRIVE READY OK?? 




BEO 


90$ 


;YEs; : 






EMT 


152 





SEa 0144 



.•ADVANCE TO THE NEXT FUNCTIOW CODE TO BE TESTED-EXIT IF DONE 
90$: 



ADD #2.R2 

TST8 1(R2) 

Bfll 100$ 

jrv> 10$ 

100$^ BR 300$ 



nOVE TABLE POINTER 
END OF TABLE?? 

YES! ; 

TEST THIS FUNCTION CODE 
GO TO NEXT TEST 



;T^8LE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 
200$: 



.BYTE 
.BYTE 

.BYTE 
.BY'E 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 



ILF02 
1 

SEEK 

1 

RECAL 
1 

OFFSET 
1 

RTC 
1 

ILF24 
1 

ILF26 
1 

ILF34 

1 



.BYTE ILF36 



.•ILLEGAL FUNCTION CODE *2 
;SEEK COMMAND 
.•RECALIBRATE COMMAND 
.•OFFSET COMMAND 

.•RETURN TO CENTER LINE COMMAND 
.•ILLEGAL FUNCTION CODE *24 
.•ILLEGAL FUNCTION CODE *26 
; ILLEGAL FUNCTION CODE *34 
.•ILLEGAL FUNCTION CODE #36 



C 12 



AS 



2456 

2437 

243« 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

24'^ 7 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

<:469 

2470 



SET/RESET GO TEST 














026047 


001 




.B/TE 


1 








026050 
026051 


001 




.6VTE 


II t/.3 
J Lr 

1 


-lilt ^Al C 1 lUf T T DfU 
• J L L C UAL r IML i i \Jt% 


rnnp 


t 


VCWw vC 

026053 


044 
001 




OVTF 

.syTE 


1 




rnnp 


• 


026054 
026055 


046 
001 




nvTC 
.BYTE 


1 




rnnp 




026056 

vC W 

026057 


054 
001 




• OT 1 t 


II f 
1 


•flip CAI F 1 Mr T r DM 


rnnp 




026060 
026061 


056 
001 




.BYTE 


'1 F^A 
1 


(ILLCUML r UIML I J uli 


rnnp 




026062 
026063 


064 
001 




QVTC 

.or 1 1 
.BYTE 


1 1 ^t\L 
1 


« i L L c UML r VJIML 1 J UIX 


rnnp 
L uuc 


UAL 


026064 
026065 


066 
001 




QVTP 
• Or 1 1 

.BYTE 


i Lr OO 
1 


^iLLCUML r unL 1 J UIN 


rnnp 

LUUC 


WOO 


026066 
026067 


074 
001 




.BYTE 


1 


• HIP RAi p 1 iKir T I DM 

fiLLCOML r UniL 1 i UT>i 


rnnp 

LUUC 


#7i 


026070 
026071 


076 
001 




.Or 1 C 

.BYTE 


Ti r 

i Lr r O 
1 


• Tl 1 Pf^AI PIMrTTDKl 
.iLLCUML ruraL'iUli 


rnnp 

LUUC 


w f \i 


026072 
026073 


000 
377 




D V TC 
.O" 1 t 

.BYTE 


-1 


• Pftin np TAm p 






026074 




300$: 






;END OF TEST 







******************* ************************************** •*•**• 



;*TEST 46 



END 1 RESET GO TEST 



026074 
026074 
026076 
026100 
026104 
026110 
0261 U 

2471 

2472 026122 

2473 026126 
2474 

2475 

2476 026132 

2477 026132 

2478 026136 

2479 026144 

2480 026152 

2481 026160 
?482 



000004 
000240 
012706 
013700 
013701 
012737 

012702 
010037 



004737 
012760 
012760 
012760 
012760 



001100 
001276 
001466 
000046 

026360 
001136 



054674 
00000 : 
041001 
000000 
000000 



001226 



000024 
000024 
000014 
000042 



TST46: 

SCOPE .-SCOPE CALL 
NOP 

MOV *STACK,SP .-LOAD THE STACK POINTER 

MOV SSASE.RO ;R0 - UNI8US ADDRESS 

MOV TSTQUE.R1 ;R1 = POINTER TO DEVICE 

MOV *46.$TESTN ;;S£T TEST NUMBER IN APT MAIl BOX 

MOV #100$, R2 .-INITIALIZE TABLE POINTER 

MOV R0.$8DADR ;C0PY RMCS1 ADDRESS 

.•CLEAR MASS8US, THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK 
10$: 

JSR PCCNTCLR ;G0 CLEAR CONTROLLER 

MOV #D«D.RMMR1(R0) .LOAD RM1R1 

MOV *DMD!MUR!D8EN.RMMR1<R0) ;LOAD RMMPJ 

MOV *0.RMER1(R0) ;LOA0 RHERl 

MOV #0.RMER2(R0) ;LOAD RMER2 



/RMPBO DSKlS TST 1 

END 1 RESET GO TEST 
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026166 


1 1 1 203 








026'i 70 


042703 


177701 




2486 


0261 74 


052703 


000001 




2487 


026200 


010337 


001140 




2488 


026204 


010360 


000000 




2489 


026210 


016037 


000000 


001142 


2490 


026216 


032737 


000001 


001142 


2491 


02622«» 


001005 


177700 




2492 


026226 


042737 


001142 


2493 


026234 


104151 






2494 


026236 


000447 






2495 










2496 










2497 


026240 








2498 


026240 


116204 


000001 




2499 


026244 


042704 


1 77400 




2500 










2501 










2502 


C26250 








2503 


026250 


012760 


141001 


000024 


2504 


026256 


012760 


041001 


000024 


2505 


026264 


016037 


000000 


001142 


2506 


026272 


042737 


177700 


001142 


2507 


026300 


005304 






2508 


026302 


00'i406 






2509 


026304 


032737 


000001 


001142 


2510 


026312 


001356 






2511 


026314 


104153 






2512 


026316 


000417 






2513 










2514 










2515 


026320 








2516 


026320 


032737 


000001 


001142 


2517 


026326 


001405 






2518 


026330 


042757 


000001 


001140 


2519 


026336 


104154 






2520 


026340 


000406 






2521 










2522 










2521 


026342 








2524 


026342 


062702 


000002 




2525 


026346 


105762 


000001 




2526 


026352 


100401 






2527 


026354 


000666 






2528 


026356 


000404 






2529 










2530 










2551 


026360 








2532 


026360 


012 






2533 


026361 


002 






2534 










2535 


026362 


030 






2536 


026363 


002 






2537 










2338 


026364 


032 






2539 


026365 


002 







.•TRANSFER THE FifKCTION CODE WD GO BIT TO RMCS1. VERIFY GO IS SET 

nOV8 (R2KR3 .GET FUNCTION CODE FROM 

PIC *''C1LF76.R3 .-TABLE AND SET GO 

31 S #G0.R3 

MOV R3,$GDDAT ;SAVE FUNCTION CODE FOR MSG 

MOV R3.RMCS1(R0) .LOAD RMCS1 

MOV RMCSMRO).$eDDAT .-STORE RMCSl AT $8DDAT 

BIT «G0.$8D0AT 

BNE 20S .-BRANCH IF GO IS SET 

BIC #*CFNCMSK.$BDDAT 

EMT 151 

BR 60S .-OUT OF SYNC-SKlP 

.-GET THE NUMBER OF CLOCK CYCLES FROM THE TABLE. SAVE EXPECTED STATUS 
20$: 

M0V8 1(R2)-R4 ;R4=CL0CK COUNT 

BIC #*C377.R4 

.-STEP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES. 
30$: 

WMDIHURIDBENIDBCK.RMMRKRO) .-LOAD RMMRl 
#DMD1(1UR:DBEN.RMMR1 (RO) .-LOAD RMMRl 
RMCSl (RO).$BDDAT .'STORE RMCSl AT $8DDAT 

**CFNCMSK.$8DDAT 
R4 

.•BRANCH IF GO SHOULD BE O^F 



MOV 
MOV 
MOV 
BIC 
DEC 
BEC 
BIT 
BNE 
EMT 
BR 



40$ 
#GO.$BDDAT 
30$ 
1 53 
60$ 



;VERIF- 
40$: 



THAT GO RESET AT ENDl 



BIT 
BEQ 
BIC 
EMT 
BR 



*G0.$BDDAT 
50$ 

*G0.$GDDAT 

154 

60$ 



.•CONTINUE IF GO IS ON 
;OUT 0*^ SVNC-SKIP 



.-DID GO RESET?? 

;YES;i 



;GET THE NEXT rUNCTION CODE FROM THE TABLE 
50$: 

ADD 02. R2 

rSTB 1(R2) 

8MI 60$ 

BR 10$ 

60$: BR 200$ 



BRANCH IF END OF TABLE 
TEST THIS FUNCTION CODE 
JUMP OVER TABLE 



.•TABLE Of FUNCTION CODES AND LLOCK COUNTS USED DURING TEST 
100$: 

.BYTE RLEASE .-RELEASE COMMAND 

.ByfE 2 



.BYTE 
.BYTE 

.BYTE 
.BYTE 



SEARCH 
2 

ILF32 

2 



.•SEARCH COMMAND 
.'ILLEGAL FUNCTON «32 



'ZRMPBO W105/5/2 DSKLS TST 1 
END 1 RESET GO TEST 
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25A0 

2541 026566 

2542 026367 

2543 026370 
2544 

2545 



026370 
026370 
0263^2 
026374 
026400 
026404 
026410 



000 
377 



000004 
000240 
012706 
013700 
0'.3701 
012737 



001100 
001276 
001466 
000047 



200S: 



.erTE 

.8VTE 



-1 



.END OF TABLE 
.-END OF TEST 



;»TEST 47 



SET PULSE TEST 



TST47: 



001226 



2546 










2547 
2S48 


026416 


010037 


001136 




026422 


062737 


000024 


001136 


2549 


026430 


012702 


026666 




2550 










2551 










2552 


026434 








2553 


026434 


004737 


054674 




2554 


026440 


012760 


000001 


000024 


2555 


026446 


012760 


041001 


000024 


2556 


026454 


012760 


000000 


000014 


2557 


026462 


012760 


000000 


000042 


2558 










2559 










2560 


026A70 


016037 


000024 


001142 


2561 


026476 


042737 


177677 


001142 


2562 


026504 


001404 






2563 


026506 


005037 


001140 




2564 


026512 


104155 






2565 


026514 


000463 






2566 










2567 










2568 


026516 








2569 


026516 


111203 






2570 


026520 


052703 


000001 




2571 


026524 


042703 


1 77700 




2572 


026530 


010360 


000000 




2573 


026534 


010337 


001 1 74 




2574 










2575 
2576 










026540 


116203 
042703 


000001 




2577 


026544 


1 77400 




2578 










2579 










2580 


026550 


016204 


000002 




2581 










2582 










2583 


026554 








2584 


026554 


012760 


141001 


000024 


2';85 


026562 


012760 


041001 


000024 


:586 


026570 


016037 


000024 


001142 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 
ADD 
MOV 



#STACK.SP 
$8ASE,R0 
TSTQUE.R1 
*47.$TEST\ 

R0.$8DADR 
*RMM«1 ,$eDADR 
*100$,R2 



; SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 = UN18US ADDRESS 

;R1 - POINTER TQ DEVICE 

;;SET TEST NUMBER IN AP^ MAIL BOX 

.•COPY REG ADDRESS FOR MSG 

.•INITIALIZE TABLE POINTER 



.•CLEAR THE MASS BUS. ENABLE DEBUG CLOCK. AND RESET E^ROR REGISTERS 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV *DMD.RMMR1 (RO) ;LOAD RMMR1 

MCV *D«1>!DBlN.MUR.RMMR1 (RO) ;LOAD RMMfil 

MOV *0.RMER1{R0) ;LOAD RMER1 

MOV #0.ftMER2<R0) ;LOAD RMER2 

.-VERIFY THAT CONTIARJE. "CONT" IS RESET AFTER CLEAR 

MOV RMMR1(R0).$eDDAT ;ST0RE RMMRl AT SBDDAT 

BIC **CC0NT.$8DDAT 

8E0 20$ ;8RANCH IF CONT WAS CLEARED 

CLR $GDDAT .-^OR ERROR MSG 

EMT 155 

BR 70$ 

;GFT THE FUNCTION LODE FROM THE TABLE AND TRANSFER IT TO RMCS1 
20$: 

M0V8 (R2),H3 

BIS *60,R3 

BIC #*CFNCM5K.R3 ;Ri=FUNCTION CODE AND GO 

MOV R3,RMCS1(R0) ;LOAD RMCS1 

MOV R3.$TMP0 .-SAVE FUNCTION CODE FOR MSG 

;GET THE CLOCK COUNT FROM THE TABLE 
M0V8 1(R2)-R3 
BIC #*C377.R5 

.•GET THE BIT STREAM FOR CONTINUE FROM THE TABLE 
MOV 2(R2),R4 

•STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS 
^0$: 

MOV *DMD.'DBEN.'MUR.D8CK,RMMR1(R0) ;LOAD RMM^^I 

MOV *DMD.D8EN.MUR.'^MMR1(R0) ;LOAD RMMRl 

MOV RMMRURO).$BDDAT ; STORE RMMRl AT $8DDAT 



/s^MPBO RM05/3/2 DSKl S TST 1 
SET PULSE TEST 
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SEO CU8 



2587 

2588 

2589 

2590 

2591 

2592 

2595 

?594 

2595 

2596 

2597 

2508 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

26U 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2656 

2637 

2638 

2639 

2640 

2641 

2642 

2643 



026576 
026604 
026610 
026614 
026616 
026624 
026632 
026634 
026636 



026640 
026640 
026642 
026644 
026646 



042737 


17767^ 


001142 


91 C 


#*CC0NT.$8DDAT 




005037 


001140 




CLR 


SGDDAT 


.-GENERATE EXPFCTED CONTINUE 


032704 


000001 




BIT 


#8J T0.R4 




001403 






BEQ 


40$ 




012737 


000100 


001140 


MOV 


#CONT. SGDDAT 




023737 


001140 


001 U2 40S: 




SGDDAT. S8DDAT 




001 402 






6E0 


50S 


.•BRANCH IF CONTINUE IS OK 


104156 






EMT 


156 




000412 






BR 


70$ 


.•SKIP 



005505 
001402 
006204 
000742 



.DECREMENT CLOCK COUNT AND SHIFT BIT STREAM 
50$: 

DEC R3 
BEO 60$ 
ASR R4 
BR 30$ 



BRANCH IF CLOCK COUNT EXPIRED 
SHIFT TO NEXT CONTINUE BIT 
TEST NEXT CLOCK CYCLE 









.-ADVANCE TABLE 


POINTER-EXIT IF 


DONE 


026650 






60$: 








C26650 


062702 


OC0004 




ADD 


*4.R2 












TST8 


1(ft2) 




026660 


100401 






BMI 


70$ 


;EyiT IF CLOCK COUNT NfcGA 


026662 


000664 






BR 


10$ 


.•CONTINUE TEST 


026664 


000442 




7nt • 

f \/9 * 


BR 


200$ 


;JUMP OVER TABLE 








; TABLE 


OF FUNCTION CODES. CLOCK 


COUNTS AND CONTINUE BITS 


026666 






100$: 








026666 


000 






.BYTE 


NOP 


.-NOP COMMAND 




one 






.BYTE 


4 


■4 CLOCKS 


026670 


OOOOUO 






.WORD 


*B0000 


■CONTINUE -0000 


026672 


002 






.BYTE 


ILF02 


.•ILLEGAL FUNCTION 2 




002 






.BYTE 


2 




026674 


000000 






.WORD 


"BOO 




026676 


004 






.BYTE 


SEEK 


.-SEEK COMMAND 


026677 


002 






.BYTE 


2 




026700 


000000 






.WORD 


•800 




026702 


006 






.BYTE 


RECAL 


.•RECALIBRATE COMMAND 


026703 


002 






.BYTE 


2 




026704 


000000 






.WORD 


*BO0 




026706 


010 






.BYTE 


DRVCLR 


.•DRIVE CLEAR COMMAND 


026707 


002 






.BYTE 


2 




026710 


000001 






.WORD 


•B01 




026712 


012 






• BYTE 


RLEASE 


.•RELEASE COMMAND 


026713 


003 






.BYTE 


3 




026714 


000000 






.WORD 


*8000 




026716 


014 






•BYTE 


OFFSET 


.•OFFSET COMMAND 


026717 


- 002 






.BYTE 


2 




026720 


000000 






.WORD 


•800 




026722 


016 






.BYTE 


RTC 


.•RETURN '0 CENTER fOMMAND 


026723 


002 






.BYTE 


2 





SEi PULSE TEST 



2f6A6 026726 
26A7 026727 
26A8 026750 
26A9 

2650 02673? 

2651 026733 

2652 026734 
2653 

2654 026736 

2655 026737 

2656 026740 
2657 

2658 026742 

2659 026743 

2660 026744 
2661 

2662 026746 

2663 026747 

2664 026750 
2665 

2666 026752 

2667 026753 

2668 026754 
2669 

2670 026756 

2671 026757 

2672 026760 
2673 

2674 026762 
2671) 026763 
2676 026764 
2677 

2678 026766 

2679 026767 

2680 026770 
2681 

2682 026772 

2683 

2684 
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020 


.BYTE 


RIP 


;READ IN PRESE^ COMMAND 


004 


.evTE 


4 




UVw lO 




*B1 1 1 0 




022 


.BYTE 


PMACK 


;PACK ACKNOWLEDGE 


0O4 


.BYTE 


A 




UUUU'O 




Q 1 1 • U 




024 


.BYTE 


ILF24 


.-ILLEGAL FUNCTION 24 


002 


.BYTE 


2 




Uv*/Vvv 




"BOO 




026 


• BYTE 


ILF26 


.-ILLEGAL FUNCTION 26 


002 


.BYTE 


2 




nnnnnci 








030 


.BYTE 


search 


.-SEARCH COMMAND 


003 


.BYTE 


3 








*aooo 




032 


.BYTE 


1LF32 


.-ILLEGAL FUNCTION 32 


003 


.BYTE 


3 








*B000 




034 


.BYTE 


ILF34 


.•ILLEGAL FUNCTION 34 


002 


.BYTE 


2 




nnnonn 




*B00 




036 


.BYTE 


ILF36 


.•ILLEGAL FUNCTION 36 


002 


.BYTE 


2 




000000 


.WORD 


*B00 




000 


.byte' 




.-END OF TABLE 


377 


.BYTE 


-1 




000000 


.WORD 







200$: 



.-END OF TEST 



;*TEST 50 



SET/RESET IVC TEST 



»»»*»•»»»♦•»»»*»*»*♦♦*»*♦*»**•*»»»*•»**»•**«•*••»•*•*»»*'*••••» 



026772 
026772 
026774 
026776 
027002 
027006 
027012 

2685 

2686 027020 

2687 02702'. 

2688 027032 
2689 

2690 



000004 
000240 
012706 
013700 
013701 
012737 

010037 
062737 
005002 



001100 
001276 
001466 
000050 

001 1 36 
000042 



001226 
001 1 36 



TST50: 



SCOPE 
NOP 

MOV MSJACK.SP 

MOV $3ASE,R0 

MOV TSTOUE.RI 

MOV #50.$TESTN 



.-SCOPE CALL 

LOAD THE STACK POINTER 

RO UNIBUS ADDRESS 

R1 - POINTER TO DEVICE 

.•SET TEST NUMBER IN APT MAIL BOX 



MOV R0.$8DADR ; SETUP REG ADDRESS 
ADD *RMER2.$8DADR 

CLR R2 ;R2=FUNCTI0N CODE 

.•INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO. 



2691 

2692 

2693 

2694, 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

27C^ 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2715 
2716 
2717 
2718 
2719 
2720 
2721 
272^ 
772-^ 
■272U 
272% 
2726 
2727 
2728 
2729 
J' 7 50 



HH05/5/2 DSKLS TST 
SEr/RESfT IVC TEST 



H 12 

■lACRO V04.00 <i-APQ-81 C!:24:^5 PAGE '3-5<. 



02703A 
02705A 
027040 
027046 
027054 
027062 
027070 
027076 
027104 
027106 
027112 
027114 



027116 
027116 
027120 
027124 
0271 30 
027136 
027144 
027152 
027160 
027166 
027174 
027202 
027204 
027210 



02/212 
027212 
027216 
027222 
02722^ 

027226 



027226 
027226 
027230 
027232 
027236 
027242 
027246 

2731 

2732 027254 

2733 0?7260 
2754 

2735 

2756 027266 
2^37 0???73 



004737 
012760 
012760 
012760 
012760 
016037 
042737 
001404 
005037 
104157 
000444 



010203 
052703 
010360 
012760 
012760 
016037 
042737 
016237 
042737 
023737 
001403 
010237 
104160 



062702 
022702 
103401 
000703 



000004 
000240 
012706 
013700 
013701 
012737 

010037 
062737 



004^37 
01.V60 



C54674 
000001 
041001 
000000 
000000 
000042 
^ 67777 

001140 



000001 
000000 
141001 
041001 
000042 
^67777 
063416 
^67777 
001140 

001174 



000002 
000076 



001100 
001276 
001466 
000051 

001136 
000042 



054674 
000001 



000024 
000024 
000014 
000042 
001142 
001142 



OOOOf'4 
000024 
001142 
0011'i2 
001140 
001140 
001142 



001226 
001136 

000024 



10S: 

JSR PC.CNTClR ;&0 CLEAR CONTROLLER 

MOV #DMD.RWR1(R0) ;L0AD RWRl 

MO.' #DMI)!l1UR!D8EN.Rrt1RHR0) ;LOAD RMMRl 

MOV *0.RMER1(R0) ;LOAD RMER1 

MOV *0,RMER2(R0) ;LOAD RMER2 

MOV RMER2(R0),$6DDAT ;ST0RE RMER2 AT $8DDAt 

BIC **CJVC.$8DDAT 

8EQ 20$ .-BRANCH IF ]VC IS ZERO 

CLR S6DDAT 

EMT 157 

BR 40$ .-SKIP REST OF TEST 

;LOAD THE FUNCTION CODE WITH GO BIT. STEP THE COMMAND SEQUENCER OFF 

.-ADDRESS 0 AND VERIFY IVC STATUS. 

20$: 

MOV R2,R3 .-SETUP FUNCTION CODE 

BIS *G0,R3 

MOV R3,RMCS1(R0) ;L0AD RMCSI 

MOV *DMDIMUR.DBEN!D8CK.RMMR1 (RO) ;L0AD RMMRl 

MOV *DMD !MUR!DBEN. RMMRl (RO) .-LOAD RMMRl 

MOV RMER2{R0).$6DDAT .-STORE RMER2 AT $8DDAT 

BJC #*CJVC.$8DDAT ;SET ACTUAL STATUS 

MOV FNCDTB(R2) ,$6DDAT ;SETUP EXPECTED STATUS FROM 

BIC #*CIVC.$GDDAT .-FUNCTION CODE TABLE 

CMP $GDDAT.$BDDAT 

BEQ 30$ .-BRANCH IF IVC IS OK 

MOV R2.$TMP0 .-SAVE F UNCI ON CODE FOR MSG 

EMT 160 

.•ADVANCE FUNCTION CODE AND REPEAT TEST IF NOT DONE 
30$: 

ADD >r2,R2 

CMP #JLF76,R2 

BLO 40$ .-BRANCH IF DONE TEST 

BR 10$ 



40$: 



.-END OF TEST 



•iTEST 51 SET LSC TEST 

■•»*••»»***»*••••»•*****»•»»•*»*»****»»**»••••»•»•»»«»»*•»*•••*»• 

tsT51 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 
ADD 



/irSTACK.SP 
$8ASE.R0 
TSTQUE.R1 
*51.$TESTN 

R0.S8DADR 
XfRMER2.$8DADR 



.-SCOPE CALl 

;LOAD THE STACK POINTER 

.-RO = UNI BUS ADDRESS 

;R1 - POINTER TO DEVICE 

.-.-SET TEST NUMBER IN APT MAIL BOX 



.-INITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK, 'ISC", IS RESET 
JSR PC.CNTCLR .-60 CLEAR CONTROLLER 

MOV #DMD,RMHR1(R0) .-LOAD RMMRl 



/RWPBO DSKlS TST 1 

'S' SET LSC TEST 



MACWO i/(K.CO A-APR-B"" : 
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?/5« 
2719 

?742 
2743 
2744 
?745 
2746 
2747 
2748 

2749 

2750 
2751 
2752 
2755 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 



027300 
027306 
027314 
027322 
027330 
027336 
027340 
027344 



027546 
027346 
027354 
027362 
027366 
027372 
027574 



027400 
027406 
027414 
027422 
027424 
027432 

027434 



012760 
012760 
012760 
016037 
042757 
001405 
005037 
104161 



012760 
012737 
004777 
005757 
001375 
004777 



012760 
016037 
042737 
001004 
012737 
104162 



02743- 
027454 
027436 
027440 
027444 
027450 
027454 



000004 
000240 
012706 
01 3700 
013701 
012737 



040001 
COOOOO 
000000 
000042 
171777 

001140 



000001 
000001 
152150 
001534 

152140 



000001 
000042 
173777 



000024 
000014 
000042 
001142 
001 K2 



000000 
001534 



000024 
001142 
001142 



004000 001140 



001100 
001276 
001466 
000052 



001 2?6 



•10V ^DW.'DBEN.RMMRI (RO) 

MOV <r0.fti1ERl(R0> ;L0AD 

MOV #0.R«ER2(R0) ;LOAD 

MOV RriER2(R0).S8DDAT 

BIC #*CLSC.$8DDAT 

BEQ 10$ .-BRANCH 

CLR SGDDAT 

EMT 161 



;L0AD RMMR1 
RMER1 
RMER2 

.•STORE RMER2 AT $8DDAT 



IF LSC IS ZERO 



;W1TH DEBUG CLOCK LNABLED. SET GO AMD WAIT FOR ONE SHOT TQ SET 
10$: 



MOV /ITGO.RMCSI (RO) 

MOV /irl. WATCH 

JSR PC.aCLOCK 

20$: TST WATCH 

BUE 20$ 

JSR PCaSTOPCL 



.LOAD RMCS1 
;SET WATCHDOG TIMER VALU^ 
; START THE CLOCK 

.•WAIT FOR WATCH ZERO 
.•STOP THE CLOCK 



;ONt SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET. 
MOV *DMD.RMMR1(R0) ;LOAD RMMR1 

MOV RMER2(R0),$8DDAT ;STORE RMER2 ^T $BDDAT 

BIC **CLSC.$8DDAT 

BNE 30$ .-BRANCH IF LSC SET 

MOV #LSC,$GDDAT 
EMT 162 

.-END OF TEST 



30$: 



.-•TEST 52 



DECODE TEST 



»»»»»»••»•»»•*»••••••»•»»»•••»•*»»•»»••»•»••••»••••»*•••••»*»•• 



TST52: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



2765 














2766 


027462 


005037 


001426 






CLR 


2767 


027466 








5$: 




2768 


027466 


004737 


030046 






JSR 


2769 














2770 










.•EXECUTE A PACK 


2771 


027472 


013760 


001426 


000014 




MOV 


i.771 


027500 


012760 


000023 


000000 




MOV 


7171 


027506 


012703 


000003 






MOV 


277K 


027512 








10$: 






027512 


012760 


141001 


000024 




MOV 


277S 


027520 


012760 


041001 


000024 




MOV 


2776 


027526 


005303 








DEC 


2777 


027530 


001370 








BNE 


2778 


027532 


016037 


000012 


001142 




MOV 


2779 


027540 


042737 


177677 


001142 




BIC 


2780 


027546 


001414 








BEQ 


2781 


027550 


005737 


001426 






TST 



.-SCOPE CALL 

fSTACK.SP .-LOAD THE STACK POINTER 

$8ASE.R0 .-RO - UNI80S ADDRESS 

TSTQUE.R1 ;R1 POINTER TO DEVICE 

*52.$rESTN ;;SET TEST NUTBER IN APT MAIL BOX 

RMER10 ;N0 ERROR FIRST TEST 

PC, 100$ .INITIALIZE 



RMERIO.RMERKRO) 

*PACACK!G0.RMCS1(R0) 

*3,R3 



;LOAD RMER1 
;LOAD RMCSl 



*DMD.'MUR!DBEN!D8CK,RMMR1(R0) ."LOAD RMMR1 
*DMD.'MUR;DBEN,RMMR1 (R0> .-LOAD RMMRl 

10$ .ISSUE NEXT CLOCK IF COUNT NOT 0 

RMDS(R0).$8DDAT ; STORE RMDS AT $8DDAT 
#*CVV,$BDDAT 

20$ jBR-ANCH IF VV IS ZERO 

RMERIO 



/RMoeO f<H05/5/2 OSKLS TSl 1 
'5? DECODE TEST 
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2^82 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2795 
2794 
2795 

2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
28K 
2815 
2816 

2817 
2S18 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 



027554 
027556 
027562 
027566 
027574 
027576 
027600 
027600 



027604 
027612 
027620 
027624 
027624 
027632 
027640 
027642 
027644 
027652 
027660 
02/662 
027666 
027670 
027674 
027700 
027706 
027710 
027712 
027712 



027716 
027724 
027732 
027736 
02 7730 
027744 
027752 
027754 
027756 
027764 
027772 
02777^ 
030000 
030002 
030006 
030012 
030020 
030022 



030024 
030024 
030030 



001527 
005037 
010037 
062737 
104163 
000522 



013760 
012760 
012703 

012760 
012760 
005303 
001370 
016037 
042737 
001414 
005737 
001462 
005037 
010037 
062737 
104163 
000455 



013760 
012760 
012703 

012760 
012760 
005303 
0013^0 
016037 
042737 
001414 
005737 
001415 
005037 
010037 
062737 
104164 
000410 



005737 
001005 



C01140 
001136 
000012 



004737 030046 



001426 
000021 
000003 

141001 
041001 



000^12 
177677 

001426 

001140 
001136 
000012 



004737 030046 



001426 
000051 
000002 

141001 
041001 



000024 
077777 

001426 

001140 
001136 
000024 



001426 



001136 



20t: 



BEQ 70$ 

CLR SGDDAT 

nOV RO.SeOADR 

ADD 4rRnDS,SBnADR 

EMT 163 

BR 80$ 

JSR PCJ00$ 



.•BRANCH IF VV SHOULD BE Sf T 
.SETUP ERROR "lESSAGE 



.•SKIP 

.•INITIALIZE AND SET DIAGNOSTK liODE 



000014 
000000 



000024 
000024 



001142 
001142 



001136 



.•EXECUTE A READ IN PRESET AND CHECK VOLUME VALID 



30$: 



40$: 



P10V 
MOV 
MOV 

MOV 
MOV 
DEC 
BNE 
MOV 
BIC 
BEO 
TST 
BEO 
CLR 
MOV 
ADD 
EMT 
BR 

JSR 



RMERIO.RMERKRO) ;LOAD RMERl 

#RIP!G0.RMCS1(R0) .LOAD RMCS1 

#3,R3 ;R3=CL0CK COUNT 

*DMD!MUR!D8EN.D8CK:.RMMR1 (RO) ;LOAD RMMR1 

WMD.MURIDBEN.RMMRI (RO) ;LOAD RMMR1 

R3 

30$ ; ISSUE NEXT CLOCK IF COUNT NOT ZfRO 

RMDS(RO) ,$BDDAT ."STORE RMDS AT $8DDAT 
#*CVV.$BDDAT 

.•BRANCH IF VOLUME VALID NOT SET 



40$ 

RMERl 0 
70$ 

$GDDAT 

R0.$8DADR 

/irRMDS.$BDADR 

163 

80$ 

PC. 100$ 



.•BRANCH IF VOLUME VALID SHOULD BE SE ^ 
; SETUP ERROR MEiSAGE 



.■SKIP 

.•INITIALIZE AND SET DIAGNOSTIC MODE 



000014 
000000 



000024 
000024 



001142 
001142 



001136 



.•EXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED 

MOV RMERIO.RMERKRO) ;LOAD RMERl 

MOV #WCD1G0.RHCS1(R0) ;LOAD RMCSl 

MOV *2,R3 ;R3 CLOCK COUNT 

50$: 

MOV #DMD'MUR!DBEN:D8CK.RMMR1 (RO) .-LOAD RMMR1 
MOV *DMD!MUR!DBEN,R«MR1(R0) ;LOAD RMMRl 
DEC R3 

BNE 50$ ; ISSUE NEXT CLOCK IF tOUNT NO' ZERC 

MOV RMMRl (R0).$8DDAT .-STORE RMMRl AT $BDDAT 

BIC **COCC.$BDDAT 

BEQ 60$ .-BRANCH IF OCCUPIED IS RESET 

TST RMER10 

BEQ 70$ .-BRANCH IF OCCUPIED SHOULD BE SET 

CLR $GDDAT ;SEIUP ERROR MESSAGE 

MOV R0.$8DADR 

ADD ARMMfi1.$8DADR 

EMT 164 

BR 80$ 

.-VOLUME VALID A,'^D OCCUPIED DID NOT SET-SEE !F COMP ERROR WAS ACTIVE 
60$: 

TST RMERIO 

BNE 80$ .-BRANCH IF COMP ERROR WAS SET 

.-COULD NOT SET VV OR OCCUPIED-SUSPECT DECODE FLOP NOT SETTING 



T52 DECODE ^EST 



inAC**0 V04.00 
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2837 
281" 
28' ' 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

28*.8 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 
2869 
2870 
2371 
2872 

2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 



05Cu 



030034 
030034 
030042 



030220 
030220 
030226 
030234 
030242 
030244 
030250 
030256 
030260 



b:> 



012737 
000611 



EMT 



165 



040000 001426 



.-PEfEAT TEST WjTh COMPOSITE ERROR ACTIVE-VERIF v THAT DECODt 'LOP 

;DOES NOT SET. AS INDICATED BY VOLUME VALID AND OCCUPIED. 

70$: 

MOV *UNS.RMER10 ;USE UNSAFE TO SET COMP ERROR 
BR 5S 



030044 000510 



80S: 



BR 



200$ 



;END OF TEST 



••A************************************************************** 

SUBROUTINE USED DURING TEST 



;USING DIAGNOSTI 
.-VERIFY THAT VV. 



030046 








100$: 




030046 


004737 


0:>4674 






JSR 


030052 


012760 


000001 


000024 




MOV 


030060 


012760 


C41001 


000024 




MOV 


030066 


012760 


000000 


000014 




MOV 


030074 


012760 


000000 


000042 




MOV 


030102 


005037 


001140 






CLR 


0301 06 


010037 


001 1 36 






MOV 


030112 


062737 


000012 


001136 




ADD 


030120 


016037 


00001 2 


001142 




MOV 


030126 


042737 


137777 


001142 




BIC 


0301 34 


00U02 








BEO 


030136 


104143 








EMT 


030140 


000447 








BR 


030142 








110$: 




030142 


016037 


000012 


001142 




MOV 


030150 


042737 


177677 


001142 




BIC 


030156 


001402 








BEO 


030160 


104135 








EMT 


030162 


000436 








BR 


030164 








120$: 




030164 


016037 


000024 


001142 




MOV 


0301 72 


042737 


077777 


001142 




BIC 


030200 


001407 








BEO 


030202 


010037 


001 1 36 






MOV 


030206 


062737 


000024 


001136 




ADD 


030214 


104166 








EMT 


030216 


000420 








BR 



C MODE, RESET VOLUME VALID AND COMPOSITE ERROR. 
ERR. AND OCC ARE ZERO. 

PC.CNTCLR ;60 CLEAR CONTROLLER 

/»DMD.RMMR1 (RO) ;LOAD RMMR1 
#UMD!MUR1D8EN.RMMR1 (RO) ;LOAD RMMR1 



*0.RMER1 (RO) 
*0.RMER2(R0) 
SGDDAT 
R0.$8DADR 
#RMDS,$BDADR 
RMDS(R0).$8DDAT 
#*CERR.$BDDAT 
110$ 
143 
140$ 

RMDS(R0).$8DDAT 

**CVV.$8DDAT 

120$ 

135 

140$ 



;L0AD RMER1 
.-LOAD RMER2 
.•SETUP FOR ERROR MSG 



STORE RMDS AT $8DDAT 
BRANCH IF COMP ERROR ZERO 
SKIP TEST 

STORE RMDS AT $8DDAT 

BRANCH IF VOLUME VALID ZERO . 

SKIP TEST 

.•STORE RMMR1 AT $BDDAT 



012760 
016037 
042737 
001410 
010037 
062737 
104167 
012716 



000024 
000014 
177776 

001136 
000014 

030266 



000000 
001142 
001142 



001136 



RMMR1(R0).$8DDAT 
#*COCC.$BDDAT 

130$ .-BRANCH IF OCCUPIED ZERO 

R0.$8DADR .SETUP ERROR MESSAGE 

#RMMR1.$8DADR 
166 

140$ .-SKIP TEST 

;T0 VERIFY THAT THE DECODE FLOP IS RESET. LOAD AN ILLEGAL FUNCTION 

;IN RMCS1 AND VERIFY THAT ILF DOES NOT SET. 

130$: 

#ILF24,RMCS1(R0> ;L0AD RMC51 

RMER1(B0).$8DDAT .-STORE RMER1 AT $BDDAT 

#*CILF,$BDDAT 

.•BRANCH IF ILF IS ZERO 
.•SETUP ERROR MESSAGE 



140$; 



MOV 
MOV 
BIC 
BEO 
MOV 
ADD 
EMT 
MOV 



150$ 

RO.SSDADR 
#RMER1.$BDADR 
167 

#200$. (SP) 



;DONT GO BACK TO TEST 



!-;RMP60 RM05/5/2 DSKLS TST 1 
TS? DECODE TEST 



289? 030264 
2893 

2894 030266 

2895 

2896 



030266 
030266 
030270 
030272 
030276 
030502 
030306 



000207 



000004 
000240 
012706 
013700 
013701 
012737 



001100 
001276 
001466 
000051 
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150t: 
200S: 



RTS 



PC 



.-RETURN TO TEST OR EXJT TE^T 



.••TEST 53 



SET/RESE" VOLUME VALID TES^ 



TST53: 



001226 



2897 










2898 


030314 


010037 


001136 




2899 


030320 


062737 


000012 


001 1 36 


2900 


030326 


012702 


030532 




2901 










2902 










2903 


030332 






, 


2904 


030332 


004737 


054674 




2905 


030336 


012760 


00000 


000024 


2906 


030344 


012760 


041001 


000024 


2907 


030352 


012760 


000000 


000014 


2908 


030360 


012760 


000000 


000042 


2909 


030366 


016037 


000012 


001142 


2910 


030374 


042737 


177677 


001142 


2911 


0304C2 


001403 






2912 


030404 


005037 


001140 




2913 


030410 


104135 






2914 










2915 










2916 


030412 








2917 


030412 


111203 






2918 


030414 


042703 


177701 




2919 


030420 


052703 


000001 




2920 


030424 


010360 


000000 




2921 


030430 


116204 


000001 




2922 


030434 


042704 


177400 




2923 


030440 










030440 


012760 


141001 


000024 


2924 


030446 


012760 


04'' 001 


000024 


2925 


030454 


005304 






2926 


030456 


001370 






2927 


030460 


0^6037 


000012 


001142 


2928 


030466 


042737 


1 77t71 


001142 


2929 


030474 


001007 






2930 


030476 


010337 


001174 




2931 


030502 


012737 


000^00 


001140 


2932 


030510 


104170 






2933 


030512 


000406 






2934 










2935 










2936 


030514 








2937 


030514 


062702 


000002 





SCOPE 

NOP 

MCV 

MOV 

MOV 

MOV 

MOV 
AOD 
MOV 



*STACK,SP 
$8ASE,R0 
TSTQUE.R1 
#53,fTESTN 

R0.$8DADR 
#RMDS.S8DADR 
#100$, R2 



.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 = UN I BUS ADDRESS 

.-Rl = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAR BOX 

.•SETUP REGISTER ADDRESS 

;R2- TABLE POINTER 



.INITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV WMD.RMMRKRO) ;LOAD RMMR1 

MOV WMD!«UR!DBEN,RMMR1(R0) ;LOAD RMMRl 

MOV #0.RMER1(R0) ;LOAD RMERl 

MOV #0,RMER2(R0) ;LOAD RMER2 

MOV RMDS(R0),$8DDAT ;STORE RMDS AT $8DDAT 

BIC #*CVV,$BDDAT 

BEQ 20$ 

CLR $GDDAT 

EMT 135 



;BRANCH IF VOLUME VALID ZERO 



.•EXECUTE THE 
20$: 

M0V8 

BIC 

BIS 

HOV 

M0V8 

BIC 

30$: 

MOV 
MOV 
DEC 
6NE 
MOV 
BIC 
BNE 
MOV 
MOV 
EMT 
BR 

.•ADVANCE THE 
40$: 

ADD 



FUNCTION CODE IN THE TABLE 

;GET FUNCTION CODE 



(R2).R3 
**CILF76.R3 
#G0.R3 
R3,RMCS1 (RO) 
1 {R2 ),R4 
#*C377.R4 



.•LOAD RMCS1 
;6ET CLOCK COUNT 



#D«D!DBEN!MUR!D8CK,RMMR1 (RO) ;LOAD RMMRl 

*D«DIDBEN!MUR.RMMR1(R0) ;LOAD RMMRl 

R4 

30$ ; ISSUE fOCKS TIL R4 ZERO 

RMDS(RO).$BDDAT ;STORE RMDS AT $8DDAT 
**CVV,$8DDAT 

40$ .-BRANCH IF VOLUME VALID SET 

R3.$rMP0 .-SAVE FUNCTION CODE FOR MSG 

#VV.$GDDAT 

170 

50$ 

TABLE POINTER. EXIT IF DONE 
#2.fi2 



c/HMPBO DSICLS TST 1 HACTO V04.00 

^S? SET/RESET VOLUME VALID TEST 



SOS: 
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105762 




oxns24 


100401 






000701 


?941 


030S30 


000405 


?94? 












?944 


030532 




?945 


050552 


020 




030533 


005 


?947 






?948 


030534 


022 




030535 


003 


P950 






2951 


050536 


000 


2952 


050537 


577 


2955 






2954 


050540 




2955 






2956 







TST8 

eni 

BR 
BR 



1(R2) 
50$ 
lOS 
200S 



; TABLE 
lOOS: 



.•EXIT If COUNT IS NEGATIVE 
.-JUMP OVER TABlE 
OF FUNCTIOM CODES AND CLOCK COUNTS 



050540 



2957 



2961 
2962 
2965 
2964 

2965 050606 

2966 030614 

2967 030616 

2968 030622 

2969 030626 
030626 

2970 030634 

2971 030642 

2972 030644 

2973 030646 

2974 030654 

2975 030662 

2976 030670 

2977 030676 

2978 030704 

2979 030706 

2980 030712 

2981 030720 



.BYTE RIP 

•BVTE 3 

.BYTE PAKACK 

.BYTE 3 

• BYTE 

.BYTE -1 



200S: 



.READ IN PRESET COMMAND 
.•PACK ACKNOWLEDGE COMMAND 

;END OF TABLE 
;END OF TEST 



54 ILLEGAL FUNCTION TEST 



.••TEST 

■•A************************************************************** 

tST54: 



030540 


000004 




SCOPE 




.•SCOPE CALL 


050542 


000240 




NOP 






050544 


012706 


001100 


MOV 


#STACK.SP 


;LOAD THE STACK POINTER 


050550 


013700 


001276 


MOV 


SBASE.RO 


;R0 = UNI BUS ADDRESS 


030554 


013701 


001466 


MOV 


TSTCUE.RI 


;R1 = POINTER TO DEVICE 


050560 


012737 


000054 001226 


MOV 


*54.$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


050566 


005002 




CLR 


R2 


.•INITIALIZE FUNCTION CODE VALUE 


050570 




10$: 








030570 


004737 


054450 


JSR 


PC.SETVV 


;G0 SET VOLUME VALID 


050574 


000402 




BR 


20$ 


.•BRANCH TO 20$ IF NO ERROR 


050576 


104000 




EMT 






050600 


000460 




BR 


50$ 


.-SKIP TEST IF ERROR 


030602 


012704 


000002 20$: 


MOV 


*2.R4 


;R4=C<.0CK COUNT 



012760 
010203 
052703 
010360 

012760 
012760 
005304 
001570 
016037 
042737 
016237 
042757 
023737 
001410 
010037 
062737 
010237 



041001 000024 



000001 
000000 

141001 
041001 



000014 
177776 
063416 
177776 
001140 

001136 
000014 
001 1 74 



000024 
000024 



001142 
001142 
001140 
001140 
001142 



001 1 36 



30$: 



.•EXECUTE THE TEST FUNCTION CODE AND VERIFY ILF 

MOV /IfDMD.'MURlDBfcN.RMMRl (RO) ;L0AD RMMR1 

MOV R2,R3 .-SETUP FUNCTION CODE IN R5 

BIS #G0.R3 

MOV R3.RMCSKR0) ;LOAD RMCSl 

MOV tfDMD.'MURIDBEN.'DBCK.RMWl (RO) ;LOAD RMMRl 

MOV *DMD!MUR!DBEN.RMMR1(R0) ;LOAD RMMRl 

DEC R4 

BNE 30$ 

MOV RMERl (R0),$8DDAT .-STORE RMER1 AT $8DDAT 

BIC /ir*CILF,$BDDAT .-SETUP ACTUAL ILF STATUS 

MOV FNCDTB(R2).$GDDAT ;GET EXPECTED ILF STATUS 

BIC **CILF,$GODAT 

CMP $GDDAT.$8DDAT 

BEO 40$ .-BRANCH IF ILF IS OK 

MOV R0.$8DADR ; SETUP FOR ERROR MSG 

ADD *R«tR1 .tBDADR 

MOV R2.$TMP0 



/kMPBO RM05/5/2 DSKLS TST 1 
ILLEGAL FLECTION TfST 



2982 
298? 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 



030724 104171 



050726 

030726 06270? 00000? 

030732 022702 000076 

030736 103401 

030740 000713 
030742 



N 12 
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EMT 



171 



.•ADVANCE TO ^ME NEXT FUNCTION CODE AND REPEAT TEST 
40S: 

ADD *2,R2 

CMP *lLf76.R2 

BLO SOS 

BR lOS 
SOS: ;END OF TEST 



;*TEST 55 



OCCUPIED TEST 



2993 
2994 
2995 
2996 
2997 
2998 



2999 

3000 

3001 

3002 

5003 

5004 

3005 

3006 

3007 

3008 

5009 

3010 

3011 

3012 

3013 

3014 

5015 

3016 

5017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 



030742 
030742 
030744 
030746 
030752 
030756 
030762 



030772 
030772 
030776 
031000 
031002 



031004 
031004 
031012 
031014 
031020 
031024 



031030 
031030 
031036 
031044 
031046 



031050 
031056 
031064 
031070 
031076 
031100 
031106 
031114 
031116 
031122 



000004 
000240 
012706 
01 3700 
013701 
012737 



TST55; 



030770 005002 



004737 
000402 
104000 
000464 



012760 
010203 
052703 
010360 
012704 



012760 
012760 
005304 
001370 



016037 
042737 
005037 
032762 
001403 
012737 
023737 
001411 
010237 
010037 



001100 
001276 
001466 
000055 



054450 



141001 
041001 



000024 
077777 
001140 
001000 

100000 
001140 

001174 
001136 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

CLR 



*STACK,SP 
$8ASE,R0 
TSTQUE.Rl 
*55.STESTN 

R2 



;GET THE DEVICE READY 
lOS: 

JSR PCSETVV 

BR 20$ 
EM. 

BR 50$ 



.•SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 = UN I BUS ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•INITIALIZE FUNCTION CODE 



;G0 SET VOLUME VALID 
.-BRANCH TO 20$ IF NO ERROR 



041001 000024 

000001 
000000 
000002 



;f-NA8LE DEBUG CLOCK AND LOAD THE FUNCTION CODE 
20$: 



MOV *DMD;MUR!DBEN.RMMR1 (RO) 

MOV R2,R3 

BIS *G0,R3 

MOV R3,RMCS1(R0) 

MOV *2.R4 



LOAD RMMRl 

ASSEMBLE FUNCTION CODE AND 
GO BIT IN R3 
.•LOAD RMCS1 

;R4-CL0CK COUNT 



000024 
000024 



001142 
001142 

063416 

001140 
001142 



;STEP. THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE 
30$: 

MOV /TDMD.'MURiDBENIDBCK, RMMRl (RO) ;LOAD RMMRl 
MOV #DMD!MUR!DBEN.RMMR1(R0) ;LOAD RMMRl 
DEC R4 

8NE 30$ ; ISSUE NEXT CLOCK TIL R4 ZERO 



.•VERIFY OCCUPIED STATUS 



35$: 



MOV RMMRl (R0),$6DDAT 

BIC #*C0CC.$8DDAT 

CLR $GDDAT 

BIT #A0E.FNCDTB(R2) 

8E0 35$ 

MOV irOCC.$GDDAT 

CMP $GDDAT,$BDDAT 

BEO 40$ 

MOV R2.$TMP0 

MOV R0,$8DADR 



;ST0Rt RMMRl AT $BDDAT 
; GENERATE OCC FROM AOE 



BRANCH IF OCC IS OK 
SAVE FUNCTION CODE 
SETUP REGISTER ADDRESS 



rZRMPBO R«05/W DSKLS TST 1 
T55 OCCUPIED TEST 



lACW V0<i.00 
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S£Q 0157 



3027 

5028 

3029 

3030 

3031 

3032 

3033 

30 3A 

3035 

3036 

3037 

3038 

3039 

30«0 



031126 062737 
031154 104173 
031136 000406 



000024 001136 



031140 
031140 
031144 
031150 
031152 

031154 



062702 000002 
022702 000076 
103401 
000707 



031154 
031154 
C31156 
031160 
031164 
031 1 70 
031174 



000004 
000240 
012706 
01 3700 
013701 
012737 



001100 
001276 
001466 
000056 



ADD #RWR1.S8DADP 

EHT 1 73 

BR 50$ 

.ADVANCE TO NEXT FIWCTIONCODE . EXIT IF DONE 
40$: 

ADD #2,R2 

CMP *ILF76.R2 

BLO 50$ .-EXIT IF DONE 

BR ' 10S 



50$: 



;END OF TEST 



.-•TEST 56 



READ IN PRESE^ TEST 



TST56: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



.SCOPE CALL 

/IfSTACK.SP .LOAD THf STACK POINTER 

$8ASE.R0 ;R0 UNIBUS ADDRESS 

TST0UE.R1 ;R1 = POINTER TO DEVICE 

*56.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 



%41 




















5043 


051202 


004757 


054674 




30m4 


051206 


012760 


000001 


000024 


5045 


051214 


012760 


041001 


000024 


5046 


051222 


012760 


000000 


000014 


5047 


051250 


012760 


000000 


000042 


5048 










5049 










5050 


051236 


012760 


Mill! 


000006 


5051 


051 24A 


012760 


M7777 


000034 


5052 


051252 


012760 


^77777 


000032 


3055 










5054 










5055 


051260 


012760 


000021 


000000 


3056 


051266 


012702 


000003 




5057 


031272 








5058 


031272 


012760 


141001 


000024 


5059 


031300 


012760 


041001 


000024 


3060 


031306 


005302 . 






5061 


031310 


001370 






5062 










3063 










3064 


051512 


016002 


000006 




3065 


051316 


005702 






3066 


031320 


001413 






5067 


051322 


016002 


000034 




5068 


031326 


042702 


176000 




3069 


031352 
051554 


001406 






5070 


016002 


000052 




5071 


051540 


042702 


16157? 




5072 


051 544 


001401 






5073 











;CLEAR AND ENA8I E DEBUG CLOCK - LEAVE VOLUME VALID RESET 
JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV #DMD.RMMR1 (kO) ;L0AD RMMRl 
MOV *DMD .'MURiDBEN. RMMRl (RO) ;LOAD RMMRl 
MOV *0.RMER1(R0) ;LOAD RMER1 
MOV *0.RMER2(R0) ;LOAD RMER2 

.•LOAD ALL ONES IN RMDA, RMDC AND RMOF 



MOV <f-1.RMDA(R0) 
MOV #-1.RMDC(R0) 
MOV #-1.RMOF(R0) 



LOAD RMDA 
LOAD RMDC 
LOAD RMOF 



;LOAD READ IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE 

MOV #RIP.'G0,RMCS1 (RO) ;LOAD RMCSl 

MOV A3.R2 ;R2-CL0CK COUNT 

10$: 

MOV #DMD!MUR!DBEN1DBCK,RMMR1(R0) ;L0AD RMMRl 

MOV *DMD!MUR!D8EN,RMriRl(R0) ;LOAU RMMRl 

DEC R2 , , 

BNE 10$ .-ISSUE 3 CLOCKS 

;SEE IF RMDA OR RMDC OR RMOF IS ZERO 

MOV RMDA(R0).R2 ; STORE RMDA AT R2 

TST R2 ■» 

BEQ 20$ .'BRANCH IF RMDA IS ZERO 

MOV RMDC(R0).R2 .STORE RMDC AT R2 

BIC #XNUDC,R2 ."CLEAR UNUSED BITS 

BEQ 20$ .-BRANCH IF RrtDC IS ZERO 

MOV RMOF(R0),R2 .-STORE RMOF AT R2 

BIC #XNU0F.P2 .-CLEAR l>JUSED BITS 

BEQ 20$ .-BRANCH IF RMOF IS ZERO 



CZRMPBO RM05/5/2 OSKLS TST 1 
f56 READ IN PRESET TEST 



307A 

3075 031346 
3076 

30^7 031350 

3078 

30/9 



104174 
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.-REAP IN PRESET COTIANO DIDNT CLEAR ANY OF THE 3 REGISTERS 
E«T 174 



SEO 0158 



20$: 



.••TEST 57 



;END OF TEST 



RIP/RMOF TEST 



031350 
031350 
031352 
031354 
031360 
031364 
031 370 



000004 
000240 
012706 
013700 
01 3701 
012737 



TST57: 



001100 
001276 
001466 
000057 



001226 



3080 










5081 


031376 


010037 


001136 




3082 


031402 


062737 


000032 


001136 


3083 


C31410 


005037 


0C1140 




3084 










3085 










3086 


031414 


004737 


054674 




3087 


031420 


012760 


000001 


000024 


3088 
3089 


031426 


012760 


041001 


000024 


031434 


012760 


000000 


000014 


3090 


031442 


012760 


000000 


000042 


3091 


031450 


012760 


\77777 


000032 


3092 










3093 










3094 


031456 


012760 


000021 


000000 


3095 


031464 


012702 


000003 




3096 


031470 










031470 


012760 


141001 


000024 


3097 


031476 


012760 


041001 


000024 


3098 


031504 


005302 






3099 


031506 


001370 






3100 










3101 










3102 


031510 


016037 


0C0032 


001142 


3103 


031516 


042737 


161577 


001142 


3104 


031524 


001401 






3105 


031526 


104175 






3106 










3107 


031530 








3108 










3109 











SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 
CLR 



#STACK.SP 
SSASE.RO 
TSTQUE.R1 
*57.$TESTN 

R0.$8DADR 

*RM0F.$8DADR 

SGDDAT 



.•SCOPE CALL 

.LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

; SETUP REGISTER ADDRESS AND 

.•EXPECTED RMQF 



.INITIALIZE AND SET BITS IN RMOF 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV ^OnD.RKMRI (RO) .-LOAD RMMR1 

MOV #DMD!HUR!DBEN.RMMR1(R0) ;LOAD RMMR1 

MOV XfO.RMERKRO) ;LOAD RMER1 

MOV #0.RMER2(R0) ;LOAD RMER2 

MOV Xf-1,RMOF(RO) ;LOAD RMOF 

.•EXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE 

MOV #RIP.'G0.RMCS1 (RO) ;LOAD RMCS1 

MOV *3.R2 ;R?=CLOCK COUNT 

10$: 

MOV *DMD!^R1D8EN!D8CK,RMMR1(RC) ;L0AD RMMR1 

MOV *DMDIMUR:D8EN.RWR1(R0) .LOAD RMMR1 

DEC R2 

BNE 10$ .-ISSUE 3 CLOCKS 

.VERIFY THAT RMOF IS ZERO 

MOV RM0F{R0).$8DDAT ; STORE RMOF AT $8DDAT 

bIC 4rXNU0F.$eDDAT 

BEO 20$ .-BRANCH IF RMOF IS ZERO 

EMT 175 



20$; 



.END OF TEST 



.-•TEST 60 



RMDA/RMDC/RIP TEST 



031530 
031530 
031532 
031534 
031540 
C31544 
051550 



000004 
000240 
012706 
013700 
013701 
012757 



001100 
001276 
001466 
000060 



TST60: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



.•SCOPE CALL 

♦STACK. SP .-LOAD THE STACK POINTER 

$8ASE.R0 ;R0 - UNIBUS ADDRESS 

TSTQUE.R1 .-Rl " POINTER TO DEVICE 

#60.$TESTN .-.-SET TEST Nll«ER IN APT MAIL BOX 



7RMP80 HMOS/V^ DSKLS 1ST 
'to «ft>A/WC/RIP TEST 



0 13 

01:24:25 PAGf 13-*5 



SEO 015V 



3M0 
3M1 
3112 
3113 
3114 
3115 
3116 
3117 
311S 
3119 
3120 
3121 
3122 
3123 
3124 
3125 

3126 
3127 
3128 
3129 
3130 
3131 
3132 
3135 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
5U5 
3146 
3147 
5'48 



031556 005037 001140 



031562 
031566 
031574 
031602 
031610 
031616 
031624 



031632 
031640 
031644 
051644 
031652 
031660 
C31662 



031664 
031672 
031676 
031 700 
031704 
031712 



031714 
031714 
031722 
031730 
031732 
031 736 
031744 
031 746 



004737 
012760 
012760 
012760 
0127b0 
012760 
012760 



012760 
012702 

012760 
012760 
005302 
0013X0 



016037 
005737 
001406 
010037 
062737 
104176 



016037 
042737 
001406 
010037 
062737 
104302 



054674 
000001 
041001 
000000 
000000 
1 77777 
\77777 



000021 
000003 

141001 
041001 



000006 
001142 

001136 
000006 



000034 
1 76000 

001136 
000034 



000024 
000024 
000014 
000014 
000006 
000034 



000000 



000024 
000024 



001142 



0011 -'6 



001142 
001142 



001136 



CLR 

.CLEAR, ENABLE 

JSR 

nov 
nov 
«ov 
nov 

HOV 

nov 

.•EXECUTE READ 

nov 
nov 

10S: 

nov 

MOV 
DEC 
BNE 



SGDDAT 

DEBUG CLOCK. THEN PRESET RrtDA AND RrtDC 
PC.CNTCLR ;G0 CLEAR CONTROLLER 

«DnD.RnnRi(RO) .-load wt^^ 

;9rDnD!nuR!D6EN.RmR1(R0) .LOAD RWRI 
#0.RnER1(R0) .LOAD RnERI 
tO.RHERKRO) ;LOAD RHERI 
«-1,RnDA(R0} .LOAD RHDA 
«-1.RnDC(R0) :LOAD RHDC 



IN PRESET TILL SET PULSE 
WIPIGO.RnCSURO) 
«3,R2 



.-LOAD RnCSI 



#DnD!nUR:DBENID5C»(.R«««1(R0) ;LOAD RWnRI 

/TDnD.'nURIDBEN.RftlRl (RO) ;LOAD RW1R1 

R2 

10J .-ISSUE 3 CLOlKS 



.-VERIFY RflDA IS ZERO 

MOV RMDAxRO).SBDDAT .-STORE RMDA A" SBDDAT 

TST SeODAT 

BEQ 20$ .-BRANCH IF RMDA RESET 

MOV RO.SBDADR 

ADD KTRMDA.SBDADR 

EMT 176 

.-VERIFY RMDC IS ZERO 
20$: 

MOV RMDC(R0).$8DDAT .-STORE RMDC AT $BDDAT 

BJC *XrJUDC.$8DDAT 

BEQ 30$ .-BRANCH IF RMDC RESET 

MOV R0,$9DADR 

ADD #RMDC.$BDADR 

EMT 302 

30$: .-END OF TEST 
••»»»*»•»»*•**••••*»*•****•*••**»»****••«*••»»•»»*••»»•*•»»•«»••• 



;*TCST 61 



OFFSET COMMAND TEST 





031746 






TST61: 








031 746 


000004 






SCOPE 






031750 


00024C 






NOP 






031752 


012706 


001100 




MOV 


fSTACK.SP 




031756 


013700 


001276 




MOV 


$aASE .RO 




031762 


015701 


001466 




MOV 


TSTOUE.RI 




031766 


012737 


000061 


001226 


MOV 


#61.$TESTN 


3149 














3150 


051774 


010057 


001156 




MOV 


RO.$BDADR 


3151 


032000 


062757 


000012 


001136 


ADD 


#RnDS.$80ADR 


3152 


032006 


012737 


000001 


001140 


MOV 


#On.SGDDAT 


3153 














3154 


052014 


004737 


054450 




JSR 


PC.SETVV 




052020 


000402 






BR 


10$ 



»»••»»•**•*»♦**»«»•**•*»*•♦•♦•»♦••**•**•***»»•**•»•*»♦•«••»•*♦• 

SCOPE CALL 

LOAD THE STACK POINTER 
RO = UN I BUS ADDRESS 
R1 - POINTER TO DEVICE 
.-SET TEST NUMBER IN APT MAJl BOX 



;G0 SET VOLUME VALID 
.-BRANCH TO 10$ IF NO ERROR 



/S*fPbO ftH05/?/2 DSmS TST 1 
•t1 C^FSET COMMAND ^EST 



E 13 

•lACRO VCK.OO 4-APR-81 01:?4:^5 PAGE 13-64 







1 fV.000 








VW*» J J 






03?0?6 








03P0P6 


V < C ' w 


000000 
www 




















C 320 34 

V JC V 


012760 


041001 






012760 

VIC' w 


0C0015 

WW 1 J 


3161 


032050 


0127C2 

V < C ' vc 


000002 

wv wc 




032054 








032054 

V JC 


012760 


141001 


^1o3 


032062 

V JC vwc 


012760 


04 1 00 1 




032070 

V JC W ' V 


005302 






032072 

V JC V' c 


001 370 




















3168 


032074 


016037 


000012 


3169 


032102 


042737 
001001 


177776 


31/0 


032110 




3171 


032112 


104200 




3172 


032114 






5173 








5174 









3175 
3176 
3177 
3178 
31 79 



3180 
3181 
3182 
5183 
3184 
318S 



3^86 
3187 
3188 
3189 



V90 
5^91 
3192 



032114 
0321 U 
032116 
032120 
032124 
032130 
032134 

032142 
032146 

032154 
032160 
032162 
032164 



032166 
032166 
032174 
032200 
032202 



032204 
032204 
032210 
032212 
032214 
0^2216 
052216 



000004 
000240 
012706 
013700 
013701 
012737 

010037 
062737 

004737 
000402 
104000 
000465 



012760 
004737 
000401 
104000 



004737 
000402 
104000 
000451 



000200 
054572 



054450 



SEQ 0160 



Em 

BR 



000034 



000024 
000000 



000024 
000024 



001142 
001142 



MOV 



40S 

«0,RnDC(R0) 



10$: 

:ENABLE DEBUG CLOCK AND EXECUTE OFFSET COmANO 



;LOAJ) RMDC 



20$: 



nov 

MOV 

nov 

MOV 
MOV 

DEC 
BNE 



#DnD!MUR!D6EN.RMMR1 <HQ) 
#CFFSETIGO.RMCS1{RO) 
<'2.R2 



LOAD RMMR1 
LOAD RMCS1 
R2=CL0CK COUNT 



#DW:MUR!DeEN;D8CK.RMMR1(R0) ;L0AD RWRI 

#dmd:mur:dben,rmmri (Rc; .-load rmmri 

R2 

20$ .-ISSUE 2 CLOCKS 



;VERIPV THAT OFFSET MODE IS SET 

MOV RMDS(P0),$8DDAT .STORE RMDS AT $8DDAT 
BIC #*C0M.$8DDAT 

BNE 40$ .-BRANCH IF OM IS SET 

EMT 200 

.-END OF TEST 



40$: 

•West 62 



RETURN TO CENTER TEST 







SCOPE 








NOP 




001100 




MOV 


#STACK.SP 


001276 




MOV 


$8ASE.R0 


001466 




MOV 


TSTQUE.R1 


000062 


001226 


MOV 


#62.$TESTN 


001136 




MOV 


RO,$BDADR 


000012 


001136 


ADD 


#RMDS,$6DADR 


054450 




JSR 


PCSETVV 






BR 


10$ 






EMT 








BR 


60$ 



000032 



012760 041001 000024 



TS^62: 

.-SCOPE CALL 

.-LOAD THE STACK POINTER 
;R0 - UNI BUS ADDRESS 
;R1 = POINTER TO DEVICE 
;;SET TEST NUMBER IN APT MAIL BOX 



.-GO SET VOLUME VALID 
.-BRANCH TO 10$ IF NO ERROR 



;SET OFFSET DIRECTION AND OFFSET 
10$: 

MOV *OFD.RMOF(R0) ;LOAD RMOF 

JSR PC.SETOM ;G0 SET OFFSET MODE 

BR 20$ .-BRANCH TO 20$ IF NO ERROR 

EMT 

;E^^^8LE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND 
20$: 

JSR PCSETVV ;G0 SET VOLUME VALID 

BR 30$ .-BRANCH TO 30$ IF NC ERROR 

EMT 

BR 60$ 

30$: 

MOV #DMD.'MUR.DBEN.RMMR1 (RO) ;LOAD RMMRI 



/RMPBO RM05/3/2 DSKLS TSl 1 
'U nil\JRN TO CENTER TEST 



F 13 

nACRO V04,00 4-AW-81 01:24:ir5 PAGE 13-65 



SEO 0161 



3193 032224 


012760 


00001 7 


000000 


3 '94 032232 


012702 


000002 




31 9S 032236 








032236 


012760 


141001 


000024 


3196 032<r44 


012760 


041001 


000024 


3197 032252 


005302 






3198 032254 


001370 






5199 








3200 








3201 032256 


016037 


000012 


001142 


3202 032264 


042737 


1 77776 


001142 


3203 032272 


001 403 






3204 032274 


005037 


001140 




3205 032300 


104201 






3206 








3207 








3208 032302 








5209 032302 


016037 


000032 


00114? 


3210 032310 


042737 


\77'i77 


001142 


3211 032316 


001410 






3212 032320 

3213 032324 


005037 


001140 




010037 


001 1 56 
000032 




3214 032330 


062737 


001 1 36 


5215 032336 


104202 






3216 032340 








3217 








3218 









AOS: 



!10V 
NOV 

NOV 
MOV 
DEC 
BNE 



.-VERIFY THAT 
MOV 

BIC 
BEQ 
CLR 
EMT 

.•VERI'^y THAT 
50S: 

MOV 
BJC 
BEQ 
CLR 
MOV 
ADD 
EMT 

60$: 



tRTC.'GO.RMCSKRO) 
#2.R2 



.•LOAD RMCS1 



#df«>.'mur:dben:dbck.rmmr1(r0) ;load rmmr1 
#o«d:mur:dben.rmmri(ro) .-load rmmri 

R2 

40$ .-JSSUE 2 CLOCKS 

OFFSET MODE IS RESET 

RMDS(R0).$8DDAT ;ST0RE RMDS AT $8DDAT 
**C0M.$BDDAT 

50$ .-BRANCH IF OFFSET MODE RESET 

$GDDAT 

201 

OFFSET DIRECTION IS RESET 

RMOF(R0),$8DDAT .-STORE RMOF AT SBDDAT 
#*COFD.$BDDAT 

60$ .-BRANCH. IF OFD IS RESET 

$GDDAT 

R0.$8DADR 

*RMOF . $8DADR 

202 

.-END OF TEW 



032340 
032340 
032342 
032344 
032350 
032354 
032360 

3219 

3220 032366 

3221 032372 
3222 

3223 032400 
032404 
032406 

3224 032410 

3225 032412 
5226 032412 

032416 
032420 

5227 
5228 

3229 032422 
5230 032422 

3231 032430 

3232 032436 
3253 032444 
V54 0V4^6 



.-•TEST 

• • ♦ • • ♦ 

TST63: 



63 



RMDC CLEAR OFFSET TEST 



000004 






SCOPE 




000240 






NOP 




012706 


001100 




MOV 


*STACK.SP 


013700 


001276 




MOV 


$8ASE,R0 


013701 


001466 




MOV 


TST0UE.R1 


012737 


000063 


001226 


MOV 


#63,$TESTN 


010037 


001 1 36 




MOV 


RO.$eDADR 


062737 


000012 


001136 


ADD 


#R«DS,$BDADR 


004737 


054450 




JSR 


PC.SETVV 


000402 






BR 


10$ 


104000 






EMT 




000421 






BR* 


40$ 






10$: 






004737 


054572 




JSR 


PC.SETOM 


000401 






BR 


20$ 


104000 






EMT 





.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 = UNI BUS ADDRESS 

;R1 - POINTER TO DEVICE 

.-.-SET TEST NUMBER IN APT MAIL BOX 



012760 
016037 
042737 
001403 
00S037 



000000 
000012 
177776 

001140 



000034 
001142 
C01142 



.-WRITE 
20$: 



;60 SET VOLUME VALID 
.•BRANCH TO 10$ IF NO ERROR 

.-SKIP REST OF TEST 

;G0 SET OFFSET MODE 
.-BRANCH TO 20$ IF NO ERROR 



THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO 



MOV 
MOV 

BIC 
BEQ 

CLR 



#0,RMDC(RO) .'LOAD RMDC 

RMDS(R0).$8DDAT .-STORE RMDS A7 SBDDAT 

#*COM.$eDDAT 

40$ 

$GDDAT 



';f*«PBO RMOS/^/? DSKLS 1ST 1 

't; m>c CLfAR ofFSET test 



3?57 03?454 
5? 38 
3?39 



1CX.203 
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E«T 



40S: 



•TEST 64 



SEO 016/ 



203 



;ENO OF TEST 



E8L CLEAR OFFSET TEST 



32<.0 
3?41 
3242 
5243 
3244 
3245 
3246 



3247 
3248 
3249 



3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 



032454 
032454 
032456 
032460 
032464 
032470 
032474 

032502 
032510 
032516 
C32522 

032530 
032534 
032536 
032540 
03i^542 
032542 
032546 
032550 
032552 
032552 
032560 



032566 
032574 
032602 
032610 
032616 
032624 
032632 
032634 
032640 
032642 



000004 
000240 
012706 
013700 
013701 
012737 

013737 
112737 
010037 
062737 

004 737 
000402 
104000 
000440 

004737 
000401 
104000 

012760 
013760 



012760 
012760 
012760 
012760 
016037 
042737 
00.403 
005037 
104204 



TST64: 



001100 
001276 
001466 
000064 

001334 
000037 
001 1 36 
000012 

054450 



054572 



010000 
001420 



041001 
000001 
061001 
041001 
000012 
1 77776 

001140 



001226 

001420 
001420 

001136 



C00032 
000006 



000024 
000000 
000024 
000024 
001142 
001142 



10$: 



20$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 
M0V8 
MOV 
ADD 

JSR 
BR 
EMT 
BR 

JSR 

BR 

EMT 

MOV 
MOV 



#STACK.SP 
$8ASE.R0 
TSTQUE.R1 
#64.$TESTN 

LSTRK.RMDAO 
#51.,RMDA0 
R0,$8DADR 
*RMDS,$BDADR 

PC.SETVV 
10$ 

30$ 

PC.SETOM 
20$ 



.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 = UNJ8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUfBER IN APT MAIL BOX 

.•SETUP LAST TRACK AND 
.-LAST SECTOR 

; SETUP REGISTER FOR ERROR MSG 



.•GO SET VOLUME VALID 
.•BRANCH TO 10$ IF NO ERROR 

.•SKIP REST OF TEST IF ERROR 

;G0 SET OFFSET MODE 
.•BRANCH TO 20$ IF NO ERROR 



»FMT16.RM0F (RO) ;LOAD RMOF 
RMDAO.RMOA(RO) ;LOAD RMDA 



.•FORCE END OF BLOCK AND VERIFY THAT OFFSET MODE IS CLEARED 

MOV #DMD!MUR!D8EN,RMMR1(R0) ;LOAD RMMR1 

MOV #G0.RMCS1 (RO) ;LOAD RMCS1 

MOV #DMD!MLIR!DBEN1DE8L.RMMR1 (RO) ;LOAD RMMR1 

MOV #DMD!MUR:DBEN.RMMR1 (RO) .-LOAD RMMR1 

MOV RMDS(R0).$8DDAT ;STORE RMDS AT $8DDAT 

BIC **C0M.$8DDAT 

BEO 30$ .-BRANCH IF OFFSET IS ZERO 

CLR $6DDAT 

EMT 204 

30$: ;END OF TEST 



.••TEST 65 



RUN AND GO TEST 



??6" 



032642 

032642 000004 

032644 000240 

032646 012706 001100 

052652 013700 001276 

032656 015701 00' 466 

032662 012^37 000065 



001226 



TS165: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



.•SCOPE CALL 

#STACK.SP .-LOAD THE STACK POINTER 

$8ASE.R0 ;R0 = UNI8US ADDRESS 

TSTQUE.pi ;R1 - POINTER TO DEVICE 

ir65.ITESTN ;;SET TEST NUMBER IN APT MAIL BOX 



V^ DSKLS TST 1 
•NO GO TEST 
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V^8 

5^69 

3? 70 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

5283 

3284 

3285 
3286 

3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
329/ 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 



<.5r'yo 
03^674 
032676 
032702 



032710 
032710 
032/14 
032722 
032730 
032736 



032744 
032746 
032752 
032760 
032764 
C32770 
032770 
032776 
033004 
033012 
033014 
033020 
033022 
033026 
033032 
033034 
033036 
033036 



033042 
033046 
033052 
033054 
033060 
033062 
03307C 

033072 



005037 
005002 
010037 
062737 



004737 
0^2760 
012760 
012760 
012760 



010203 
052703 
012737 
004777 
010360 

016037 
042737 
023737 
001411 
005737 
001363 
004777 
010237 
104205 
000416 



062702 
022702 
103407 
020227 
103403 
012737 
000707 



001140 

001136 
000024 



054674 
000001 
040001 
000000 
000000 



000001 
000200 
146552 
000000 

000024 
137777 
001140 

001534 

146512 
001 1 74 



004777 146476 



000002 
000076 

000050 

040000 



SFO 0163 



001136 



000024 
000024 
000014 
000042 



001534 



00^142 
001142 
001142 



001140 



CLR SGDDAT 

CLR R2 

MOV R0.S8DADR 

AtD #RmR1.SeDADP 



.INriALlZr EXPfCTfO RESULT 
.•INTIALiZE FUNCTION CODE 



; CLEAR THE MASS8US AND ENABLE DEBUG CLOCK 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV #DMD.RWR1 (RO) ;L0AD RfWI 

MOV *D."iD:D8EN.RMMR1(R0) ;L0AD RMMR1 

MOV /rO.RMERKRO) ;LOAD RMER1 

MOV #0,RMER2(R0) ;LOAD RMER2 

;LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP 



15$: 



MOV 


R2,R3 


.•ASSFMBLE FUNCTION CODE AND GO 


BIS 


*G0,R3 




MOV 


*200. WATCH 


;SET WATCHDOG TIMER VALUE 


JSR 


PC.aCLOCK 


.•START THE CLOCK 


MOV 


R3.RMCS1 (RO; 


.•LOAD RMCS1 


MOV 


RMMR1(R0),$8DDAT 


.•STORE RMMR1 AT $8DDAT 


BIC 


**CRG.$BDDAT 




CMP 


$6DDAT,$BDDAT 




BEO 


20$ 


.•BRANCH IF RUN AND GO FLOP OK 


TST 


WATCH 


.•TAKE ANOTHER SAMPLE IF CLOCK NOT ZERO 


BNE 


15$ 




JSR 


PC.aSTOPCL 


.-STOP THE CLOCK 


MOV 


R2,$TMP0 


.-SAVE FUNCTION CODE FOR MSG 


EMT 


205 


BR 


40$ 


.•SKIP REST OF 


JSR 


PC.asTOpa 


;STOP THE CLOCK 



20$: 



;ADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE 



30$: 
40$: 



ADD 
CMP 
BLO 
CMP 
BLO 
MOV 
BR 



*2.R2 
#ILF76.R2 
40$ 

R2,WCD 
30$ 

#RG,$GDDAT 
10$ 



;EXIT IF DONE 

.•CHANGE EXPECTED RESULTI F 
;DATA COMMAND 

.•REPEAT TEST 

;END OF TEST 



.••TEST 66 



SET lAE TEST 



3?n 
331? 



033072 
033072 
033074 
033076 
033102 
033106 
033112 



000004 
000240 
012706 
013700 
013701 
012737 



0011 00 
001276 
001466 
000066 



053'20 012702 033266 



001226 



TST66: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 



.•SCOPE CALL 

*STACK.SP ;LOAD THE STACK POINTER 

$8ASE.R0 ;R0 - UNI805 ADDRESS 

TSTQUE.R1 ;R1 - POINTER TO DEVICE 

#66,$TESTN .-.-SET TEST NUMBER IN APT MAIL BOX 

#100$, R2 ;R2-TABLE POINTER 



.'i^MPbO WCS/N/2 dsxls tst 1 
'tt SfT I*E 1EST 



?5M 
<3U 


033124 








033124 
C 551 50 
055152 


004737 
000402 
104000 


C:>4450 




5315 


053134 


000453 






3316 










3317 










3318 


053136 








3319 


053136 


CI 2760 


177777 


000006 


332'0 


033144 


012760 


1 77777 


000034 


3321 


033152 


012760 


000000 


000032 


3322 










3323 










3324 


035160 


012760 
111203 


041001 


000024 


3325 


033166 






3326 


035170 


042703 


177701 




3327 


0551 74 


052703 


000001 




5328 


053200 


010360 


000000 




3329 


033204 


116204 


000001 




5330 


C35210 


042704 


1 77400 




5531 










3532 










3333 


053214 








5334 


055214 


012760 


141001 


000024 


333!) 


055222 


012760 


041001 


000024 


3536 


033230 


005504 






3337 


033232 


001570 






5338 










3339 










3340 


035234 


016004 


000014 




3541 


033240 


042704 


y7^777 




334 if 


033244 


001007 






3343 










3544 










3545 


035246 


062702 


000002 




5546 


033252 


105762 


000001 




5347 


033256 


100401 






5348 


033260 


000721 






5349 










5550 










3551 


033262 








3352 


033262 


104206 






3555 










3354 


033264 


000411 






3355 










3556 










3557 


035266 








3558 


033266 


050 






3559 


033267 


002 






3360 










3361 


035270 


004 






3362 


055271 


002 






3563 










5364 


035272 


062 






3365 


035273 


002 






3566 










3367 


053274 


052 
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10S: 



S£0 0164 



BR 



PC.SETVV 
20S 

sot 



;60 SET vOll/V VAliD 
;9RANCH TO 20S IF NO ERROR 

;SK.]P REST Of TEST 



.•LOAD INVALID TRACK. SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18 
20$: 



liOV #-1.RMOA(R0) 
HOV .R«)C(R0) 

nov «o.RnoF(RO) 



LOAD RWA 
LOAD RMDC 
LOAD RMOF 



.-ENABLE DE8UG CLOCK AND LOAD FUNCTION CODE IN RMCSl WITH 60 ON 

MOV #dw:mur!dben.r«mri(ro) .load RMMRI 

10V8 (R2).R3 



BIC #-ClLF76.R3 

BIS #G0.R3 

(lOV R3.R«CS1(R0) 

MOVB 1tR2),R4 

BIC #-C377.R4 



.-LOAD RMCS1 

;GET CLOCK COUNT 



.-CLOCK THE COPWAND SEQUENCER 
30$: 

MOV #DMD.MUR1DBEN'D8CK.RMMRHR0) ."LOAD RMMR1 
MOV *DMD MUR.DBEN.RMMRKRO) ;LOAD RMMR1 
DEC R4 
BNE 30$ 



.-SEE IF lAE HAS SET 

MOV RMER1(R0).R4 
BIC xr*CJAE.R4 
BNE 50$ 



; STORE RMER1 AT R4 

.•BRANCH IF lAE SET 



;IAE DID NOT SET - TRV ANOTHER FUNCTION CODE 

ADD #2.R2 

TST8 1(R2) 

SMI 40$ .-BRANCH IF ALL CODES TRIED 

BR 10$ 

.CANNOT SET lAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE 
40$: 

EMT 206 



50$: 



BR 



200$ 



.-JUMP OVER TABLE 



; TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST 
100$: 

.BYTE SEARCH .-SEARCH COMMAND 

.BYTE 2 



.BYTE 
.BYTE 

•BYTE 
.BYTE 



SEEK 
2 

WH 

2 



.BYTE WCH 



.•SEEK COMMAND 

.•WRITE HEADER COMMAND 

.•WRITE CHECK HEADER COMMAND 



''it, SET lAf ns^ 
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3568 

5369 

3370 

5371 

3372 

3373 

3374 

3375 

3376 

3577 

5378 

5579 

5380 

3581 

5582 

3383 

558A 

5385 

3386 

3387 



035275 

033276 
035277 

033500 
035301 

035502 
03350^ 

033504 
033305 

033506 
033307 

033310 



002 

072 
00? 

060 
002 

050 
002 

070 
002 

000 
377 





053510 








053310 


000004 






053312 


000240 






0333U 


012706 


001100 




033320 


013700 


001276 




033324 


013701 


001466 




033330 


012737 


000067 


3388 








3389 


033336 


005002 




3590 


033340 






5391 


033340 


004737 


054450 


033344 


000402 






033346 


104000 




3392 


033350 


000472 





3393 
3394 
3395 
3596 
5397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
340 7 
3408 
5409 

3410 
3411 



033352 
033352 
033360 
033366 



033374 
033402 
033404 
033410 



0334U 
033420 
033420 
033426 
033434 



012760 
012760 
012760 



012760 
010203 
052703 
010360 



012760 
012760 
005 304 



\77771 
U7777 
000000 



001226 



000006 
00003^; 
000032 



041001 000024 

000001 
000000 



012704 000002 



141001 
041001 



000024 
000024 



•BrTE 


2 




.BYTE 
•BYTE 


RH 

2 


;RfAD HEADER COMWANO 


.BYTE 
.BYTE 


WD 

2 


.•WRITE DATA COPVMND 


.BYTE 
.BYTE 


WCD 

2 


;URJTE CHECK DATA COnMAND 


.BYTE 
.BYTE 


RD 
2 


.•RE'VD DATA COMMAND 


.BYTE 
.BVTE 


-1 


;EMD OF TABLE 



200$: 
}iTEST 67 
TS'67: 



;END OF TEST 
SEARCH. SEEK. READ. WRITE TEST 



10$: 



SCOPE 

NOP 

MOV 

MOV 

f*K)V 

MOV 

CLR 

JSR 
BR 
EMT 
BR 



*STACK.SP 
$8ASE.R0 
TSTQUE.R1 
/r67.$TES'N 

R2 

PC.SETVV 
20$ 

50$ 



.•SCOPE CALL 

.-LOAD THE STACK F'OINTER 

;R0 - UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•INITIALIZE FUNCTION CODE 

;G0 SET VOLUME VALID 
.•BRANCH TO 20$ IF NO ERROR 



.LOAD INVALID TRACK. SECTOR AND CYLINDER ADDRESS AND SET FORMAT 
;T0 18 BIT MODE 
20$: 



MOV #-1.RMDA(R0) 
MOV #-l,RMDC(RO) 
MOV #O.RMGF(RO) 



LOAD RMDA 
LOAD RMDC 
LOAD RMOF 



.•ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS^ WITH GO ON 
MOV *DMD1MUR!DBEN,RMMR1 <R0) ;LOAD RMMRl 
MOV R2.R3 ; ASSEMBLE CODE AND 60 

BIS #G0.R3 

MOV R3,RMCS1(R0) ;lOAD RMCSI 

; CLOCK THE COMMAND SEQUENCER TO SET PULSE 
MOV Xr2,R4 

30$: 

MOV *DMD. MUP.DBEN.'DeCK. RMMRl (RO) ;LOAD RMMRl 
MOV *DMD MUR. 08EN. RMMRl (RO) ;LOAD RMMR^ 
DEC R4 



^WMPBC Hm'>/'^/2 DSKLS TST 1 MACRO vO'^.OC 
'67 SEARCH. SEEK, READ. WRITE TEST 
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SEO 0166 



3^.12 
5A^3 
3^U 
5^15 
3A16 
3417 
3418 
3419 
3420 

y.2i 

5422 
34 2 3 
34?4 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
34 35 



033436 001370 



033440 
033446 
033454 
033462 
033470 
035476 
033500 
033504 
033512 
033516 
033520 



033522 
033522 
033526 
C33532 
033534 
033536 



033536 
033536 
033540 
033542 
033546 
033552 
033556 

34 36 

3437 033564 
3458 033572 

3439 033576 

3440 053576 
033602 
033604 



016037 
042737 
016237 
042737 
023737 
001411 
010037 
062737 
010237 
104207 
000406 



062702 
023702 
103401 
000701 



000004 
000240 
012706 
013700 
013701 
012737 

013737 
105237 

004737 
000402 
104000 



000014 
175777 
063416 
175777 
001140 

001136 
000014 
001174 



000002 
000076 



001100 
001276 
001466 
000070 

001334 
001421 

054450 



001142 
001142 
001140 
001140 
001142 



001136 



001226 
001420 



3441 


033606 


000477 






34i,2 










3443 










3444 










344 5 


033610 








3446 


033610 


012760 


000000 


000034 


344 7 


033616 


013760 


001420 


000006 


3448 


033624 


012760 


000000 


000032 


3449 










3450 










3451 


033632 


012760 


041001 


000024 


34 52 


033640 


012760 


000031 


000000 


34 5 3 


033646 


012703 


000002 




3454 


033652 








3455 


033652 


012760 


141001 


000024 


34 56 


033660 


012760 


041001 


000024 



BNE 



30S 



; VERIFY lAE ACCORDING TO FUNCTION CODE 

MOV RMER1 (RC).»8DDAT 

BIC /r-CIAE,S8DDAT 

MOV FNCDTB(R2).4GDDAT 

BIC **CIAE.SGDDAT 

CMP $GDDAT,$8D0AT 

6E0 40S 

MOV RO.SBDADR 

ADD 4rRMER1,SeDADR 

MOV R2,$TMP0 

EMT 207 

BR 50S 



'ABLE 

.-STORE RMER1 AT SBDDAT 
.•ASSEMBLE EXPECTED lAE 



; BRANCH IF lAE OK 
;SE1 UP ERROR MSG 



.•ADVANCE TO NEXT FUNCTION CODE 
40S: 



50$: 



ADD 
CMP 
BLO 
BR 



»2.R2 
ILF76.R2 
50$ 
10$ 



.-SKIP REST OF 
EXIT JF DONE 



;fcND OF TEST 



TEST 



;'*TEST 70 INVALID TRACK/SECTOR TEST 

***************************************************************** 

tsT70: 

.-SCOPE CALL 



10$: 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

MOV 
INC8 

JSR 
BR 
EMT 
BR 



*STACK.SP 
$8ASE.R0 
TSTQUE.Rl 
#70,$TESTN 

LSTRK.RMDAO 
RMDAO+1 

PCSETVV 
20$ 

100$ 



.-LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•INITIALIZE TRACK ADDRESS 
.•SETUP FIRST INVALID ADDRESS 

;G0 SET VOLUME VALID 
.-BRANCH TO 20$ IF NO ERROR 

.-SKIP REST OF TEST 



.•CLEAR DESIRED CYLINDER. LOAD INVALID TRACK ADDRESS. AND SET 

;18 BIT FORMAT 

20$: 

MOV *O.RMDC(RO) ;LOAD RMDC 

MOV RMDAO,RMDA<R0) ;LOAD RMDA 

MOV #0,RMOF(R0) ;LOAD RMOF 

.•EXECUTE A SEARCH COMMAND TO WHERE "SET PULSE" IS ACTIVE 

MOV #DMD!MURI0BEN.RMMR1(R0) ;LOAD RMMRl 

MOV *SEARCHIGO.RMCS1(RO) ;L0AD RMCS1 

MOV *2,R3 

30$: 

MOV *DMD!HUR:D8EN!0BCK, RMMRl (RO) ;LOAD RMMRl 

MOV #DM01MUR!DBEN,RMMR1(R0) ;LOAD RMMRl 



ZRMPBO OSKLS TST 1 HACRO V04.00 

^70 INVALID TRACK/SEC TCR TEST 



L 13 

4-APR-81 0}:2<:^5 PAGE 15-7' 



?<.57 053666 
3458 033670 
34!>9 
5460 

3461 053672 

3462 033700 
5463 033706 

3464 033710 

3465 033716 

3466 033722 
5467 033730 
%oS 033736 
3469 033740 
34^0 

3471 

34 72 0 33742 

3473 033742 

3474 033746 

3475 033750 

3476 033754 
34 7 7 0 33762 
3478 033764 
3479 

3480 033772 

3481 033776 

3482 034004 

3483 034006 
3484 

3485 



005303 
0U1370 



016037 
042737 
001015 
012737 
010037 
062737 
013737 
104210 
000422 



105737 
001411 
105237 
123727 
101705 
012737 

005237 
123727 
101674 



000014 
175777 

002000 
001136 
000014 
001420 



001421 

001421 
0C1421 

000035 

001420 
001420 



001142 
001142 

001140 

001136 
001174 



000200 
001420 

000200 



DEC 
BNE 



R3 
30S 



;VERIFV lAE IS SET 

HOV RMER1(R0).$8D[;AT 
BIC #*CIAE.SBODAT 
BNE 40$ 
MOV *]AE.$GDDAT 
MOV RO.SBDADR 
ADD ♦RXERl.SBDADR 
MOV RMDAO.STMPO 
EM7 210 
BR 100S 

.•ADVANCE TO NEXT RMDA ADDRESS 



40$: 



50$: 



100$: 



TST8 RMDAO+1 

BEQ 50$ 

iNCe RMDAO+1 

CMPB RMDA0*1 .#128. 

BLOS 10$ 

MOV *29.,RHDAQ 

INC RMDAO 

CnPB RMDAO. *1 28, 

BLOS 1 0$ 



.-ISSUE 2 CLOCKS 



.•STORE RMER1 AT $8DDAT 

.•BRANCH IF lAE IS ON 
.■SETUP ERROR MESSAGE 



TESTING INVALID SECTORS ? 

YES !. 

INCREMENT TRACK ADDRESS 
DONE ? 

NO, TEST NEXT TRACK ADDRESS 
LOAD LOAD SECTOR ADDRESS AND 
TRACK 0. 

INCREMENT SECTOR ADDRESS 
DONE ? 

NO. TEST NEXT SECTOR ADDRESS 



SEO 0167 



■****************•***»****•»•»»*»••***•**********•»»**»**»••••*» 



.•*TEST 71 



INVALID CYLINDER TEST 



■♦**♦**»**•*»***•**•******••**•**»»•**•*******•***»**»*»*»••**** 



3486 
3487 
5488 
3489 



5490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 

3500 



034006 
034006 
034010 
034012 
034016 
034022 
034026 



034034 
034042 
034042 
034046 
034050 
034052 
034054 
034054 
034062 



034070 
034076 
034104 
034110 
034110 
054116 



000004 
000240 
012706 
013700 
013701 
012737 



TST71 



001100 
001276 
001466 
000071 



012737 001467 



004737 
000402 
104000 
000460 

01 5760 
012760 



012760 
012760 
012703 

012760 
012760 



054450 



001446 
000000 



041001 
000031 
000002 

141001 
041001 



001226 
001446 



000034 
000006 



000024 
000000 



000024 
000024 



10$: 



20$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 
BR 
EMT 
BR 

MOV 
MOV 



*STACK.SP 
$aASE.RO 
TSTQUE.R1 
*71.$TESTN 

*823..RMDC0 

PC.SETVV 
20$ 

50$ 

RMDCO.RMDC(RO) 
*0.RMDA(RO) 



.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 - UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

;SET FIRST INVALID CYLINDER 

;60 SET VOLUME VALID 
.-BRANCH TO 20$ IF NO ERROR 

.•SKIP IF ERROR 

.•LOAD RMDC 
.-LOAD RMDA 



.-ENABLE DEBUG CLOCK AND EXECUTE SEARCH COMMAND 

MOV *DMD!MUR!DBEN.RMMR1(R0) ;LOAD RMMR1 

MOV <rSEARCHlGO.RMCS1(R0) .-LOAD RMCS1 

MOV »2.R5 

30$: 

MOV WMD.'MURIDBENIDBCK.RMMRHRO) ;LOAD RMMR1 

MOV WMD!MUR!DBEN.RMMR1(R0) ;LOAD RMMRl 



ZRMPBO W105/3/2 DSKLS TST 1 
INVALID CYLINDER TEST 



mCRO V(K.00 



n 13 

4-APft-81 Ot:2A:25 PAGE 13-72 



SEO 0168 



3501 

5502 

5503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

552? 



034124 
034126 



054130 
034136 
034144 
054146 
034154 
054160 
054166 
054174 
034176 



034200 
034200 
034204 
034212 
034214 



034214 
034214 
034216 
034220 
034224 
034230 
034234 

3523 

3524 034242 

3525 034246 

3526 034254 
5527 

3528 
3529 

5530 034262 

3551 03'.262 
034266 
034270 

3552 034272 
3555 054274 

3534 034274 

3535 034302 

3536 034310 

3537 034316 

3538 034324 
5559 054332 

3540 034340 

3541 034346 
5542 03435A 
5545 

3544 

5545 034360 



005503 
001370 



016037 
042737 
001015 
012737 
010037 
062737 
013737 
104211 
000406 



005237 
023727 
103713 



000004 
000240 
012706 
01 3700 
013701 
012737 

005037 
013737 
112737 



004737 
000402 
104000 
000504 

012760 
01 5760 
016037 
012760 
013760 
012760 
012760 
012760 
012702 



000014 
175777 



001142 
001142 



002000 001140 
001136, 

000014 001136 

001446 001174 



001446 

001446 002000 



001100 
001276 
001466 
000072 

001444 
001334 
000035 



054450 



041001 
001444 
000032 
00K66 
001420 
1 77000 
104312 
000061 
000014 



001226 



001420 
001420 



000024 
000032 
001174 
000034 
000006 
000002 
000004 
000000 



DEC 
BNE 



R3 
50S 



;VERIfV lAE IS SET 



NOV RMERI (RO) .SBDDAT 

81 C #*C I AE. SBDDAT 

BNE 40S 

nOV #IAE,SGDDAT 

nOV R0,$8DADR 

ADD mV^R\ ,$8DADR 

MOV RMDC0,$THP0 

EMT 21 1 

BR 50S 



.-ISSUE 2 CLOCKS 



.STORE RMER1 AT SBDDAT 

.-BRANCH If lAE IS SET 
.SETUP ERROR MESSAGE 



.-ADVANCE 
40S: 



CYLINDER ADDRESS 



50$: 



INC RMDCO 

CMP RMDCO. *1024. 

BLO 10S 



.INCREMENT CYLINDER ADDRESS 
.•DONE ? 

;N0, TEST AGAIN 



.-•TEST 72 



SET AOC TEST 



•-*»•*♦»»*•*»»•*••*•****«♦*»♦***»*•»****••*»**••*»•*•••**»♦•*••*• 

TST72: 

;Si.^ CALL 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 

CLR 
MOV 
M0V8 



#STACK,SP 
S8ASE.ro 
TSTOUE.Rl 
*72. STESTN 

RMOFO 

LSTRK.RMDAO 
#29. .RMDAO 



;LOA. fHE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

.-.-SET TEST NUMBER IN APT MAIL BOX 



18 BIT FORMAT MODE 
SETUP LAST TRACK AND 
LAST SECTOR 



.ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS. MEMORY ADDRESS AND 

.WORD COUNT. THEN LOAD WRITE DATA COMMAND WITH GO SET 

10$: 

PC.SETVV ;G0 SET VOLUME VALID 

15$ ;8RANCH TO 15$ IF NO ERROR 



15$: 



JSR 
BR 
EMT 
BR 



40$ 



.-SKIP TEST IF ERROR 



MOV itrDMD.'MURiDBEN.RMMRl (RO) ;L0AD RMMR1 
MOV RM0F0,RMOF(R0) ;LOAD RMOF 
MOV RMOF (RO) .$TMPO .-STORE RMOF AT $TMPO 
MOV - #822. .R«DC(RO) ;LOAD RMDC 
MOV RMDAO,RHDA(RO) ;LOAD RMDA 
MOV *-512.,RMWC(R0) ;LOAD RWJC 
MOV /(f8UFFER,RMBA(R0) ;LOAD RMBA 

MOV #UD!6O,RMCS1(R0) ;LOAD RMCSl 

MOV #14. R2 ;R2 = CLOCK COUNT 

.•CLOCK COUNT 2-05 3-04 14-60.. 
.CLOCK THE C0W1AND SEQUENCER TO GENERATE SET PULSE 
20$: 



'■/RWPBO RH05/V2 DSKLS TST 1 
T7? SET AOE TEST 



nACRO V04.00 



N 13 

4-APR-81 01:24:25 PAGE 13-73 



03A50A 
034 50A 
03A506 
03A510 
0345U 
034520 
03A52A 

3573 

357A 03A532 

3575 03A536 

3576 034544 
3577 

3578 

3579 034550 

3580 034550 

3581 034554 

3582 034562 

3583 034570 

3584 034576 
3585 

3586 

3587 034604 

3588 034612 

3589 034614 

3590 034616 
3591 

3592 



000004 
000240 
012/06 
01 3700 
013701 
012737 

010037 
062737 
012702 



004737 
012760 
012760 
012760 
012760 



012760 
011203 
060003 
012713 



001100 
001276 
001466 
000073 

001136 
000014 
034712 



054674 
000001 
041001 
000000 
000000 



000001 
041001 



SEQ 016V 



3546 


034560 


012760 


141001 


000024 


3547 


034366 


012760 


04 1001 


000024 


5548 


034374 


005302 






5549 


034376 


001370 






3550 










3551 










3552 
3S53 


034400 


012760 


061001 


000024 


034406 


012760 


041001 


000024 


5554 










3555 










3556 


034414 


016037 


000014 


001142 


3537 


034422 


042737 


1 7t777 


001142 


3558 


034430 


001012 






3559 


034452 


010037 


001 1 36 




3560 


034436 


062737 


000014 


001136 


3561 


034444 


012737 


001000 


001140 


3562 


034452 


104212 






3563 


034454 


000413 






3564 


034456 








3565 


C34456 


032737 


010000 


001444 


5566 


034464 


001007 






3567 


034466 


012737 


010000 


001444 


3568 


034474 


112737 


000037 


001420 


3569 


034502 


000667 






3570 


034504 








3571 










3572 











001226 
001136 



000024 
000024 
000014 
000042 



000000 



; FORCE 



nov 

HOV 
DEC 
BNE 

E8L TO 

nov 
nov 



ranDinURlDBENlDBCK^RMMRI (RO) 
#0nD!nUR!0BEN,RMnR1(R0) .LOAD 
R2 

20S .-ISSUE 2 CLOCKS 



;L0AD kWRI 
RfVIRI 



GET TO OVERFLOW ADDRESS 

«rDnD!nUR!DBEN.*DEBL.RnnR1(R0) ;L0AD 
#DnD!nuR!DBEN,RmR1CR0) .LOAD RN1R1 



RftWI 



.•VERIFY 



30$: 



40$: 



THAT 


ADDRESS OVERFLOW ERROR IS SET 


MOV 


RriER1(R0).$8DDAT 


; STORE RMEfil AT $8DDAT 


BIC 


*"CAOE.$BDDAT 


BNE 


30$ 


.•BRANCH ir AOE IS SET 


MOV 


RO.$eDADR 


.•SETUP ERROR MESSAGE 


ADD 


*RMER1 .$8DADR 




nov 


*AOE.$GDDAT 




EMT 


212 




BR 


40$ 


.-END OF TEST 


BIT 


*FMT16.RM0F0 


.■DONE 16 BIT F0R^WT TEST ? 


BNE 


40$ 


.-YES !. 


KOV 


#FMT16.RM0F0 


.•SET 16 BIT FORMAT MODE AND 


MOVE 


*31..RMDA0 


.•LAST SECTOR 


BR 


10$ 





;*TEST 73 



SET RMR TEST 



'****************•********************************************** 



TST73: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 
ADD 
MOV 



*STACK.SP 
$aASE.R0 
TSTQUE.R1 
#73.$TESTN 

RO,$eDADR 

#RMER1.$BDADR 

Xf100$.R2 



.•SCOPE CALL 

;L0AD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

;SETUP REGISTER ADDRESS FOR MSG 

.•INITIALIZE TABLE POINTER 



.CLEAR THE DEVICE AND ENABLE DEBUG CLOCK 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV #DMD.RMMR1 (RO) ;L0AD RMMR1 

MOV *DMDIMUR!DBEN.RMMR1 (RO) ;LOAD RMMR1 

MOV tfO.RMERKRO) ;LOAD RMER1 

MOV <r0.RMER2(R0) ;LOAD RMER2 

;SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE 
MOV *60.RMCS1(R0) ;LOAD RMCS1 

MOV (R2).R3 .-GENERATE REGISTER ADDRESS 

ADD R0.R3 

MOV *DM0.'MUR!DBEN.(R3) .WRITE THE REGISTER 

.■VERIFY RMR ACCORDING TO TABLE 



Zf^MPBO RM05/5/2 DSHLS TST 1 
'75 SET km TEST 



7CQ7 rkT/^TO 

5595 05<rOc^ 






rtfti 

Ul/I l^c 


U5*»o30 


A/.5777 


I f f f f J 


will 




ni A5T7 

U ' Oc >' 












VA/ 1 1 '*C 




UU 1 *• 1 1 






j^Vo US**©?** 




rtni 1 7L 




5jtt' U>*»Ow 






VAAAA/C 


5oW U5*»ooO 


KnJ 1 'JVC 






3wl U5*tO/^U 








XVC ')>*Ol c 


UW*«U I 






XAt\X l\tJ.A7L 
V/5*»0/^*» 








UShO/** 


1 v*»t ' *♦ 






30U*» 








SOU 3 








U>hO/ ) 
















X>vO U3*»'Uc 
















TO'v 'IV* \JO 
















jO I c 
















30 1 *» U J** ' 1 c 








5615 034712 








jO 1 D U JH ' 1 •« 








JO 1 ' 








jO I O U J** ' 1 o 








n^i7Pn 


wvwV/vv 






TAPi n'^^7P5 






















JOC J 










y77777 






562 5 034730 


000000 






3626 








3627 034732 








5628 








3620 









C 34 732 
034732 
034734 
034736 
034742 
034746 
034752 

3630 
3631 

3632 034760 
3<«3 3 0 34764 
3634 034772 
3635 
5636 

3657 035000 
3638 035006 



000004 
000240 
012706 
01 3700 
013701 
012737 



00*. 737 
016037 
016037 



032737 
OOlOU 



001100 
001276 
001466 
000074 



054674 
n00026 
000012 



B U 
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nOV RnER'i(R0),SeD0AT 

BJC #*Cf«K,t600AT 

«0V 2(R2).$(iDDAT 

C*V> SGDDAT.SBDDAT 

BEO 30S 

MOV {R2).lTnP0 

BJT #RnR,2(R2) 

BNE 20S 

E«T 213 

BR 30S 

E«T 214 



SEO 0170 



.STORE RMERl AT $80DAT 

.GET EXPECTED RESULT fROH T/«lE 

.BRANCH IF RrfR IS OK 
.SAVE TEST REGISTER 

.-BRANCH IF ERROR SHOULD BE ONE 



20$: 



001226 



001 1 74 
001142 



.ADVANCE TAB' E POINTER. EXIT Jf DCNt 
30$: 

ADD #4.R2 

TST («2) 

BMI 40$ 

BR 10$ 

40$: BR 200$ 



.•EXIT IF ENTRY NEGATIVE 
.•JUMP OVER TABLE 



.TABLE Of REGISTER ADDRESSES AND RMR VALUES 
100$: 

.WORD RMAS .-ATTENTION SUMMARY REG 

.WORD 0 ;RMR = 0 



.WORD 
.WORD 

.WOPD 
.WORD 

.WORD 
.WORD 



RMMRl 
0 

RMDA 
RMR 

-1 
0 



200$: 



.MAINTENANCE REG 
;RMR = 0 

.-DISK ADDRESS REG 
;RMR - 1 

.END OF TABLE 
.-END OF TEST 



[•ilEST 74 PGM STATUS CHECK 

••«*•••••••••*»•••*•*••*♦•••»•••••••*«•••••*••••••••'•*••»*••*••• 

TST 74; 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



4rSTACK.SP 
SBASE.RO 
TSTQUE.Rl 
#74.$TESTN 



.-SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNI BUS ADDRESS 

R1 = POINTER TO DEVICE 

;SET TEST NUMBER IN APT MAIL BOX 



004000 001174 



.•CLEAR AND READ DRIVE TYPE AND DRIVE STATUS 

JSR PC.CN1CLR ;60 CLEAR CONTROLLER 

MOV RMDT{RO),$TMPO ;STORE RMDT AT $TMPO 
MOV R«)S(R0).$8DDAT -STORE RMDS AT $8DDAT 

.-OMIT TEST IF DRO IS ON - ELSE VERIFY THAT PGM IS OFF 
BIT #DRQ.$TMPO 

BNE 10$ ; BRANCH IF DRO IS ON 



/mMpso RMOS/5/2 DSKLS TST 1 
7A PGM STATUS CH6CK 



*1ACRG v(K.OO 



3659 035010 
5640 035016 

3641 035020 

3642 035024 

3643 035030 
5644 035036 
3645 035040 
3646 

3647 



042737 
001410 
005037 
010037 
062737 
104215 



17677-^ 001142 



001140 
001116 
000012 



001134 



10S: 



c u 
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BIC #-CPGH.S80DAT 

BEO lOS 

CLR SGDDAT 

nOV R0,S8DADR 

ADD MWS.SGDADR 

EHT 215 



.-•TEST 75 



SCO 0171 



.•BHAN'^H IF PGH IS Off 



;END OF ^ESl 



DVA/DPR STATUS CHECK 



3648 
3649 
3650 
3651 
3652 
3653 
3654 
365 5 
3656 
3657 
3658 
3659 
366'J 
3661 
3662 
3663 
3664 
3665 
3666 
5667 
5668 
5669 
5670 



035040 
035040 
055042 
035044 
035050 
035054 
035060 



035066 
035072 
035100 
035106 
035110 
035116 
035122 



035124 
035124 
035132 
035140 
035142 
035150 
035154 
035162 

035164 



3671 
3672 



5673 



000004 
000240 
012706 
013700 
013/01 
012737 



004737 
016037 
042737 
001006 
012737 
010037 
104216 



016057 
042737 
001011 
012757 
010037 
062737 
104217 



TST75: 



001100 
001276 
001466 
000075 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



.•SCOPE CALL 

*STACK.SP .-LOAD THE STACK POINTER 

SBASE.RO ;R0 = UNI8US ADDRESS 

TSTQUE.R1 ;R1 = POINTER TO DEVICE 

#75,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 



054674 

000000 00''142 
173777 001142 



004000 
001 1 36 



000012 
,77177 



001140 



001142 
001142 



000400 001140 
001136 

000012 001136 



.•CLEAR AND VERIFV THAT DVA IS SET 

JSR PCCNTCLR ;G0 CLEAR CONTROLLER 

MOV RHCS1 (RO) ,$8DDAT ;STORE RMCS1 AT SBDDAT 

BIC #*CDVA.$BDDAT 

BNE 10$ .-BRANCH IF DVA IS ON 

MOV #DVA,SGDDAT 

MOV RO.SBDADR 

EMT 216 

.VERIFY THAT DPR IS SET 
10$: 

MOV R«DS(R0),$8DDAT ;STORE RMDS AT $8DDAT 

BIC #TDPR.$8DDAT 

BNE 20$ 

MOV #DPR.$GDDAT 

MOV RO.$eDADR 

ADD «RMDS.$8DADR 

EMT 217 



20$: 



.•END OF TEST 









}iTEST 76 


PORT REQUEST 


TEST. PART 1 


055164 






tsT76: 






055164 


000004 




SCOPE 




.-SCOPE CALL 


035166 


000240 




NOP 




.-LOAD THE STACK POINTER 


035170 


012706 


0011 00 


MOV 


♦STACK.SP 


055174 


013700 


001276 


MOV 


SBASE.RO 


;R0 = UNI8US ADDRESS 


035200 


013701 


001466 


MOV 


TST0UE.R1 


;R1 = POINTER TO DEVICE 


055204 


012737 


000076 001226 


MOV 


#76.$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


035212 


004757 


054450 


JSR 


PC.SETVV 


;G0 SET VOlUME VALID 


035216 


000402 




BR 


10$ 


.-BRANCH TO 10$ IF NO ERROR 


035220 


104000 




EMT 






05S222 


000434 




BR 


^0$ 





'"ZWHPBO RM05/5/2 DSKLS TST 1 
T76 PORT REQUEST TfST, PAR' 



•M'RO V04.00 

1 
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3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

36W 

5631) 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

5695 

3696 

3697 

3698 

3699 



035224 
035224 



035232 
035236 
035242 



035250 
035254 
035260 
035262 
035270 
C35276 
035300 
035304 
035312 
035314 



5700 
3701 



5702 
5703 
3704 
5705 
5706 
5707 
5708 
5/09 
3710 
5711 
57^2 
3715 
5714 
5715 
5716 
5717 
5718 



055354 
035554 



055362 
035566 
055572 



055402 
055406 



012760 000013 000000 



016002 
042702 
00102'. 



000040 
017777 



035244 016002 000000 



016005 
032705 
001415 
016037 
042737 
001006 
010037 
062737 
104220 



000012 
001000 

000040 001142 
037777 001142 



.EXECUTE A RELEASE TO RESET REQUEST fLOP 
^OS: 

tRLEASE «iO.R«CS1 (RO) ;LOAO RMCS! 

;READ RMHR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 
MOV Rff«2(R0).R2 ."Srwe RMMR2 AT R2 
BIC #*C<RQA'R08>.R2 
BNE 20S 

;READ RMCSl TO SET REQUEST FLOP 

MOV RMCS1(R0).R2 .-STORE RMCSl AT R2 

;VERIFy THAT REQUEST FLOP IS SET IF PGM IS Sc"T 



001136 
000040 



001136 



20S: 



MOV RMDS(R0).R5 

BIT #PGM.R5 

BEQ 20S 

MOV RMMR2(R0),$8DDAT 

BIC #*C<RQA.RQB>.$8DDAT 

BNE 20$ 

MOV R0.$8DADR 

ADO #RnMR2.SBDADR 

EMT 220 



STORE RMDS AT R5 
SEE IF PGM IS SET 
DONT TEST REQUEST IF PGM IS ZERO 
STORE RMMR2 AT S8DDAT 



.-BRANCH IF REOUES'' IS SET 









;*TEST 77 


PORT REQUEST 


TEST. PART 2 


035514 






TST77: 






055514 


000004 




SCOPE 




.•SCOPE CALL 


055516 


000240 




NOP 






055520 


012706 


001100 


MOV 


fSTACK.SP 


;LOAD THE STACK POINTER 


035324 


01 3700 


001276 


MOV 


SaASE.RO 


;R0 = UNI8US ADDRESS 


035550 


013701 


00.466 


MOV 


TSTQUE.Rl 


;R1 = POINTER TO DEVICE 


055534 


012737 


000077 001226 


MOV 


#77,$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


035542 


004757 


054450 


JSR 


PC.SETVV 


;G0 SEl VOLUME VALID 


055546 


000402 




BR 


10S 


.-BRANCH TO 10$ IF NO ERROR 


055550 


104000 




EMT 






035352 


000435 




BR 


20S 





012760 000013 000000 



016002 
042702 
001025 



000040 
037777 



055374 012760 ^77777 000016 



016005 
032705 



000012 
001000 



.-EXECUTE A RFLEASE TO RESET REQUEST FLOP 
10$: 

MOV #RLEASE!GO,RMCS1(RO) .LOAD RMCS1 

.-READ RMMR2 AAJD SKIP TEST IF REQUEST FLOPS ARENT RESET 
MOV RMMR2(R0).R2 ;STORE RMMR2 AT R2 
BIC <r-C<RQAlRQB>,R2 
BNE 20$ 

.-WRITE THE ATTENTION SUMMARY REGISTER TO SET REQUEST FLOP 
MOV #-1.RMAS(R0) ;LOAD RMAS 

.VERIPy THAT REQUEST FLOP IS SET IF PGM IS SET 

MOV RMDS(R0).R5 .-STORE RMDS AT R5 
BIT #PGM,R5 .-SEE IF PGM IS SET 



Jf^rPbO DSKLS TST 1 •WCRO v04.00 

'7- PO«T REQUEST ^EST, PART 2 



ir9 

3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 



03SA12 
0354H 
035422 
035450 
035432 
0^5436 
0354^ 'i 
035446 



0014"'5 
016037 
042737 
001006 
010037 
0t2737 
104221 



G00040 
037777 

001136 
000040 



001142 
001 U2 



001136 



20f: 



E U 

4-APR-81 01:24.v5 PAGE 13-77 



8cQ 20$ ;DONT TEST kEOUEST IF PGM IS ZERO 

POV RWR2(R0).t8DDAT ;ST0RE RWR2 AT $80DAT 

BIC «*'C<RQA!Rbe>.SeDDAT 

BNE 20S 

nOV RO.SBDAOR 

ADD irRnnR2,$eDADR 

EMT 221 



SEO 0173 



;*TEST 100 



PORT REQUEST TESl. PART 3 



3729 
3730 



035446 
035446 
035450 
035452 
035456 
035462 
C35466 

055474 
035500 
035502 



000004 
000240 
012706 
01 5700 
015701 
012737 

004737 
000402 
104000 



TST100; 



001100 
001276 
001466 
OCOlOO 

054450 



3751 


035504 


000455 




5752 








5733 








3/34 


035506 






3735 


035506 


012760 


00001 3 


3756 








5737 








5758 


035514 


016002 


000040 


5759 


055520 


042702 


037777 


5740 


055524 


001025 




3741 








3742 
5743 








035526 


012760 


000000 


5744 








3745 








5746 


055554 


016005 


000012 


5747 


055540 


032705 
001415 


001000 


5748 


055544 




5749 


055546 


016037 


000040 


5750 


055554 


042737 


037777 


5751 


055562 


001006 




3752 


055564 


010037 


001136 


3755 


035570 


062737 


000040 


37':4 


035576 


104222 




3755 








5756 


035600 






3757 








3758 









001226 



SCOPE 

NOP 

MCV 

MOV 

MOV 

MOV 

JSR 
BR 
EMT 
BR 



#STAC»(,SP 
$8ASE.R0 
TSTQUE.Rl 
#100.$TESTN 

PCSETVV 
10S 

20S 



.•SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNI8US ADDRESS 

R1 = POINTER TO DEVICE 

.SET TEST NUMBER IN APT MAIL BOX 

;G0 SE/ VOLUME VALID 
.-BRANCH TO 10$ IF NO ERROR 



001 r.c' 



001 1 36 



.-EXECUTE A RELEASE COMMAND TO RESET REQUEST FLOP 
10$: 

MOV *RLEASE:GO.RMCS1(RO) .-LOAD RMCS1 

.-READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 
MOV RMMR2(R0),R2 ; STORE RMMR2 AT R2 
BIC **C<RQA!RQB>,R2 
BNE 20$ 

.-WRITE RMDA TO SET REQUEST FLOP 

MOV <fO,RMDA(RO) ;LOAD RMDA 

.-VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 

MOV RMDS(R0),R5 .-STORE RMDS AT R5 

BIT *PGM,R5 .-SEE IF PGM IS SET 

BEO 20$ ;DONT TEST REQUEST IF PGM IS ZERO 

MOV RMMR2(R0) .$8DDAT .-STORE RMMR2 AT $BDDAT 

BIC **c<roa:rgb>.$8ddat 

BNE 20$ 

MOV R0,$8DADR 

add *RMMR2.$BDADR 

EMT 222 



20$: 



.-•TEST 101 



RELEASE TEST 



035600 
055600 



000004 



TSTIOr 



SCOPE 



; SCOPE CALL 



n ^ -RELEASE TEST 



F K 
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SEO 0174 



035602 
035604 
035610 
0356U 
035620 

3759 
3760 
3761 

3762 035626 
035632 
035634 



000240 
012706 
013700 
013701 
012737 



004737 
000402 
104000 



001100 
001276 
001466 
000101 



054450 



001226 



MOP 
MOV 
MOV 
MOV 
MOV 



/rSTACK.SP 
$8ASE .RO 
TST0UE.R1 
#101 .STESTN 



LOAD THE STACK POINTER 

RO = UNI8US ADDRESS 

R1 = POINTER TO DEVICE 

;SET TEST NUMBER IN APT MAIL BOX 



.•REQUEST FLOP SHOULD SET WHEN URITriNG RMCS1 



JSR 
BR 
EMT 



PL.SETVV 
ICS 



;G0 SET VOLUME VALiD 
.•BRANCH TO 10$ IF NO ERROR 



37o3 


035636 


000454 








BR 


40$ 




3764 


















3765 










.•EXECUTE A RELEASE COMMAND 




3766 


035640 








10$: 








3767 


035640 


012760 


041001 


000024 




MOV 


#DMD!DBEN;MUR,RMMR1 (RO) 


;LOAD RMMR1 


3768 


035646 


012760 


000013 


000000 




MOV 


#RLEASE!GO.RMCS1(R0) 


.•LOAD RMCS1 


3769 


035654 


012702 


000002 






MOV 


#?.R2 




3770 


035660 








20$: 










C35660 


012760 


141001 


000024 




WV 


#DMD.'DBEN.MUR!D8CK.RMMR1 (RO) ;L0AD RMWI 


3771 


035666 


012760 


041001 


000024 




MOV 


#DMD ; DBEN !MUR,RMMR1 (RO) 


;LOAD RMMR1 


3772 


035674 


005302 








DEC 


R2 




3773 


035676 


001 370 








BNE 


20$ 


.•ISSUE 2 CLOCKS 


3774 


















5775 










.•VERIFY 


REQUEST FLOPS ARE RESET 




3776 


035700 


016037 


000026 


001174 




MOV 


RMDT(RO).$TMPO ; STORE 


RMDT AT $TMPO 


3777 


035706 


016037 


000040 


001U2 




MOV 


RMMR2(R0).$8DDAT 


; STORE RMMR2 AT $RDDAT 


3778 


035714 


042737 


017777 


001142 




BIC 


#*C<RQA.RQB>.$8DDAT 




3779 


035722 


001422 








BEO 


40$ 


.•BRANCH IF REQUESTS ARE RESET 


3780 


035724 


032737 


004000 


001 1 74 




BIT 


#DRQ,$TMPO 




3781 


035732 


001410 








BEO 


30$ 


.•BRANCH IF SINGLE PORT DEVICE 


3782 


035734 


032737 


100000 


001 142 




BIT 


*ROA.$BDDAT 




3783 


035742 


001412 








BEO 


40$ 


.•BRANCH IF RCiA IS RESET 


3784 
3780 


035744 


032737 


040000 


001142 




BIT 


#RQ8.$8DDAT 




035752 


001406 








BEO 


40$ 


.•BRANCH IF ROB IS RESET 


3786 


















5787 










;DRO IS 


ZERO 


AND A REQUEST FLOP IS ON. 


OR. DRO IS ONE AND 


3788 










;BOTH REQUEST 


FLOPS ARE ON 




3789 


035754 








30$: 








3790 


035754 


010037 


001 1 36 






MOV 


R0.$8DADR 




3791 


035760 


062737 


000040 


001 1 36 




ADD 


#RMriR2.$BDADR 




3792 


035766 


104223 








EMT 


223 




3793 


035770 








40$: 






;END OF TEST 


3794 


















3795 










••••*••»*»*•**»*** »•****••****••***•**••**••*•*•**•*•••*•*••***•* 










.••TEST 


102 


WRITE ATA TEST 





3796 
3797 



035770 
035770 
035772 
035774 
036000 
036004 
036010 



000004 
000240 
012706 
013700 
015701 
012737 



TSn02: 



001100 
001276 
001466 
000102 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



.-SCOPE CALL 

♦STACK, SP .-LOAD THE STACK POINTER 

$8ASE.R0 ;R0 - UNIBUS ADDRESS 

TST0UE,R1 ;R1 = POINTER TO DEVICE 

#102.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 



.•CLEAR THE DEVICE, SET DIAGNOSTIC MODE THEN SET UNF READY 



/RMPBO RW05/5/2 DSKLS 
"'O: -JRITE ATA TEST 



MACRO VGA. 00 
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5^98 056016 


004757 


054674 






jSR 


PC.CNTCLR ;G0 CLEAR CONTROLLER 


5799 056022 


012760 


C00001 


000024 




MOV 


JTDMD.RMWKRO) .LOAD RMMP1 


3800 056030 


012760 


000000 


OOOOK 




MOV 


*0.RMER1(R0) .-LOAD RMER1 


5801 056056 


012760 


000000 


000042 




MOV 


*0.RMER2(R0) .-LOAD RMER2 


5802 056044 


012760 


001001 


000024 




MOV 


#DMD!MUR.RMMR1(R0) ;LOAD RMMR1 


5805 












580A 








;yRITE 


THE ATTENTION SUMMARY REGISTER 


5805 036052 


111102 








Move 


(R1).R2 .-ASSEMBlE the ATA 


5806 056054 


042702 


1 7777{^ 






BIC 


**CUNTMSK.R2 


3807 056060 


116203 


063516 






M0V8 


ATNT8L(R2).R3 
#*CATNMSIC.R3 


5808 056064 


042705 


1 77400 






BIC 


5809 056070 


010360 


000016 






MOV 


R3.RMAS(R0) .-LOAD RMAS 


5810 












3811 








.•READ 


RMDS AND 


VERIFY THAT ATA IS RESET 


5812 056074 


016037 


00001 2 


001142 


MOV 


RMDS(R0).$8DDAT ; STORE RMDS AT S8DDAT 


5813 056102 


042757 


077777 


001142 




BIC 


#*CATA.$8DDAT 


5814 056110 

5815 056112 


001411 








BEQ 


10$ .-BRANCH IF ATA IS 


010037 


001156 






MOV 


R0.$8DADR 


5816 056116 


062757 


000012 
001 140 


001136 




ADD 


#RMDS,SBDADR 


5817 056124 


005037 






CLR 


$GDDAT 


5818 056150 


104224 








EMT 


224 


5819 056152 


000417 








BR 


20$ 


3820 














3821 

382? 056154 








.-READ 


RJ^AS AND 


VERIFY ATA IS RESET 








10$: 






5825 036154 


016037 


000016 


001142 




MOV 


R«AS(R0).$8DDAT .-S^ORE RMAS AT $8DDAT 


5824 056142 


005103 








fOM 


R3 


5825 056144 


040357 


001142 






BJC 


f(3.$8DDAT 


5826 056150 


001410 








BEO 


20$ .-BRANCH IF ATA IS 


5827 056152 


005057 


00r40 






CLR 


!3DDAT 


5828 056156 


010057 


001156 






MOV 


RO,$eDADR 


5829 056162 


062737 


000016 


001136 




ADD 


4rRnA5,$eDADR 


5850 056170 


104225 








EMT 


225 


3831 056172 








20S: 




;END OF TEST 


3832 












3853 








» 0 







.-•TEST 103 



RESET ATA BY GO TEST 



036172 
0361 72 
0361 74 
0361 76 
056202 
056206 
056212 

3834 

3835 036220 
5836 036224 

3837 056252 

3838 036240 

3839 036246 
3840 

5841 

3842 036254 

3843 036262 

3844 036270 



000004 
000240 
012706 
015700 
013701 
012737 

004737 
012760 
012760 
012760 
012760 



012760 
016037 
042737 



TST103: 



001100 
001276 
001466 
000103 

054674 
000001 
000000 
000000 
041001 



000001 
000012 
077777 



001226 



000024 
000014 
000042 
000024 



000000 
001142 
001142 



SCOPE 




/SCOPE CALL 


NOP 






MOV 


ttSTACK.SP 


;LOAD THE STACK POINTER 


MOV 


$8ASE.R0 


;R0 = UNJBUS ADDRESS 


MOV 


TSTQUE.R1 


;R1 = POINTER TO DEVICE 


MOV 


#103,$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.CNTCLR 


;G0 CLEAR CONTROLLER 


MOV 


*DMD.RMMR1 (RO) 


.•LOAD RMMR1 


MOV 


#0.RMER1(R0) 


;LOAD RMER1 


MCV 


*0,RMER2(R0) 


.-LOAD RMER2 


MOV 


#DMD!MUR!DBEN.Rft1R1(R0) ;L0AD RMMR1 



;UITH DEBUG CLOCI^ ENABLED, SET GO AND VERIFY THAT ATA IS RESET 
MOV #G0.RMCS1 (RO) ;LOAD RMCS1 
MOV RMDS(R0).$8DDAT ;STORE RMDS AT $8DDAT 
BIC *''CATA,$8DDAT 



'/f««PeO RM05/5/2 DSKLS 1ST 1 
^10? RESET ATA BV GO TEST 



58^6 



036276 
C36500 
056304 
3848 036310 
?8/.9 036316 
3850 

3851 036320 

3852 

3853 



OOU-'O 
005037 
010037 
062737 
104226 



C01140 
001136 
000012 



H U 

HACRO V04.00 <i-APR-81 01:24:«;5 PAGE 13-80 



001136 



lot: 



;»TEST 104 



S£0 0176 



BEQ 10S 

CLR SGDDAT 

MCV R0,$8DADR 

ADD *RMDS.$BDADR 

EMT 226 



;8RANCH IF ATA IS RESET 



;END Of TEST 



UNiT READY AM TEST 



056320 
036320 
036322 
036324 
036530 
036334 
036340 

3854 
3855 

3856 036346 

3857 036352 

3858 036360 

3859 036366 

3860 036374 
3861 

3862 

3865 036402 

5864 056410 

5865 056416 

5866 056424 

5867 036426 

5868 036432 

3869 036440 

3870 036446 
3871 

3872 

3873 036450 
5874 036450 

3875 036456 

3876 056464 

3877 036472 

3878 036500 

3879 036502 

3880 036506 

3881 036514 

3882 036522 
3883 

3884 036524 

3885 

3886 



000004 
000240 
012706 
015700 
015701 
012737 



004757 
012760 
012760 
012760 
012760 



012760 
016037 
042757 
001011 
010057 
062737 
012737 
104227 



012760 
012760 
016037 
042737 
001011 
010037 
062737 
012757 
104230 



TST104: 



001100 
001276 
001466 
000104 



0S4674 
000001 
000000 
000000 



001001 
00001 2 
077777 

001136 
000012 
100000 



\77777 
000001 
000012 
077777 

001156 
000012 
100000 



001226 



000024 
000014 
000042 
000016 



000024 
001 U2 
001142 



001 1 36 
001140 



000016 
000024 
001142 
001142 



001136 
001140 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



ffSTACK.SP 
$8ASE.R0 
TSTQUE.R1 
*104,$TESTN 



;S.OPE CALL 

.•LOAD THE STACK POINTER 
;R0 - UNI8US ADDRESS 
;R1 - POINTER TO DEVICE 
;;SET TEST NUMBER IN APT MAIL 



BOX 



;SET DIAGNOSTIC MODE AND CLEAR ATA 



JSR 
MOV 
MOV 
MOV 
MOV 

.-SET UNIT READY 
MOV 
MOV 
BIC 
BNE 
MOV 
ADD 
MOV 
EMT 



PC.CNTCLR 
#D«D.RMMR1 (RO) 
*0.RMER1 (RO) 
*0.RMER2(R0) 
#-1.RMAS(R0) 



GO CLEAR CONTROLLER 
LOAD RMMR1 
LOAD RMER1 
LOAD RMER2 
LOAD RMAS 



AND VERIFY ATA IS SET 
*DMD!MUR,RMMR1 (RO) ;LOAD RMMR1 

RMDS(R0).$8DDAT .-STORE RMDS AT $8DDAT 
#*CATA,$BDDAT 

10$ .-BRANCH IF ATA IS SET 

R0,$8DADR 

*RMDS,$BDADR 

*ATA, SGDDAT 

227 



.-CLEAR ATA. RESET UNIT READY. AND VERIFY ATA IS SET 
10$: 



MOV 


#-1.RMAS(R0) 


;LOAD RMAS 


MOV 


#DrtD.RMMRl(RO) 


;LOAD RMMR1 


MOV 


RnDS(R0),$6DDAT 


.-STORE RMDS AT $8DDAT 


BJC 


**CATA,$8DDAT 




BNE 


20$ 




MOV 


R0.$8DADR 




ADD 


*RMDS.$BDADR 




MOV 


*ATA.$GDDAT 




EMT 


230 





20$: 



;END OF TEST 



.-•TEST 105 



ERROR ATA TEST 



036524 

036524 OOOOW 



TST105: 



SCOPE 



.-SCOPE CALL 



CRROR A''* TEST 



5887 

38d8 

5889 

3890 

3891 

3892 

5893 

3894 

5895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

390/ 



036526 
036530 
036534 
036540 
C36544 



036552 
036556 
036564 

036572 
036600 



036606 
036614 
036622 
036630 
036652 
056640 
036644 
036652 

036654 



000240 
012706 
013700 
01 3701 
012757 



004737 
012760 
'^'12760 
012760 
012760 



012760 
016037 
042737 
001011 
012737 
010037 
062757 
104251 









I u 




fST 1 


ilACi^O y04.00 
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NOP 






001 100 




nov 


#STACK,SP 


LOAD Thtf STA^K POINTER 


001276 




nov 


SaASE.RO 


•RO = UNI8US ADDRESS 


001 466 




nov 


TST0UE.R1 


•R1 = POINTER TO DEVICE 


000105 


001226 


MOV 


#10S.$TESTN 


•.SET TEST NUMBER IN APT 




.•CLEAR 


THE DEVICE AND RESET ATTENTION 


054674 




JSR 


PC.CNTCLR 


;G0 CLEAR CONTROLLER 


000001 


000024 


nov 


«DnD,RnnRi(RO) 


;LOAD RnnRI 


000000 


000014 


nov 


«0.RnER1 (RO) 


;LOAD RMERI 


000000 


000042 


nOV 


#0.RnER2(R0) 


;LOAD RnER2 


1 77777 


000016 


WOV 


#-1.RnAS(R0> 


;LOAD RMAS 




.•WRITE 




ERROR REGISTER 1 AND VERIFY ATA IS SET 


1 77717 


000014 


MOV 


*-1.><MER1(R0) 


.-LOAD RMER1 


000012 


001142 


MOV 


RMDS(R0).S8DDAT 


.•STORE RMDS AT $8DDAT 


^77777 


001142 


BIC 


#*CATA.J8DDAT 








BNE 


10$ 




100000 


001140 


MOV 


#ATA.$GDDAT 




001136 




MOV 


R0.$8DADR 




000012 


001136 


ADD 


#RMDS.$8DADR 








EMT 


231 






10$: 






;END OF TEST 



.••TEST 106 



REGISTER TRANSFER ATA ^EST 



056654 






036654 


000004 




056656 


000240 




056660 


012706 


001100 


036664 


013700 


001276 


036670 


013701 


001466 


036674 


012737 


000106 


5908 






3909 036702 


012702 


037030 



TST106: 



5910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3925 
3924 
5925 
3926 
3927 
3928 



056706 
056706 
056712 
056720 
056726 



056754 
056736 
036740 
036742 
036750 
036756 
036764 
056772 
056774 
037000 



004737 
012760 
012760 
012760 



011203 
060003 
005013 
016037 
042737 
016237 
023757 
00K10 
010537 
010037 



054674 

000001 
U7777 
1 77777 



000012 
077777 
000002 
001140 

001174 
001 1 36 



001226 



000024 
000014 
000016 



001142 
001142 
001140 
001142 



SCOPE 
NOP 
MOV 
MOV 

nov 
nov 

nov 



*STAC»C.SP 
$aASE.RO 
TSTQUE.R1 
*106.$TESTN 

irlOO$.R2 



.•SCOPE CALL 

;LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUnBER IN AP^ MAIL BOX 



.•INITIALIZE TABLE ADDRESS 



;FORCE COMPOSITE ERROR AND RESET ATA 
5$; 

JSR PC.CNTCLR 
MOV #DMD,RnMR1 (RO) 
MOV *-1 .RMER1 (RO) 
MOV #-1,RnAS(R0) 



GO CLEAR CONTROLLER 
LOAD RMMR1 
LOAD RMER1 
LOAD RMAS 



.-WRITE THE TEST REGISTER AND VERIFY ATA 



MOV (R2).R3 

ADD R0.R3 

CLR (R3) 

MOV RMDS(R0).$8DDAT ;ST0RE RMDS AT $8DDAT 

BIC #*CATA.$BDDAT 

MOV 2{R2),$GDDAT 

CMP $GDDAT.$8DDAT 

BEO 10$ 

MOV R3.$TMP0 

MOV R0.$8DADR 



GENERATE REGISTER ADDRESS 



.•BRANCH IF ATA IS OK 



^RMPBO ftfl05/'//2 OSKLS 
'106 REGISTER TRANSf 



J K 

TST 1 n*CRO VW.OO 4-AW-81 Ol.-P^.^S PAGE 15-8? 
£R ATA TEST 



59Z9 0370CK 
3930 037012 


062757 


000012 


001156 


ADO 


«Rf«>S,$BDADR 


104252 






E«T 


252 


3931 












3952 






.-novE 


TABLE POINTER - EXIT IF DONE 


3933 0370K 






10S: 






3954 0370K 


062702 


000004 




ADD 


#4,R2 


3955 057020 


005712 






TST 


(R2) 


5956 057022 


100401 






Bni 


20$ .-EXIT IF ENTRY MINUS 


3937 037024 


000750 








5$ 


3938 037026 


000410 




20$: 


BR 


200$ ;JLWP OVER TABLE 


3939 
39h0 
















; TA8LE 


OF REGISTER ADDRESSES AND ATA BITS 


3941 037030 






100S: 






3942 037030 


000016 






.WORD 


RMAS 


3943 057052 


000000 






.WORD 




3944 












3945 037034 


000006 






.WORD 


RMDA 


3946 037036 


100000 






.WORD 


ATA 


3947 












3948 C 37040 


000000 






.WORD 


RMCS1 


3949 037042 


000000 




- 


.WORD 




5950 












3951 037044 


}777?7 






.WORD 


-1 ;END OF TABLE 


5952 057046 


000000 






.WORD 


5955 












3954 057050 






200$: 




.-END OF TEST 


3955 












3956 












.••TEST 


107 


P SET ATA TEST 



3957 
3958 
3959 
5960 



3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
5969 
5970 
3971 
3972 
3973 



037050 
057050 
057052 
057054 
057060 
057064 
057070 

057076 
057102 
057102 
057106 
057110 
057112 



057114 
037114 
037122 
057124 
037130 
0571 54 
037140 
037140 
037146 
037154 



000004 
000240 
012706 
015700 
013701 
012737 

012702 

004737 
000402 
104000 
000451 



012760 
011203 
052703 
01 0360 
012703 

012760 
012760 
005303 



TST107: 



001100 
001276 
001466 

000107 001226 

037240 

054450 



041001 000024 

000001 
000000 
000005 

141001 000024 
041001 000024 



10$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 
BR 
EMT 
BR 



fSTACK.SP 
$8ASE.R0 
TSTOUE.Rl 
#107.$TESTN 

*100$.R2 

PC.SETVV 
20$ 

50$ 



.•SCOPE CALL 

;LOAD THE STACK POINTER 

;R0 UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•INITIALIZE TABLE POINTER 

;60 SET VOLUME VALID 
.•BRANCH TO 20$ IF NO ERROR 



.EXECUTE THE COMMAND FROM THE TABLE 
20$: 

MOV *DMD!MUR1DBEN,RMMR1(R0) ;LOAD RMMR1 

MOV (R2).R3 ;GET FUNCTION CODE 

BIS *60.R3 

MOV R3.RMCS1(R0) ;LOAD RMCS1 

MOV #3.R3 

30$: 

MOV *DMD.MUR.DBEN.D6CK.RMMR1(R0) ;LOAD RMMRl 

MOV *DMD.MUR.DBEN.RMMR1 (RO) ;LOAD RMMR1 

DEC R3 



' i " royj "^i rj J/ J' c 1/ J>\L .7 

no? p SET ATA T£sr 



S£Ci 0179 



3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3935 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
AOOO 
4001 



037156 001370 



BNE 



30$ 



037160 
037166 
037174 
037176 
037202 
037210 
037216 
037222 



037224 
037224 
037230 
037232 
037234 
037236 



037240 
037240 
037242 
037244 
037246 



016037 
042737 
001013 
010037 
062737 
012737 
011237 
104233 



000012 
077777 

001136 
000012 
100000 
001174 



001142 
00^142 



001 1 36 
001 14C 



062702 000002 

005712 

100401 

000722 

000403 



000014 
000016 
\77777 



037246 






037246 


000004 




037250 


000240 




037252 


012706 


001100 


037256 


013700 


001276 


037262 


013701 


001466 


037266 


012737 


000110 001226 


4002 






4003 037274 


012702 


037470 


4004 037300 






4005 037300 


004737 


054450 


037304 


00040? 




037306 


104000 




4006 037310 


.000466 





4007 
4008 

4009 037312 

4010 037312 

4011 037316 

4012 037322 
4013 

4014 

4015 037326 

4016 037330 

4017 037334 
40)8 037340 



016203 
052703 
010360 



011204 
052704 
010460 
012705 



000002 
041001 
000024 



000001 
000000 
000002 



.-VZRIFY THAT ATA IS SET 

MOV RMDS(R0).$8DDAT ;ST0R£ RMDS AT $8DDA' 

BIC #*CATA.$8DDAT 

BNE <«0$ 

MOV R0.$8DADR 

ADD #RMDS,$BDADR 

MOV «fATA.$GDDAT 

MOV (R2) ,$TMPO 

EMT 233 

.•ADVANCE TAB^E °0]NTER-EXIT IF DONE 
40$:: 



50$: 



ADD 

TST 

BMI 

BR 

BR 



*2.R2 
(R2) 
50$ 
10$ 
200$ 



.•TABLE OF FUNCTION CODES 
100$: 

.WORD OFFSET 
.WORD RTC 
.WORD -1 

200$: 



.•JUMP OVER TABLE 



.-END OF TABLE 



;*TEST 110 



SET ULE TEST 



TST110: 



10$: 



SCOPE 




NCF 




MOV 


*STACK,SP 


MOV 


$8ASE,R0 


MOV 


TSTQUE.R1 


MOV 


^110.$TESTN 


MOV 


«100$,R2 


r JSR 


PCSETVV 


BR 


20$ 


EMT 




BR 


50$ 



.•SCOPE CALL 

.•LOAD THE STACK POINTER 

;R0 = UNJ8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.-INITIALIZE TABLE POINTER 

;G0 SET VOLUME VALID 
.•BRANCH TO 20$ IF NO ERROR 



.•ENABLE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE 

MOV 2(R2),R3 ;GET WRITE PROTECT FROM TABLE 

BIS *DMD:MUR.DBEN.R3 ;SET OTHER MAINT BITS 

MOV R3.RMMR1(R0) .LOAD RMMR1 

.-LOAD AND EXECUTE THE COMMAND FROM THE TABLE 



MOV (R2),R4 

BIS #G0.R4 

MOV R4.RMCS1(R0) 

MOV *2.R5 



GET FUNCTION CODE FROM TaBLE 
SET GO 
LOAD RMCS1 
R5- CLOCK COUNT 



ZF^MPfiG RW05/3/2 DSKLS TST 1 
TO SET WLE TEST 



4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

40';9 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 



037544 
037350 
037354 
037360 
037364 
037366 



037370 
037376 
037404 
037412 
037414 
037422 
037426 
037434 
037440 
037446 
037450 



037452 
037452 
03^456 
037462 
037464 



052703 
010360 
042703 
010360 
005305 
001366 



016037 
042737 
026237 
001417 
016237 
010057 
062737 
011257 
016257 
104254 
000406 



062702 
005762 
100401 
000705 



100000 
000024 
100000 
000024 



000014 

1 inn 

000004 

000004 
001156 
000014 
001174 
000002 



000006 
000002 



MAC«0 rf04.00 



30S: 



L 14 

4-APR-81 01:24:25 PAGE 13-84 



BIS #[)8CK.R3 

R5.fVWR1(R0) 
BIC #D8CIC.R3 
MOV R3.RHF1R1 (RO) 

DEC R5 
BNE 50S 



.-SET CLOCK 
.•LOAD RMMRI 
.•RESET CLOCK 
.■LOAD RMMRl 

.•ISSUE 2 CLOCKS 



001142 
001142 
001142 

001140 

001156 

001176 



.•VERIFY THAT WRITE LOCK ERROR IS ACCORDING TO TABLE 



MOV RMERKRO^.SBDDAT 

SIC #*CWlE.J8DDAT 

CMP 4(R2).S6DDAT 

BEQ 40$ 

MOV 4(R2),fGDDAT 

MOV R0.$8DAD9 

ADD #RMER1.$8DADR 

MOV (R2).STMP0 

MOV 2(R2).$TMP1 

EMT 234 

BR 50S 



.•STORc RflERl AT S8DDAT 



.•BRANCH IF ULE IS OK 
.SAVE DATA FOR ERROR MSG 



;$TMPO=F UNCTION CODE 
;$TMP1=UR]TE PROTECT 



.-ADVANCE TABLE POINTER TC NEXT FUNCTION CODE -EXIT IF DONE 
40$: 

ADD #6.R2 
TST 2(R2) 
BMI 50$ 

BR 10$ .-REPEAT TEST 



037466 000416 



50$: 



BR 



200$ 



; TABLE OF FUNCTION CODES. 



;JUMP OVER TABLE 
WRITE PROTECT AND WRITE LOCK ERRORS 



037470 


000060 


.WORD 


WD 


.■WRITE DATA COMMAND 


037472 


000010 


.WORD 


MWP 


.■WRITE PROTECT ON 


037474 


004000 


.WORD 


WLE 


; WRITE LOCK ERROR ONE 


037476 


000060 


.WORD 


WD 


.-WRITE DATA COMMAND 


037500 


000000 


.WORD 




;MWP OFF 


037502 


000000 


.WORD 




;WLE OFF 


037504 


000070 


.WORD 


RD 


;READ DATA COMMAND 


057506 


000010 


.WORD 


MWP 


;MWP ON 


057510 


000000 


.WORD 




;WLE OFF 


057512 


000020 


,WORD 


RIP 


.-READ IN PRESET COMMAND 


057514 


000010 


.WORD 


MWP 


;MWP ON 


057516 


000000 


.WORD 




;WLE OFF 


037520 


000000 


.WORD 




.-END OF TABLE 


037522 


1 77777 


.WORD 


-1 





037524 



037524 



200$: 



;END OF TEST 



■••***»*•♦♦•***»*****♦■»»***♦***»***••*»*****•»•**•**•••*»*•• 



;*TEST 111 



EXCEPTION TEST 



•••••••»*»»*»«••»*••*»**»»»•»»*»»*•**»••♦•••*»•*•*•»»*•*•***» 

tSTlll: 



CZRMPBO RM05/5/2 DSiCLS TST 1 
"in EXCEPTION TEST 



n u 



•WCRO V04.00 4-APR-81 01:24:ir5 PAGE 13-85 



4072 
'.073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4086 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 



4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 

4109 
4110 
4111 
4112 
4113 
4114 
4115 

4116 

An7 



C37524 
057526 
037530 
057534 
037540 
037544 



000004 
000240 
012706 
013700 
013701 
012737 



037556 
037556 
037562 
037570 
037576 
037600 
037604 
037612 
037616 
037620 
037620 
037624 
037626 
037630 



037632 
037632 
037640 
037646 
037654 
037662 
03'666 
037666 
037674 
037702 
037704 



037706 
037712 
037720 
037724 
037724 
037732 



004737 
016037 
042737 
001410 
010037 
062737 
005037 
104235 

004737 
000402 
104000 
000474 



012760 
012760 
012760 
012760 
012703 

012760 
012760 
U05303 
001370 



011260 
012737 
004777 

016037 
042737 



001100 
001276 
001466 
000111 



C37552 012702 040024 



054674 
000024 
167777 

001136 
000024 
001140 



054450 



000000 
000000 
041001 
000061 
000002 

141001 
041001 



000014 
000200 
141612 

000024 
167777 



SEO 0181 



001226 



SCOPE 
NOP 
MOV 
MOV 

mv 

MOV 



#STACK.SP 
S8ASE.ro 
TST0UE.R1 
#in.fTESTN 



.•SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DEVICE 

.•SET TEST NUMBER IN APT IIAIL BOX 



WITH OCCUPIED SET. EACH OF THE FOLLOWING ERRORS SHOULD "AUSE AN 
EXCEPTION: 

PAR, IF RUN AND GO IS SET 
RMR. IF RUN AND GO IS SET 
ILR. IF RUN AND GO IS SE* 

DCK 
HCE 
HCRC 
FER 
OP I 



MOV 



*100$.R2 



.•INITIALIZE TABLE POINTER 



001142 
001142 



001136 



.•INITIALIZE AND VERIFY THAT EXCEPTION IS RESET 
10$: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV RMMRMR0).$8DDAT ;ST0RE RMMRI AT $8DDAT 

BIC **CREX,JSDDAT 

BEQ 20$ .-BRANCH IF EXCEPTION IS 0 

MOV R0.$8DADR 

ADD *RMMR1.$8DADR 

CLR $GDDAT 

EMT 235 



20$: 



JSR 
BR 
EMT 
BR 



PC.SETVV 
30$ 

60$ 



;G0 SET VOLUME VALID 
.•BRANCH TO 30$ IF NO ERROR 



00000b 
000034 
000024 
000000 



000024 
000024 



001534 



001142 
001142 



;EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED. RUN AND GO 
^0$: 

MOV *O.RMDA(RO) ;LOAD RMDA 

MOV #O.RMDC(RO) .-LOAD RMDC 

MOV *DMD.'MURIDBEN, RMMRI (RO) ;LOAD RMMRI 

MOV ffWD.'GO.RMCSKRC) ;LOAD RMCS1 

MOV *2.R3 

40$: 

MOV #DMD!MUR!DBEN!D8CK. RMMRI (RO) ;l0AD RMMRI 

MOV #DMD!MUR!DBEN, RMMRI (RO) ;LOAD RMMRI 

DEC R3 

BNE 40$ .-ISSUE 2 CLOCKS 

;LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET 



45$: 



MOV (R2).RMER1(R0) 

MOV #200, WATCH 

JSR PC.aCLOCK 

MOV RMMRI (R0).$8DDAT 

BIC **CREX,$8DDAT 



LOAD RMER1 
SET WATCHDOG TIMER VALUE 
START THE CLOCK 

.•STORE RMMRI AT SBDDAT 



CZRMPBO 

'in 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4(31 

4132 

4153 

4134 

4135 

4136 

4137 

^.158 

4139 

4140 

^,141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 



RM05/3/2 DSKLS TST 1 
EXCEPTION TEST 



MACRO V04.00 



N U 

4-APR-81 01:24:25 PAGE 13-86 



SEO 0>3? 



037740 
037742 
037746 
037750 
037754 
037762 
037766 
037774 
040000 
040002 



040004 
040004 
040010 
040014 
040016 
040020 
040022 



040024 
040024 

040026 
040030 



001021 
005737 
001366 
004777 
012737 
010037 
062737 
011237 
104236 
000407 



004777 
062702 
005712 
001401 
000656 
000402 



001534 

141564 
010000 
001136 
000024 
001174 



141530 
000002 



000004 
000000 



4152 
4153 
4154 
4155 
4156 
4157 
4158 
41S9 
4160 
4161 
4162 



040072 
040072 
040100 
040106 
040114 



040122 
040' 26 



012760 
012760 
012760 
012760 



041001 
000000 
000000 
000007 



001 140 
001136 



BNE 50$ 

TST WATCH 

BiyiE 45S 

JSR PC.aSTOPCL 

nOV #REX,SGDDAT 

nOV RO.SBDADR 

ADD (TRMMRl ,$8DADR 

MOV (R2).fTMP0 

EMT 236 

BR 60S 



HAS CLOCK EXPIRED ?? 

NO - TAKE ANOTHER SAMPLE 

STOP THE CLOCK 



.•ADVANCE TABLE POINTER-EXIT IF DONE 
50$: 

PC.aSTOPCL 
*2.R2 
(R2) 
60$ 
10$ 
200$ 



60$: 



JSR 

ADD 

TST 

BEQ 

BR 

BR 



;STOP THE CLOCK 



;JUMP OVER TABLE 



PRESENTLY. THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE 
TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF 
A HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR 
REGISTER 1 WITH GO SET. 
100$: 

.WORD RMR ;RMR IS CAUSED BY HARDWARE 



200$: 



.WORD 



;£ND OF TABLE 
;END OF TEST 



••**•»*******♦**»*•*»****»****»*********•»•*******«*****♦*******» 



;*TEST 112 



RECALIBRATE TEST 



*************************************************************** 



040030 






040030 


000004 




040032 


000240 




040034 


012706 


001100 


040040 


013700 


001276 


040044 


013701 


001466 


040050 


012737 


000112 001226 


4149 






4150 040056 


004737 


054450 


• 040062 


000403 




040064 


104000 
000137 




4151 040066 


041364 



TST112: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 
BR 
EMT 
JMP 



*STACK.SP 
$8ASE,R0 
TSTQUE,R1 
#112,$TESTN 

PCSETVV 
10$ 

330$ 



.-SCO^E CALL 

;LOAD THE STACK POINTER 

;R0 - UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

;G0 SET VOLUME VALID 
.•BRANCH TO 10$ IF NO ERROR 



000024 
000014 
000042 
000000 



012702 000002 



.•ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
10$: 

MOV #DMD.'MUR!DBEN.RMMR1(R0) ;L0AD RMMR1 

MOV <fO,RMER1 (RO) ;LOAD RMERl 

MOV *0.RMER2(R0) .-LOAD RMER2 

MOV *RECAL.GO,RMCS1(R0) ;LOAD RMCS1 

.•STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS) 
MOV *2.R2 

20$: 



'^V ^<ECALI8«ATE TEST 



9 

PAGE 



15 

13-87 



SCO 0185 



4^65 
4164 

4166 
4167 
4168 
4U,9 
4170 

417' 
4V? 
O '3 
41 74 
4175 
4176 
4177 
4178 
4179 
4180 
<.181 
4183 
4183 
4184 
4185 
4186 
4187 
4188 



4189 

4190 

4191 

4192 

4193 

4194 

4195 

41% 

4197 

4198 

4199 

4?00 

4201 

4202 

4205 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 
4213 



040126 
040134 
040142 
040144 



040146 
040154 
040160 
040160 
040166 
0401 74 
0401 76 



040200 
040206 
040214 
040216 
C40224 
040230 
040236 



040246 
04C246 
040252 
040254 
040256 



040262 
040262 
040270 
040276 
040304 



040512 
040516 
040316 
040324 
040332 
040334 



012760 
012760 
005302 
001570 



012760 
012702 

012760 
012760 
005502 
001570 



016037 
042737 
001011 
012757 
010057 
062757 
104241 



141001 
041001 



040001 
000002 

140001 
040001 



000014 
157777 

020000 
001156 
000014 



000024 
000024 



000024 



000024 
000024 



001142 
001142 

001140 

001136 



IWV •WDfHURlDBENJDeCK.RWRKRO) .LOAD 

nov #DnD!nuR:oeEN,RmRi(RO} :loao rmwi 

DEC R2 

BNE 20% 

;DROP UNIT READr AM) STEP COffMND SEQUENCER (2 CLOCKS) 

MOV WWD.DBEN.RWRKRO) ;LOAD R^f•^1 

MOV *2.R2 

30S: 

nov 4rD.'<tt):DBEN!D6CK.RnnR1 (RO) :LOAD RITIRI 



040240 012757 040246 001124 40$: 



nov #Dm.'DBEN,RmR1(R0} 

DEC R2 

BNE 30$ 

.-VERIFY THAT OPI IS SET 

MOV R«ER1{R0),$8DDAT 

BIC #*C0PI.$8DDAT 

BNE 40$ 

MOV #0P1.$6DDAT 

nov R0.$8DADR 

ADD 4rRnER1 .$eDADR 

E«T 241 

nov <r50$.$LPERR 



.•LOAD RMWRI 



; STORE RMER1 AT $8DDAT 



: CHANGE LOOP ON ERROR ADDRESS 



040344 
040350 
040350 
040356 
040364 
040366 



.VERIfV THAT RECALIBRATE ABORTS DURING EXECUTION 
50$: 

004737 054450 JSR PC.SETVV ;G0 SET VOLUME VALID 

000403 BR 60$ .-BRANCH TO 60$ IF NO ERROR 
104000 EMT 

000137 041364 JMP 330$ 

.ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
60$: 

012760 041001 000024 MOV *DMDinUR!DBEN,RMMR1 (RO) ;LOAD RMrtRi 

012760 000000 000014 noV xrO.RMERKRO) ;LOAD RMER1 

012760 000000 000042 MOV #0.RMER2(R0) .-LOAD RMER2 

012760 OOC307 000000 nOV #RECAL IG0.RMCS1 (RO) ;L0AD RMCS1 

.STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 

MOV #3.R2 

70$: 

012760 141001 000024 MOV /TDMDfMURlOBENlDBCK.RMMRI (RO) ;LOAD RMMR1 

012760 041001 000024 MOV #W>«>.'MUR1DBEN.RMMR1 (RO) ;LOAD RMMR1 

005302 DEC R2 

001370 BNE 70$ 

.•SET DRIVE FAULT TO CAUSE ABORT CONDITION 

IWV <fDMD'MUR:DBEN!MDF.RMMR1(R0) ;lOAD RMMRI 

.STEP 2 CLOCKS AND VERIFY GO IS RESET 

MOV #2,R2 

80$: 

012760 141101 000024 MOV #D«D.'^R:DBEN:MDF !D8CK.RMMRUftO) ;LOAD RMMR1 

012760 041101 000024 MOV #DMD:MUR:DBEN.MDF.RMMR1 (RO) ;LOAD RMMR1 

005302 DEC R2 

001 370 BNE 80$ 



012702 000003 



040336 012760 041101 000024 



012702 000002 



ZH^O «M05/5/2 DSKLS TST 1 
'1'? f»ECALl8«ATE TEST 



4?15 

A?17 
4218 
4219 
4?20 
4221 
4222 
4223 
4224 
4225 
4226 



4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 



4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 



040370 
040376 
040404 
040406 
040412 
040416 



040426 
040426 
040432 
040434 
040436 



040442 
040442 
040450 
040456 
040464 



040472 
040476 
040476 
040504 
040512 
040514 



040516 
040524 
040532 
040534 
040540 
040546 
040554 



040564 
040564 
040570 
040572 
040574 



040600 
040600 
040606 
040614 
040622 



016037 
042737 
001405 
010037 
005037 
104242 



000000 
1 77776 

001136 
001140 



•WC»»0 rf04.00 



001142 
001142 



040420 012737 040426 001124 90$- 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 



054450 
041364 



041001 
OCOOOO 
000000 
000007 



012702 000017 



012760 
012760 
005302 
001370 



016037 
042737 
001011 
010037 
062737 
012737 
104243 



141001 
041001 



000014 
157777 

001136 
000014 
020000 



000024 
000014 
000042 
000000 



000024 
000024 



00(142 
001142 



001 1 36 
001140 



C 15 

4-APR-81 01:24:25 PAGE 13-88 



P10V RMCS1(R0).$80DAT 

BIC #*C60.$80DAT 

BEO 90$ 

MOV R0.$8DA0R 

CLR S6D0AT 

EMT 242 

MOV *100S.$LPERR 



SEO 0184 



.-STORE RMCS1 A^ SSDDAT 



CHANGE LOOP ON ERROR ADDRESS 



.•VERIfV OPI SETS ir ON CYLINDER LATCH DOESNT CLEAR 
100S: 

JSR PC.SETVV ;60 SET VOLUME VALID 

BR 1101 .-BRANCH TO 110$ IF NO ERROR 

EMT 

JW> 330$ 

.-ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
110$: 

MOV #DMD:MUR.DBEN.RMMR1 (R0> .-LOAD RMMftI 

MOV /irO.RMERKRO) ;LOAD RMER1 

MOV <f0.RMER2(R0) ;LOAD RMER2 

MOV /IfRECALiGO.RMtSKRO) ;LOAD RMCS1 

;STEP THE COMMAND SEQUENCER 

MOV *15..R2 

120$: 

MOV WMD.'MURIDBEN.DBCK.RMMRI (RO) ;LOAD RMMR1 

MOV /lfDMD!MUR!DBEN,RMMRl(RO) ;LOAD RMMRl 

DEC R2 

BNE 120$ 



.-VERIFY THAT OPI IS SET 



MOV 
BIC 
BNE 
MOV 
ADD 
MOV 
EMT 



.-STORE RMER1 AT $6DDAT 



040556 012737 040564 001124 130$: MOV 



RMER1(R0).IBDDAT 
**C0PI,$8DDAT 
130$ 

R0.$8DADR 
*RMER1 .$8DADR 
ffOPI.$GDDAT 
243 

Xf150$,5LPERR .CHANGE LOOP ON ERROR ADDRESS 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 



054450 
041364 



041401 
000000 
000000 
000007 



000024 
000014 
000042 
000000 



.-VERIFY ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS) 
150$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 160$ .-BRANCH TO 160$ IF NO ERROR 

EMT 

330$ 

.ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
160$: 

MOV #DMD!MUR1DBEN!MOC.RMMR1(RO) ;L0AD RMMRl 

MOV ffO.RMERKRO) ;LOAD RMER1 

MOV *0,RMER2(R0) ;LOAD RMER2 

MOV *RECAL!60.RMCS1(RO) .'LOAD RMCS1 

.-STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 



ZRMP80 

A 268 
4269 

4270 
4271 
4272 
4273 
k27U 

i,277 
i.27Z 
t,279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 



4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 



RM05/3/2 DSKLS TST 
RECALIBRATE TEST 
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SEQ 0185 



040630 
040634 
040634 
040642 
040650 
040652 



040654 
040662 



040670 
040674 
040674 
040702 
040710 
040712 



04071 

040722 

040730 

040732 

040740 

040744 

040752 



012702 000015 



040762 
040762 
040766 
040770 
040772 



040774 
040774 
041002 
041010 
041016 



041024 
041030 
041030 
041036 
041044 
041046 



012760 
012760 
005302 
001 370 



012760 
012760 



141401 000024 
041401 000024 



041001 000024 
041401 000024 



70S: 



nov 

MOV 
MOV 

DEC 
BNE 



#13., R2 



WMD.'MURIDBEN.'DBCK.'MOCRMMRKRO) ;LOAD RWIR1 

♦OMDJMURIDBEN.'MOC.RMMRKRO) ;L0A0 RMMR1 

R2 

170$ 



012702 000003 



012760 
012760 
005302 
001370 



016037 
042737 
001011 
012737 
010037 
062737 
104244 



141401 000024 
041401 000024 



000012 001142 

077777 001142 

100000 001140 
001136 

000012 001136 



;DR0P ON CYLINDER TO RESET LATCH. THEN SET ON CYLINDER 
MOV /irDMDIMURiDBEN.RMMRKRO) ;LOAD RW1 
MOV #D,''1D.'MUR!D8EN!M0C,Rrt1R1 (RO) ;LOAD RMMR1 

.STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
MOV *3.ft2 

180$: 

MOV *DMD!MUR!D8EN:M0C.D8CK,RMMR1 (RO) .LOAD RMMRl 

MOV WMD!MUR!DBEN!MOC. RMMRl (RO) ;LOAD RMMRl 
DEC R2 



BNE 



180$ 



.•VERIFY ATA IS SET 
MOV 
BIC 
BNE 
MOV 
MOV 
ADD 
EMT 



RMDS(R0).$8DDAT ; STORE RMDS AT $8DDAT 
#*CATA.$8DDAT 
190$ 

*ATA,$GDDAT 
RO.$eDADR 
#RMDS,$6DADR 

244 



040754 012737 040762 001124 190$: MOV 



#200$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



004737 
000402 
104000 
000574 



012760 
012760 
012760 
012760 



054450 



041401 
000000 
000000 
000007 



01 27u2 000015 



012760 
012760 
005302 
001370 



1414C1 
041401 



000024 
000014 
000042 
000000 



000024 
000024 



041050 012760 



041056 012702 



041001 000024 
000007 



.■VERIFY THAT RECALJBRATb ABORTS AFTER EXECUTION DURING WAIT LOOP 
200$: 

JSR PC.SETVV ;60 SET VOLUME VALID 

BR 210$ .-BRANCH TO 210$ IF NO ERROR 

EMT 

BR 330$ 

.•ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
210$: 

MOV *DMDlMUR:DBEN!MOC,RmRl (RO) ;LOAD RMMRl 

MOV #0.RMER1(R0) ;LOAD RMER1 

MOV /ir0.RMER2(R0) ;LOAD RMER2 

MOV #RECAL:GO,RMCS1(RO) .-LOAD RMCSl 

.•STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
MOV #13., R2 

220$: 

MOV #DMD.MUR1DBEN!M0C.'D8CK,RMMR1(R0) .-LOAD RMMRl 

MOV #DMD. MUR!DBEN!MOC. RMMRl (RO) ;LOAD RMMRl 
DEC R2 
BNE 220$ 

.•DROP ON CYLINDER TO RESET LATCH. LEAVE ON CYLINDER 0 
MOV #DMD IMURIDBEN, RMMRl (RO) ;LOAD RMMRl 

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
MOV #7.R2 



ZRMP80 DSKLS TST 1 

RECALIBRATE TEST 



E 15 
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SEO 0186 



U122 

4325 
4526 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 

4338 
4339 
4340 
4341 

4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 



4357 
4358 
4359 
4360 
4361 
4?62 
4363 
4364 
4365 
4366 
4367 
4368 

4369 
4370 
4371 
4572 

4373 



041062 
041062 
041070 
041076 
041100 



041102 
041110 
041116 
041120 
041126 
041132 



041134 
041134 



041 142 
041146 
041146 
041154 
041162 
041164 
041166 
041174 
041202 
041204 
041210 
041214 



041224 
041224 
041230 
041232 
041234 



041236 
041236 
041244 
041252 
041260 
041266 



041272 
041272 
041300 
041306 
0413^2 
041314 
041320 



012760 
012760 
005302 
001370 



0.6037 
042737 
001006 
012737 
010037 
104245 



141001 
041001 



000000 
177776 

000001 
001136 



000024 
000024 



001142 
001142 

001140 



012760 041201 000024 



012702 000003 



012760 
012760 
005302 
001370 
016037 
042737 
001405 
010037 
005037 
104246 



141201 
041201 



000000 
1 77776 

001136 
001140 



000024 
000024 



001142 
001142 



004737 
000402 
104000 
000453 



012760 
012760 
012760 
012760 
012702 



016037 
042737 
021237 
001411 
011237 
010037 



054450 



041401 
000000 
000000 
000007 
041 366 



000040 
150000 
001142 

001140 
001136 



000024 
000014 
000042 
000000 



001142 
001142 



230S: 



MOV «f>nDinUR![)BENlDeCK.Rrt1R1(R0} :L0AD RfTIRl 

nOV «DnD!nUR!DeEN.RmR1(R0) .-LOAD RMMRl 

DEC R2 

BNE 230S 



.-VERIFY THAT GO IS STILL SET 

MOV RMCS1(R0).$8DDAT 

BIC #*CG0,$B0DAT 

BNE 240$ 

MOV ffGO.SGDDAT 

MOV R0.J8DADR 

EMT 245 



;SET SEEK INCOMPLETE ERROR 
240$: 

MOV #DMD!MUR.DBEN!MSER.RMMR1 (RO) 



.•STORE RMCS1 AT $8DDAT 



;LOAD RMMR1 



;STtP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 



250$: 



041216 012737 041224 001124 260$: 



MOV #3,R2 

MOV *DMD.'MUR!DBEN!MSER.D8CK.RMMR1 (RO) ;L0AD RMMR1 

MOV *DMD!MUR!DBEN!MSER.RMMR1 (RO) ;LOAD RMMR1 

DEC R2 

BNE 250$ 

MOV RMCS1(R0).$8DDAT .-STORE RMCS1 AT $BDDAT 

BK #"CGO,$BDDAT 

BEQ 260$ 

MOV R0.$6DADR 

CLR $6DDAT 

EMT 246 

MOV Xf300$,$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



.VERIFY THE TAG BUS DURING RECALIBRATE 
300$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 310$ .-BRANCH TO 310$ IF NO ERROR 

EMT 

BR 330$ 

.-ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
310$: 

MOV *DMDIMUR!D8EN!MOC,RMMRl(R0) ;L0AD RMMR1 

MOV #0,RMER1(R0) ;LOAD RMERl 

MOV #0.RMER2(R0) ;LOAD RMER2 

MOV *RECAL.G0,RMCS1(R0) ;LOAD RMCS1 

MOV #400$. R2 .-INITIALIZE TABLE POINTER 



•VERIFY TAG BUS ACCORDING TO TABLE 
^15$: 

MOV RMMR2(R0).$8DDAT 

BIC *RQA!RQB1TST,$BDDAT 

CMP (R2).$BDDAT 

BEQ 320$ 

MOV (R2), $GDDAT 

MOV R0.$8DADR 



.•STORE RMMR2 AT $BDDAT 



/RMPBO RMOS/?/? OSKLS TST 
1'? RECALIBRATE TEST 



r 15 
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S£0 0187 



4 574, 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4385 

4384 

4335 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4598 

4 599 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 



041324 
041332 
041334 



041336 
041336 
041342 
041544 



041346 
041354 
041362 
041364 



062737 000040 

104247 

000413 



062702 000002 

005712 

100407 



012760 151001 
012760 041401 
000743 
000416 



001136 



ADD 4rRnnR2,tBDADR 

EMT 247 
BR 330S 



.-ADVAMCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
320$: 

ADD #2,R2 

TST {R2) 

BMI 330$ .-EXIT IF ENTRY NEGATIVF 

;STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
000024 MOV *DMD!D8EN1MUR:MOv;D8CK,RMMR1(R0) .-load RM1R1 

000024 MOV #DMD!DBEN!MUR;MOC.RMMR1(RO) ;L0AD RMMRI 

BR 315$ 

330$: BR 500$ ;JUMP OVER TABLE 







.-TABLE 


OF TAG 


BUS CONTROL AND BIT 


VALUES 


041566 




400$: 








041566 


001777 




.UORD 


1 777 


BUS BITS AT HIGH IMPEDANCE STATE 


041370 


001777 




.WORD 


1777 




041372 


006100 




.WORD 


CC!CHIB806 


CONTROL BITS ENABLED. BIT 6 ON 


041374 


006100 




.WORD 


CC.'CH!B806 




041376 


026100 




.WORD 


TAG1CC!CH:B806 ; 


TAG COMES ON 


041400 


026100 




.WORD 


TAG!CC:CH!BB06 




041402 


026100 




.WORD 


TAG.CC!CH!B806 




041404 


026100 




.WORD 


TAG.'CC!CH.B806 




041406 


026100 




.WORD 


TAG!CC!CHIBB06 




041410 


026100 




.WORD 


TAG.CC!CH!BB06 




041412 


006100 




.WORD 


CC.'CH:BB06 ; 


TAG GOES OFF 


041414 


006100 




.WORD 


CC!CH!BB06 




041416 


001777 




.WORD 


1777 


CONTROL BITS DISABLED 


041420 


-[77777 




.WORD 


-1 


END OF TABLE 


041422 




500$: 






END OF TEST 






••»»•*»»»♦*»*♦•»*»»*****♦*•*•*«****♦****•***»******♦*•****•»*»»** 






;*TEST 


113 


SEEK TEST 





4411 
4412 
4413 
4414 



4415 
4416 
4417 
4418 



041422 
041422 
041424 
041426 
041432 
041436 
041442 



041450 
041454 
041456 
041460 



000004 
000240 
012706 
01 3700 
013701 
012737 



004737 
000403 
104000 
000137 



001100 
001276 
001466 
000113 



054450 
043100 



••»•»*»***»**♦*•**»»»♦♦*♦*»»»******»************************«•"** 

TST113: 

SCOPE .-SCOPE CALL 
NOP 

MOV *STACK,SP .-LOAD THE STACK POINTER 

MOV $8ASE.R0 ;R0 = UNJBUS ADDRESS 

MOV TST0UE.R1 ;R1 = POINTER TO DEVICE 

001226 MOV /(rn3,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

.-VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 



JSR PC.SETVV 

BR 10$ 
EMT 

JMP 330$ 



;G0 SET VOLUME VALID 
.-BRANCH TO 10$ IF NO ERROR 



.■ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR 
.-ADDRESS. AND LOAD SEEK COMMAND 



''5 SEEK TEST 



6 IS 
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SEO 0188 



iC19 

U21 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 

4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 

4438 
4439 
4440 
4441 
4442 
444 3 
4444 
4445 
4446 
444/ 
444» 
4449 
44S0 
4451 
4452 
4453 
4454 
4455 



4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 



041464 
041464 
041472 
041500 
041506 
041514 
041522 



041530 
041534 
041534 
041542 
041550 
041552 



041554 
041562 
04 1566 
041566 
041574 
041602 
041604 



041606 
041614 
041622 
041624 
041632 
041636 
041644 



041654 
041654 
041660 
041662 
041664 



041670 
041670 
041676 
041704 
041712 
041720 
041726 



041734 
041740 
041740 



012760 
012760 
012760 
012760 
012760 
012760 



04 1001 
OOOOOC 
000000 
000000 
000000 
000005 



012702 000002 



012760 
012760 
005302 
001370 



012760 
012702 

012760 
012760 
005302 
001370 



016037 
042737 
001011 
012737 
010037 
062737 
104250 



141001 
041001 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



040001 000024 
000002 

140001 000024 

040001 000024 



000014 001142 

157777 001142 

020000 001140 
001136 

000014 001136 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



012702 
012760 



054450 
043100 



041001 
000000 
000000 
000000 
000000 
000005 



000003 
141001 



000024 
000006 
000034 
000014 
000042 
000000 



000024 



10S: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



WMDlMUR'.DBEN.RfWKRO) ;L0AD RMMftl 



#0,RMOA(RO) 
#0,RMDC(RO) 
#0.RMER1 (RO) 
#0.RMER2(R0> 



#SEEK!GO,RnCS1(R0) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RnER2 



.-LOAD RMCS1 



;STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS) 
MOV *2.R2 

20$: 

MOV #DMD!MUR!DBEN!D8CK,RMMR1CR0) ;LOAD RMMRl 
MOV #DMD!MUR:D8EN.RMMR1(R0) .-LOAD RMMR1 
DEC R2 
BNE 20$ 

;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
MOV #DMD.D8EN.RMMR1 (RO) ;LOAD RMMRl 

MOV *2.R2 

30$: 

MOV #DMD.D8EN.D8CK,RMMftl (RO) ;L0AD RMi'^R'' 



041646 012737 041654 001124 40$: 



MOV *DMD.D8EN.RMMR1 (RO) 

DEC R2 

BNE 30$ 

; VERIFY THAT OPI IS SET 

MOV RMER1 (RO).$eDDAT 

81 C #*C0PI.$8DDAT 

BNE 40$ 

MOV *OPI,$GDDAT 

MOV R0.$8DADR 

ADD /(rRMER1.$8DADR 

EMT 250 

MOV *50$.$LPERR 



;L0AD RMMRl 



.-STORE RMER1 AT $RDDAT 



; CHANGE LOOP ON ERROR ADDRESS 



.VERIFY THAT SEEK ABORTS DURING EXECUTION 
50$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 60$ ;8RANCH TO 60$ IF NO ERROR 

EMT 

JMP 330$ 

; ENABLE DEBUG CLOCK, LOAD CYLINDER. TRACK AND SECTOR 

.•ADDRESS, AND LOAD SEEK COMMAND 

60$: 

MOV #DMD!MUR!DBEN,RMMR1(R0) ;L0AD RMMRl 



MOV 
MOV 
MOV 
MOV 
MOV 



*O.RMDA(RO) 
#O.RMDC(RO) 
#0,RMER1 (RO) 
*0.RMER2(R0) 



<fS£EK!GO,RMCS1(R0) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



.•LOAD RMCS1 



.■STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
MOV #3,R2 

70$: 

MOV *DMD. MUR'.DBEN.DBCK, RMMRl (PO) ;LOAD RMMRl 



?P*1PB0 RM05/5/2 DSKLS 
^'5 SEtK. TEST 



H 15 

TST ' HAC«0 VOA.OO 4-iWR-81 01:?4:?5 PAGE 15-95 



SEQ 0189 



uu,72 

4476 
4477 
4478 
4479 
4480 
4481 

4432 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4495 
4494 
4495 
4496 



4497 
4498 
4499 
4500 
4501 
4502 
4505 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4525 
45.'4 
4S25 



041746 
041754 
041756 



012760 
005302 
001570 



04100'' 000024 



041760 012760 041101 000024 



041766 
041772 
041772 
042000 
042006 
042010 
042012 
042020 
042026 
042030 
042034 
C42040 



042050 
042050 
042054 
042056 
042060 



042064 
042064 
042072 
042^00 
042106 
042114 
042122 



042130 
042134 
0421 34 
042142 
042150 
042152 



042154 
042162 
042170 
042172 
042176 
042204 
042212 



012702 000002 



012760 
012760 
005302 
001 370 
016037 
042737 
001405 
010037 
005037 
104251 



141101 
041101 



000000 
177776 

001 1 36 
001140 



000024 
000024 



001142 
001142 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



012702 

012760 
012760 
005302 
001570 



016057 
042757 
001011 
010037 
062737 
012737 
104252 



054450 
043100 



041001 
000000 
000000 
000000 
000000 
000005 



000017 

141001 
04 1 001 



000014 
157777 

001156 
000014 
020000 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



00r42 
001142 



001136 
001140 



HOV iTDMDIMUR.DBEN.RWRKRO) ;L0AD R»«R1 
DEC R2 
6NE 70t 



;SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD!»lUR:DBEN.WDF.RinR1 (RO) 

.-STEP 2 CLOCKS AND VERIFY GO IS RESET 



.•LOAD RM1R1 



80$: 



042042 012737 042050 001124 90$: 



nov 

MOV 
MOV 

DEC 
BNE 
MOV 
BIC 
BEQ 
MOV 
CLR 
EMT 

MOV 



#2,R2 



*DMDiMUR!DBEN:MDF .D8CK,RMMR1 (RO) ;L0AD RMMR1 

#DMD!MUR:DBEN.MDF.RMMR1 (RO) .-LOAD RMMR1 

R2 

80$ 

RMCS1(R0).$8DDAT .STORE RMCSl AT $8DDAT 

**CG0.$BDDAT 

90$ 

R0.$8DADR 

$GDDAT 

251 



*100$.$LPERR 



; CHANGE LOOP ON ERROR ADDRESS 



.•VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 
100$: 

JSR PC.SETVV ;60 SET VOLUME VALID 

BR 110$ .-BRANCH TO 110$ IF NO ERROR 

EMT 

JMP 330$ 

.-ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR 

.ADDRESS. AND LOAD SEEK COMMAND 

110$: 

*DMDiMURIDBEN,RMMRl (RO) ;LOAD RMMR1 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



*O.RMDA(RO) 
*O.RMDC(RO) 
*0.RMER1(R0) 
*0.RMER2(R0) 



#SEEK1 GO. RMCSl (RO) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



.-LOAD RMCSl 



.-STEP THE COMMAND SEQUENCER 

MOV *15..R2 

'20$: 

MOV *DMDIMUR!D8EN!D8CK.RMMR1 (RO) .-LOAD RMMR1 

MOV *DMD.'MUR!DBEN.RMMR1(R0) ;LOAD RMMR1 

DEC R2 

BNE 120$ 



.-VERIFY THAT OPI IS SET 

MOV RMER1(R0).$8DDAT 

BIC #*COPI.$BDDAT 

BNE 1 30$ 

MOV R0.$8DADR 

ADD #RMER1 ,$BDADR 

MOV /!rOPI.$GDDAT 

EMT 252 



; STORE RMERl AT $BDDAT 



''5 SEEK TEST 



•WC«0 V04.00 



I 15 
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SEQ 0190 



4526 

45?8 
4529 
4550 



4551 
4532 
4553 
4534 
4555 
4556 
i.557 
4538 
4559 
4540 
4541 
4542 
4543 
4544 
4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

455<. 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 



4576 
4577 



042214 012737 04222? 001124 130$: WV 



042222 
042222 
042226 
042250 
042232 



042236 
042256 
042244 
042252 
042260 
042266 
042274 



042302 
042506 
042506 
042514 
042322 
042324 



042526 
042534 



042342 
042346 
042546 
042354 
042562 
042364 



042454 
042434 
042440 
042442 
042444 



4r150S.SLPERR .-CHANGE LOOP ON ERROR ADDRESS 



004737 
000405 
104000 
000157 



012760 
012760 
012760 
012760 
012760 
012760 



054450 



045100 



041401 

000000 
000000 
000000 
000000 
000005 



012702 000015 



012760 
012760 
005302 
001370 



012760 
012760 



141401 
041401 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



.-VERIFY ATA SETS If DRIVE COMPLETES SEEK (ON CYLINDER SETS) 
I50t: 

JSR PC.SETW ;G0 SET VOLUME VALID 

BR 160$ .-BRANCH TO 160$ IF NO ERROR 

EMT 

JMP 330$ 

.ENABLE DEBUG CLOC^. LOAD CYLINDER. TRACK AND SECTOR 

.-ADDRESS. AND LOAD SEEK COMMAND 

160$: 

MOV *DMDIMUR1DBENIM0C.RMMR1 (RO) ;L0AD RMMR1 



MOV 
MOV 
MOV 
MOV 
MOV 



*0.RMDA(RO> 
*O.RMDC(RO) 
*0.RMER1(R0) 
*0.RMER2(R0) 



*SEEK!G0,RMCS1(R0) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



.-LOAD RMCS1 



041001 000024 
041401 000024 



012702 000003 



012760 
012760 
005502 
001370 



141401 000024 
04140^ 000024 



042366 


016057 


000012 


001142 


MOV 


042374 


042737 


077777 


001 ■'42 


SIC 


042402 


001011 






BNE 


042404 


012757 


100000 


001140 


MOV 


042412 


010057 


001156 




MOV 


042416 


062757 


000012 


001136 


ADD 


042424 


104255 






EMT 


042426 


012757 


042454 


001124 190$: 


MOV 



004737 054450 

000403 

104000 

000137 043^00 



;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 

MOV *15.,R2 

170$: 

MOV #DMDIMUR!DBEN!D8CKIMOC,RMMR1(R0) ;LOAD RMMR1 

MOV tfDMD.'MUR.DBEN.'MOC.RMMRKRO) ;LOAD RMMR1 

DEC R2 

BNE 1 70$ 

.•DROP ON CYLINDER TO RESET LATCH. THEN SET ON CYLINDER 

MOV *DMDiMUR!DBEN,RMMR1 (RO) ;LOAD RMMR1 

MOV WMD.MURiDBfcN.'MOC.RMMRKRO) .-LOAD RMMR1 

;STEP C(]MMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 

MOV #3.R2 

180$: 

MOV *DMD.MUR.DBEN.M0C.D8CK.RMMR1 (RO) ;L0AD RMMR1 

MOV *DMD!MUR.DBEN!M0C.RMMfi1 (RO) ;LOAD RMMfil 

DEC R2 

BNE 1 80$ 

.•VERIFY ATA IS SET 

RMDS(RO) .$BDDAT .-STORE RMDS AT $BDDAT 
**CATA.$BDDAT 
190$ 

#ATA.$GDDAT 
R0.$6DADR 
#RMDS.$BDADR 

253 

*200$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 

.•VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP 
200$; 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 210$ .-BRANCH TO 210$ IF NO ERROR 

EMT 

JMP 530$ 



ZRMPRC RM05/3/? DSKLS TS^ 
' 3 SEEK TfST 











4579 








4580 042A50 








<.581 0424SO 


012760 


y 1 / Al 

041401 


A A A y 

0Q00<?4 


A582 042456 


012760 


000000 


AAAAAA 

000006 


4583 042464 


012760 


000000 


000054 


4584 


012760 


rtrtAAAA 

000000 


AAAAI y 

000014 


4585 042500 


012760 


rtAAAAA 

000000 


AAAA/ 1 

00004 


4586 042506 
4587 


012760 


AAAAAC 

000005 


AAAAAA 

000000 








4588 








4539 042514 


A 1 7A 

012702 


AAAAi C 

00001 5 




4590 042520 








4591 042520 


012760 


1 y 1 y A1 

141401 


AAAA / 

000024 


4592 0425/:6 


At O^X-A 

012760 


Ay 1 y A1 

041401 


AAAA "i y 

0000c4 


4593 042554 


AA C 7 A 

005502 

/lA^ TTA 

001 570 






4594 042536 






4595 








4596 








4597 042540 


A1 07^A 

012760 


Ay 1 AA4 

04 1 00 1 


AAAA Oy 

0000 1:4 


4598 








4599 








4600 04^546 


A1 "i^AO 


A A AAA 7 

OOUUUy^ 




/ ^A1 A/ "^C C 

4601 04^55^: 








4602 04255^ 


AIT 7^ A 

01 ^/^oU 


1/1 AA1 

141001 


AAAA "5 y 

0000^:4 


y ^AT A/ '^CX.A 

4603 04^560 


A1 T7^A 


Ay 1 AA1 

041001 


AAAA Oy 

000u<:4 


4604 04^^66 


AACTAO 






4605 04^5 rO 


UOI 3^0 






/ ^ A^ 

4606 








460 








4608 QHc^fd 


A1 iL.A77 


AAAAAA 

000000 


AA 1 1 Z. 5 
001 1 4^ 


4oUV 04£6UU 




\ f r f fO 


AAI I/O 

00 1 1 


y 1 A Ay "^^Az. 


UUlOOo 






y 1 1 Ay 1 A 
4611 04t?oi0 




AAAAA1 

OOUOUl 


AA1 1 / A 

001 1 hO 


y ^ 1 o A/ 1 

461c U4^ol6 


A1 AA77 

U IUU5^ 


AA1 1 TiL 

001 1 3o 




y ^ 1 Y Ay ^^^O 
4613 


1 Ay 'DC/ 
1U4^34 






y ^ 1 y 

4614 








y ^ i c 

461 5 








4616 Qhcbd'f 








04^6c4 


A1 '57^ A 
01 £1 60 


Ay 1 "DAI 
041^01 


AAAA 0 / 

0000c4 


461 








y ^ 1 O 

4618 








/ y. 1 A Ay "^^TO 

46 IV U4^65«: 


rtl 57AD 


AAAAAI 

U00003 




y ^ ^A Ay 

40^0 04^636 








Ay OXT^ 


A1 •5 7^A 

0l<:'60 


1 y 1 OA1 
14 1 i:U 1 


AAAAOy 

0000<:4 


y -5 4 /\y "S^y y 

46i:l 04^om4 


A1 D74.A 
OlCfOO 


Ay 1 OA1 

04 1 ^01 


AAAA 0/ 

0000 c 4 


y z. Ay "^^C^ 

46^^ \)Hdby<£ 


A/>C7A? 






y ^ Y Ay C y 
46^3 04?654 


AA1 T7rt 

001 3/^0 






yz.oy i\y O^C^ 
4oc4 U4<r636 


A1 AAT7 


AAAAAA 
000000 


AA1 1 /. 0 

00 1 1 '•c 


y ^ Ay 'id.A.i 

46^5 04<:664 




1 7777^ 
\ f f f ft 


AAi 1 y 0 

001 14<; 




A/M Z. AC 
001405 








A1 AAT7 


AA 1 1 7X, 

UVy 1 1 -^u 




4628 0*.2700 


005037 


001140 




4629 042704 


104255 






4630 








46 51 042706 


012737 


042720 


001124 


4632 042714 


012703 


000001 
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;ENA8LE DEBUG CLOCK. LOAD CYLINDER. TRACK AND SECTOR 
.ADDRESS AND LOAD SEEK COMMAND ' 
21 OS: 

MOV /rDMDlMURIDBENlMOC.RMMRKRO) ;LOAD RMMR1 

MOV #O.RMDA(RO) ;LOAD RMDA 

MOV *O.RMDC{RO) ;LOAD RMDC 

MOV *0.RMER1(R0) ;LOAD RMERl 

MOV #0.RMER2(R0) ;LOAD RMER2 

MOV #SEEK!G0,RMCS1(R0) ;LOAD RMCSl 

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
MOV *13..R2 

220$: 

MOV #DMDiMUR.DBEN;MOC:D8CK.RMMRl(R0) ;LOAD RMMR1 

MOV *DMD!MUR!DBEN.'MOC.RMMR1(RO) .-LOAD RMMR1 
DEC R2 
BNE 220S 

;DR0o ON CYLINDER TO RESET LATCH. LEAVE ON CYLINDER 0 
MOV #DMD!MUR!DBEN.RMMR1(R0) ;LOAD RMMRl 

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 

MOV *7.R2 

230$: 

MOV #DMD. MUR1DBEN.D8CK. RMMRl (RO) ;LOAD RMMRl 

MOV #DMD.MUR.DBEN.RMMR1(R0) ;LOAD RMMRl 

DEC R2 

BNE 230$ 



SEQ 0191 



.•VERIFY THAT GO IS STILL SET 

MOV RMCSl (R0),$8DDAT 

BIC #*CG0.$8DDAT 

BNE 240$ 

MOV #GO,$GDDAT 

MOV RO.SBDADR 

EMT 254 



;SET SEEK INCOMPLETE ERROR 
240$: 

MOV #DMD1MUR!DBEN!MSER, RMMRl (RO) 



.•STORE RMCSl AT SBDDAT 



.•LOAD RMMRl 



.•STEP COMMAND SEQUENCtR AND VERIFY GO RESETS (3 CLOCKS) 



250$: 



260$: 



MOV 

MOV 
MOV 

DEC 
BNE 
MOV 
BIC 
8EQ 
MOV 
CLR 
EMT 

MOV 
MOV 



*3,R2 

*DMD.MUR IDBEN.'MSER.DBCK, RMMRl (RO) ;LOAD RMMRl 

#DMD'MUR!DBEN!MSER. RMMRl (RO) ;LOAD RMMRl 

R2 

250$ 

RMCSl (RO) .SBDDAT ;STORE RMCSl AT SBDDAT 

#*CGO,$BDDAT 

260$ 

RO.SBDADR 

$GDDAT 

255 



*300$.$LPERR 
*1 .R3 



.•CHANGE LOOP ON ERROR ADDRESS 
.•INITIALIZE CYLINDER ADDRESS 



Z«MPBO RM05/5/2 DSKLS TS^ 
"3 SEEK TEST 



K 15 
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SEO 0192 



463? 

4655 
4636 



4637 
4638 
4639 
4640 
4641 
46m2 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

468S 

4686 



042720 
042720 
042724 
042726 
042730 



042732 
042732 
042740 
042746 
042752 
042760 
042766 
0A2774 



043000 
043000 
043006 
043014 
043020 
043024 
043032 
043034 
043040 
043046 
043050 



043052 
043052 
043056 
043060 



043062 
043070 
043076 



043100 
043100 
043102 
043106 
043110 
043112 



043114 
043114 
043116 
043120 
C4 5122 



004737 054450 
000402 
104000 
000463 



012760 
012760 
010360 
012760 
012760 
012760 
012702 



016037 
042737 
011237 
050337 
023737 
001407 
010037 
062737 
104256 
000413 



041401 
000000 
000034 
000000 
000000 
000005 
043114 



000040 
1 50000 
001140 
001140 
001140 

001136 
000040 



062702 000002 

005712 

100407 



012760 151001 
01^760 041401 
000740 



006303 

020327 002000 



103001 
000703 
000416 



001777 
001777 
004000 
004000 



000024 
000006 

000014 

00004? 
000000 



001142 
001142 



001142 
001136 



; VERIFY THE TAG BUS DURING SEEK 
^00$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 310$ .-BRANCH TO 310$ If NO ERROR 

EMT 

BR 330$ 

.-ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR 
.-ADDRESS AND LOAD SEEK COMMAND 
310$: 



315$: 



nUV 


#dmd!mur:dben:moc.rmmri (RO) .-load rmmri 


HUV 


*0,RMDA(RO) 


LOAD RMDA 


nuv 


R3,RMDC(R0) 


LOAD RMDC 


MOV 


*0,RMER1(R0) 


LOAD RMER1 


MOV 


*0.RMER2(R0) 


LOAD RMER2 


MOV 


#SEEK!G0.RMCS1(R0) ;L0AD RMCSI 


MOV 


*400$.R2 


■INITIALIZE TABLE POINTER 


TAG BUS 


ACCORDING TO TABLE AND CYLINDER IN R3 


MOV 


RMMR2(R0),$8DDAT 


.-STORE RMMR2 AT $BDDAT 


BIC 


*R0A:RQB!TST.$8DDAT 


MOV 


(R2).$GDDAT 




BIS 


R3.$GDDAT 


;0R CYLINDER ADDRESS IN 


CMP 


$GDDAT,$BDDAT 


; COMPARE EXPECTED AND RECEIVED 


BEQ 


320$ 


.-BRANCH IF TAG BUS OK 


MOV 


R0.$8DADR 




ADD 


#RMMR2.$6DADR 




EMT 


256 




BR 


330$ 





000024 
000024 



.ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
320$: 

ADO #2.R2 
TST (R2) 

BMI 330$ ;CXIT If ENTRY NEGATIVE 

.-STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 

MOV #DMD1DBEN!MUR!M0V!D8CK. RMMRI (RO) ;L0AD RMMRI 

MOV #DMD.'DBEN:MUR!M0C. RMMRI (RO) .-LOAD RMMRI 
BR 315$ 

.-REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E., 1.2,4 

330$: 

ASL R3 ;SHIFT TO NEXT CYLINDER 

CMP R3,#1024. 



BHIS 340$ 
BR 300$ 
340$; BR 500$ 



EXIT IF WAS DONE 
TEST NEXT CYLINDER 
JUMP OVER TABLE 



;TA8lF Of TAG BUS CONTROL AND BIT VALUES 
'•.00$: 

WORD 1777 .-BUS BITS AT HIGH IMPEDANCE STATE 

.WORD 1777 „ , . 

.WORD CC .-CONTROL BITS ENABLED, BIT 6 ON 

.WOPD CC 



4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
469S 
4696 
4697 
4698 
4699 
4700 
4701 



ftM05/5/2 DSKLS 
SEEK TEST 



TST 



L 15 
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043124 
043126 
043130 
043132 
043134 
043156 
043140 
043142 
043144 



4702 
4703 
4704 
4705 



4 706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 
4722 
4723 
4 724 
4725 
4726 
4727 
4728 

4729 



043150 
C43150 
043152 
043154 
043160 
043164 
043170 



043176 
043202 
043204 
043206 



043212 
043212 
043220 
043226 
043234 
043242 
043250 



043256 
043262 
043262 
043270 
043276 
043300 



043302 
043310 
043314 
043314 
043322 



024000 
024000 
024000 
024000 
024000 
024000 
004000 
004000 
001 777 



043146 ^77777 
043150 



000004 
000240 
012706 
01 3700 
013701 
012737 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



001100 
001276 
001466 
000114 



054450 
045244 



041001 
000000 
000000 
000000 
000000 
000031 



012702 000002 



012760 
012760 
005302 
001370 



012760 
012702 

012760 
012760 



141001 
041001 



040001 
000002 

140001 
040001 



SCO 0193 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



tag:cc 

TAG.'CC 
TAGJCC 
TAG.'CC 

tag:cc 

TAG.'CC 

CC 

cc 

1777 



.WORD -1 



500$: 



;TAG COMES ON 



TAG GOES OFF 
CONTROL BITS DISABLED 
END OF TABLE 
END OF TEST 



001226 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



000024 



000024 
000024 



.••TEST 114 



SEARCH TEST 



TST114: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



ffSTACK.SP 
SBASE^RO 
TSTQUE,R1 
#114.$TESTN 



.•SCOPE CALL 

;LOAD THE STACK POINTER 

;R0 = UNI8US ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 



.•VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 



JSR 
BR 
EMT 
JMP 



PC.SETVV 
10$ 

330$ 



;G0 SET VOLUME VALID 
.•BRANCH TO 10$ IF NO ERROR 



.•ENABLE DEBUG CLOCK. LOAD CYLINDER. TRACK AND SECTOR 

.ADDRESS, AND LOAD SEARCH COMMAND 

10$: 

MOV *DMD.'MUR!DBEN.R«MR1 (RO) ;LOAD RMMRl 



MOV 
MOV 
MOV 
MOV 
MOV 



*0,RMDA(RO) 
*O.RMDC(RO) 
ffO.RMERI (RO) 
*0.RMER2(R0) 



ffSEARCHiGO.RMCSI (RO) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



;LOAD RMCS1 



;STEP C0W1AND SEQUENCER TO SEARCH COM (2 CLOCKS) 

MOV #2.R2 

20$: 

MOV #DMD!MURiDBENfDBCK. RMMRl (RO) ;LOAD RMMRl 

MOV *DMD.MUR.DBEN.RMMR1(R0) ;LOAD RMMRl 

DEC R2 

BNE 20$ 

.-DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 

MOV #DMD!DBEN.RMMR1(R0) ;LOAD RMMRl 

MOV *2.R2 

30$: 

MOV #DMD 'DBEN.DBCK. RMMRl (RO) ; OAD RMMRl 

MOV ffDMD.DBEN.RMMRKRO) .LOAD RMMRl 



^RMPEO RM05/5/2 DSKLS TST 1 
•^'4 SEARCH TEST 



15 

13-98 



A 730 


043550 


005302 








DEC 




043332 


001370 








BNE 


475? 














♦.733 










.-VERIFY 


THAT 


A 734 


043334 


016037 


000014 


001142 




MOV 


4735 


043542 


042737 


157777 


001142 




8IC 


4 736 


043350 


001011 








BNE 


4737 


043352 


012737 


020000 


001140 




MOV 


4738 


043360 


010037 


001136 






MOV 


4 '39 


043364 


062737 


000014 


oon36 




ADO 


4740 


043372 


104257 








EMT 


47«.1 














4742 


043374 


012737 


043402 


001124 


40$: 


MOV 


4743 














4744 










.•VERJFV 


THAT 


4745 


043402 








50$: 




4746 


043402 


004737 


054450 






JSR 



MACRO V04.00 4-APR-81 01:24:25 PAGE 



R2 
30$ 



RMER1 (R0).$8DDAT 

#*C0PI.$8DDAT 

40$ 

#OPI.$GDDAT 
RO,$eDADR 
«rR,'^ERl.$BOADR 
257 

*50$.$LPERR 



SEO 0194 



.•STORE RM^RI AT $8DDAT 



; CHANGE LOOP ON ERROR ADDRESS 



4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 

4773 
4774 
4775 
4776 
4777 
4778 
4779 

4780 
4781 
4/82 
4783 



043406 
043410 
043412 



043416 
043416 
043424 
043432 
043440 
043446 
043454 



043462 
043466 
043466 
043474 
043502 
043504 



000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



045244 



041001 
000000 
000000 
000000 
000000 
000031 



BR 
EMT 
JMP 



PC.SETVV 
60$ 

330$ 



;G0 SET VOLUME VALID 
.-BRANCH TO 60$ IF NO ERROR 



012702 000003 



012760 
012760 
005302 
001 370 



141001 
041001 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



.-ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR 

.•ADDRESS. AND LOAD SEARCH COMMAND 

60$: 

MOV XfDMD.'MUR.'DBEN.RMMRI (RO) ;LOAD RMMR1 
MOV *O.RMDA(RO) .LOAD RMDA 



MOV 
MOV 
MOV 
MOV 



<rO.RMDC(RO) 
<rO.RMER1 (RO) 
*0.RMER2(R0) 



LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



*SEARCH!GO.RMCS1(RO) ;LOAD RMCSl 



.-STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 

MOV *3,R2 

70$: 

MOV /ITDMDlMURlDBEN'DaCK.RMMRKRO) .-LOAD RMMR1 

MOV *DMDIMURIDBEN.RMMR1 (RO) ;LOAD RMMR1 

DEC R2 

BNE 70$ 



043506 012760 041101 000024 



043514 
043520 
043520 
043526 
043534 
043536 
043540 
043546 
043554 
043556 
043562 
043566 



012702 000002 



.-SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV ffDMDIMUR!DBEN!MDF,RMMR1(R0) 

.-STEP 2 CLOCKS AND VERIFY GO IS RESET 
MOV 



;LOAD RMMRl 



012760 
012760 
005302 
001370 
016037 
042737 
001405 
010037 
005037 
104260 



141101 
041101 



000000 
177776 

001136 
001140 



000024 
000024 



001142 
001142 



80$: 



;L0AD RMMRl 
;L0AD RMMRl 



*2.R2 

MOV *DMDIMUR1DBEN!MDF .'DBCK. RMMRl (RO) 
MOV *DMD ! MUR ! DBEN ! MDF . RMMR 1 ( RO ) 
DEC R2 
BNE 80$ 

MOV RMCSl (R0).$BDDAT ;ST0RE RMCSl AT $BDDAT 

BIC **CG0.$8DDAT 

3E0 90$ 

MOV R0,$8DADR 

CLR $GDDAT 

EMT 260 

;(THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED 



rZRilPBO RM05/3/2 DSKLS TST 
'114 btARCH TEST 
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SEQ 01 9S 



4784 
4785 
4786 
4787 
4788 
4789 
4790 



4791 

4792 

4795 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

A805 

4806 

4807 

A808 

4809 

4810 

4811 

4812 

4813 

48U 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4825 

4824 

4825 



4826 
4827 
4828 
4829 
4830 
4831 
4832 
4o33 
4834 
4835 
4836 



043570 0^2737 043576 001124 



043576 
045576 
043602 
043604 
043606 



045612 
043612 
043620 
043626 
043634 
043642 
04 3650 



043656 
043662 
043662 
043670 
043676 
043700 



043702 
043710 
043716 
043720 
043724 
043732 
043740 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



054450 
045244 



041001 
000000 
000000 
000000 
000000 
0C0031 



012702 000023 



012760 
012760 
005302 
001370 



016037 
042737 
001011 
010037 
062737 
012737 
104261 



141001 
041001 



000014 
157777 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



001142 
001142 



001136 

000014 001136 
020000 001140 



043750 
043/50 
043754 
043756 
043760 



043764 
043764 
043772 
044000 
044006 
0h4014 
044022 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



054450 
045244 



041401 
000000 
000000 
000000 
000000 
000031 



000024 
000006 
000034 
000014 
000042 
000000 



.DURING DATA COWAND TESTS) 
90$: MOV #100S.$LPERR 



; CHANGE LOOP ON ERROR ADDRESS 



.VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT ClEAR 
100$: 

JSR PC.SETVV ;60 SET VOLUME VAcID 

BR 110$ .-BRANCH TO 110$ IF NO ERROR 

EMT 

JMP 3^.0$ 

.-ENABLE DEBUG CLOlK. LCAD CYLINDER. TRACK AND SECTOR 

.-ADDRESS. AND LOAD SEARCH COMMAND 

110$: 

MOV *DMD'MUR!D8EN.RMMR1(R0) ;L0AD PMMRl 

MOV AO.RMDA(RO) .-LOAD RMDA 

MOV *O.RMDC(RO) .'LOAD RMDC 

MOV #0.RMER1(RC) ;LOAD RMERl 

MOV #0.RMER2(R0) ;L0AD RMER2 ' 

MOV *SEARCH!G0.RMCS1(R0) ;LOAD RMCSl 

;STEP THE COMMAND SEQUENCER 

MOV *19.,R2 

120$: 

MOV *DMD.'MUR.DBEN.D8CK.RMMR1 (RO) ;L0AD RMMR1 

MOV *DMD!MUR.DBEN.RMMR1(R0) ;LOAD RMMRl 

DEC R2 

BNE 120$ 



.-VERIFY THAT OPJ IS SET 



; STORE RMERl AT $8DDAT 



043742 012737 043750 001124 130$: 



MOV RMERl (R0).$8DDAT 

BIC #*C0PI .$BDDAT 

BNE 1 30$ 

MOV R0.$8DADR 

ADD ARMERl ,$8DADR 

MOV #0PI.$GDDAT 

EMT 261 

MOV /«'150$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



;>^ERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CaiNDER AND 

.-SECTOR COMPARE SETS) 

150$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 160$ .-BRANCH TO 160$ IF NO ERROR 

EMT 

JMP 330$ 

.ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
.ADDRESS. AND LOAD SEARCH COMMAND 



160$; 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#DMDIMUR!DBFNIM0C.RMMR1 (RO) 
*O.RMDA(RO) .-LOAD RMDA 

*O.RMDC(RO) .-LOAD RMDC 
#0. RMERl (RO) .-LOAD RMERl 
/(fO.RMER2(RO) ."LOAD RMER2 
ffbEARCH'GO. RMCSl (RC) ;LOAD 



;LOAD RMMRl 



RMCSl 



ZRMPBG «W0S/5/? D5KLS TS' 
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SEO 0196 



^.857 

A859 
4840 

4841 
4842 
4845 
4844 
484S 
4846 
48^7 
4848 
4849 
4850 
4851 
4852 
4855 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4865 
4864 
4865 
4866 
486/ 
4868 

4869 
4870 
4871 
4872 
4875 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4382 
4885 
4884 
4885 
4886 



4887 
4888 
4889 



044050 
044054 
044054 
044042 
044050 
044052 



044054 



044062 



044070 
044074 
044074 
04410? 
044110 
044112 



044114 
044122 
044150 



044156 
044142 
044142 
044150 
044156 
044160 



044162 
044170 
044176 
044200 
044206 
044212 
044220 



012702 000021 



012760 
012760 
005502 
00^570 



CI 2760 
012760 



141401 
041401 



041005 
051401 



012702 000002 



012760 
012760 
005502 
001 570 



012760 
012760 
012760 



151401 
051401 



051405 
051445 
051405 



012702 000005 



012760 
012760 
005502 
001570 



016057 
042757 
001011 
012757 
010057 
062757 
104262 



151401 
051401 



000012 
077777 

100000 
001 1 56 
000012 



000024 
000024 



000024 
000024 



000024 
000024 



000024 
000024 
000024 



000024 
000024 



001142 
001142 

001140 

001 1 56 



044250 
C44250 
044254 
044256 
044240 



004757 
000405 
104000 
000157 



054450 
045244 



.-STEP CVrWt> SEQUENCER TO FIRST LATCH TEST (17 CLOCKS) 
MOV #17.,R2 

170t: 

noy #0«D:HUR!DeEN!DeC»C.'«CC.R«HR1(R0) .LOAD RWR1 

MOV #0«D.'«UR:DeEN:i«IOC.RWR1(RO> ,L0AI> RWl 
DEC R2 
BNE 170S 

.DROP ON CrLINDER TO RESET LATCH.AND RAISE INDEX PULSE 
;T0 SET FORHAT CHANGE FLOP 

MOV #d«c;mur:dben.'mi.riwi(ro) .load rmtri 



.•RAISE on CYLINDER AND INHIBIT SEARCH TIMEOUT 

MOV jrDMDIMURlDBENIMOC.'MSEN.RMMRl (RO) 



;LOAD RMMR1 



.-STEP COMMAND SEQUENCER TO SEARCH ENABl E (2 CLOCKS) 
MOV *2.R2 

180S: 

MOV ^DWlMUR.DBENIMOC.'MSENJDeCK.RMMRl (RO) ;LOAD RM1R1 
MOV #DMD;MUR:D8EN:MOCiMSEN.RMMRl(R0) ;LOAD RMMftl 

DEC R2 
BNE 180S 

.FORCE SECTOR COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE 
.•ACTIVE 

MOV #0M0IMURIM0C!D8£N!MSEN!MSC.RMMR1(R0) ;LOAD R^f1R1 
MOV «)«D!MURlMOCiDeEN!MSEN2«SC!MS,RMMRl(R0) ;LOAD RfflRl 
MOV #DMD.'MUR!MOCIDBEN.'MSEN!MSC,RMMR1(R0) ;LOAD RMMRl 

.•CLOCK SEQUENCER TO SET ATA (3 CLOCKS) 

MOV #5.R2 ;R2 = CLOCK COUNT 

185S: 

MOV #0MD|MUR1M0C!DBEN!MSENID8CK.RMMR1 (RO) 

MOV iTDMOIMURIMOClDBEN.MSEN.RMMRKRO) 

DEC R2 

BNE 185S 



;LOAD RMMRl 
.LOAD RMMRl 



.•VERIFY ATA IS SET 



044222 012757 044250 001124 190$: 



MOV 
SIC 
BNE 
MOV 
MOV 
ADD 
EMT 

MOV 



W>^DS (R0).$8DDAT .-STORE RMDS AT $8DDAT 
**CATA.*8DDAT 
190$ 

*ATA.$GDDAT 
R0,$8DADR 
«rRMDS,$eDADR 
262 



#200$,$LPERR 



; CHANGE LOOP ON ERROR ADDRESS 



.-VERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP 
200$: 

JSR PCSETVV ;G0 SET VOLUME VALID 

BR 210$ .-BRANCH TO 210$ IF NO ERROR 

EMT 

JMP 350$ 

;tNABLE DEBUG CLOCK. LOAD CYLINDER. TRACK AND SECTOR 



^7«W>B0 RMOS/3/2 DSKLS TST 1 
•IK SEARCH TEST 
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SEO 0197 



4890 












044244 








•♦892 


044244 


012760 


041401 


000024 


4893 


044252 


012760 


000000 


000006 


4894 


044260 


012760 


000000 


000034 
000014 


4895 


044266 


012760 


000000 


4896 


044274 


012760 


000000 


000042 


4397 


044302 


01 2760 


000031 


000000 


4898 










4899 










4900 


044310 


012702 


000021 




4901 


044314 








4902 


044314 


012760 


141401 


000024 


4903 


044322 


012760 


041401 


000024 


4904 


044330 


005302 






4905 


044332 


001370 






4906 










4907 










4908 


044334 


012760 


041001 


000024 


4909 










4910 










4911 


044342 


012702 


000007 




4912 


044346 








4913 


044346 


012760 


141001 


000024 


4914 


044354 


012760 


041001 


000024 


4915 


044362 


005302 






4916 


044364 


001 370 






4917 










4918 










4919 


044566 


016037 


000000 


001142 


4920 


044374 


042737 


1 77776 


001142 


4921 


044402 


001006 






4922 


044404 


012737 


000001 


001140 


4923 


044412 


010037 


001136 




4924 


044416 


104263 






4925 










4926 










4927 


044420 










044420 


012760 


04 1^01 


000024 


4928 










4929 










4930 


044426 


012702 


000003 




4931 


044432 










044432 


012760 


141201 


000024 


4932 


044440 


012760 


041201 


000024 


4933 


044446 


005302 






4954 


044430 


001370 






4935 


044452 


016037 


000000 


001142 


4936 


044460 


042737 


1 77776 


001142 


4937 


044466 


001405 






4938 


044470 
044474 


010037 


001136 




4939 


005037 


001140 




4940 


044500 


104264 






49*. 1 










4942 


044502 


012737 


044510 


001124 


4943 










4944 











; ADDRESS 
210$- 



AMD LOAD SEARCH COWAND 



MOV #DMD:MUR;D8EN.'M0C.RfWl (R0> ;LOAD RMhRI 

MOV #0.RMDA(R0) ;L0AD RMDA 

MOV /irO,R«DC(RO) ;LOAD RMDC 

MOV #0,RMER1(R0) ;LOAD RMER1 

MOV *0.R«ER2(R0) ;L0AD RMER2 

MOV #SEARCHIGO.RMCS1(RO) ;LOAD RMCS1 

;STEP COMMAND SEOUCNCER TO FIRST ON LATCH TEST (17 CLOCKS) 

MOV #17.,R2 

?20$: 

MOV #DMD.'MUR:DBEN:MOC!D8CK,RMMR1(RO) ;L0AD rmmri 

MOV *DMD. MUR1D8ENIM0C. RMMRI (RO) ;L0AD RMMRI 

DEC R2 

BNE 220$ 

.•DROP ON CVLINDER TO RESET LATCH. LEAVE ON CYLINDER 0 

MOV #DMD!MUR!DBEN.RrtMR1 (RO) ;L0AD RMMRI 

.-STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 

MOV ff7.R2 

230$: 

MOV /rDMDIMURlDBENIDBCK, RMMRI (RO) ;LOAD RMMRI 

MOV WMDlMURiDBEN.RMMRI (RO) ; LOAD RMMRI 

DEC R2 

BNE 230$ 



rVERIFY THAT 60 IS STILL SE^ 

MOV RMCSl(RO).$eDDAT 

BIC #*CGO.$BDDAT 

BNE 240$ 

MOV *GO,$GDDAT 

MOV RO,$BDADR 

EMT 263 



.SET SEEK INCOMPLETE ERROR 
240$: 

MOV #DMD. MURIDBEN.MSER. RMMRI (RO) 



.•STORE RMCS1 AT $BDDAT 



.•LOAD RMMRI 



;STEP COMTWND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 



250$: 



260$: 



MOV *3.R2 

MOV #DMDlMURlDBEN.'MSERiD8CK. RMMRI (RO) ."LOAD RMMR' 

MOV #DMDiMUR!DBEN:MSER.RWMR1(R0) ;LOAD RMMRI 

DEC R2 

BNE 250$ 

MOV RMCS1(R0),$8DDAT .-STORE RMCS1 AT $8DDAT 

BIC #*CGO.$eDDAT 

BEO 260$ 

MOV R0,$eDADR 

CLR $GDDAT 

EMT 264 

MOV #265$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



.-VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP 



^ZRMPSO RMOS/5/2 DSKLS 
nu SEARCH TEST 



A 946 



4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4974 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 



044510 
044510 
044514 
044516 
044520 



044524 
044524 
044532 
044540 
044546 
044554 
044562 



044570 
044574 
044574 
044602 
044610 
044612 



004737 
000403 
104000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



C54450 



045244 



041401 
000000 
000000 
000000 
000000 
000031 



012702 000021 



012760 
012760 
005302 
001370 



141401 
041401 



044614 012760 041005 



044622 012760 051401 



044630 
044634 
044634 
044642 
044650 
044652 



044654 
044660 
044660 
044666 
044674 
044676 
044704 
044712 
044714 
044716 
044720 
044726 
044732 
044740 



044 742 



012702 000002 



012760 
012760 
005302 
001370 



151401 
051401 



»1ACR0 1/04.00 



265$: 
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SEO 0^98 



000024 
000006 
000034 
000014 
000042 
000000 



000024 
000024 



000024 
000024 



000024 
000024 



JSR 

BR 

EMT 



PC.SETVV 
270$ 

330$ 



;G0 SET VOLUME VALID 
;BRANCH TO 270$ IF NO ERROR 



;EMA8LE DEBUG CLOCK, LOAD CYLINDER. TRACK Wt> SECTOR 

.•ADDRESS. AND LOAD SEARCH COMMAND 

270$: 

MOV #D?1D!MUR!DBEN:MOC,Rrt1R1(R0) ;L0AD RMMR1 

MOV #0.ftMDA(RO) LOAD RMDA 

MOV tfO.RMDCCRO) ;LOAD RWC 

MOV *0.RMER1(R0) ;LOAD RMER1 

MOV *0.RMER2(R0) .LOAD RMER2 

MOV tfSEARCH.GO.RMCSI (RO) ."LOAD RMCS1 

■STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
MOV ^t^7.,R2 

275$: 

MOV *DMD:MUR.DBEN:D8CK!MOC.RMMR1(RO) ;10AD RMMR1 

MOV #DMD.MUR1DBEN!M0C.RMMR1 (RO) ;L0AD RMMR1 

DEC R2 
BNE 275$ 

;DROP ON CYLINDER TO RESET LATCH. AND RAISE INDEX PULSE 
;T0 SET FORMAT CHANGE FLOP 

MOV MMD'MURIDBENIMI.RMMRI (RO) ;LOAD RMMRl 



;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 

MOV *DMD ;MUR!D8t:N!M0ClMSEN. RMMRl (RO) 



;LOAD RMMRl 



012702 


000004 




281$: 


MOV 


016037 


000024 


001142 




MOV 


042737 


173777 


001142 




BIC 


001411 








BEQ 


012760 


151401 


000024 




MOV 


012760 


051401 


000024 




MOV 


005302 








DEC 


001361 








BNE 


000411 








BR 


012737 


004000 


001140 


282$: 


MOV 


010037 


001 1 36 






MOV 


062737 


000024 


001136 




ADD 


104265 








EMT 



;STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
MOV #2,R2 

280$: 

MOV #DMD !MUR:DBEN1M0CWSENID8CK. RMMRl (RO) ;LOAD RMMRl 
MOV #DMD:MUR:DBEN.'M0C!MSEN, RMMRl (RO) .-LOAD RMMRl 

DEC R2 
BNE 280$ 

.VERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP 
#4.R2 ;R2 - CLOCK COUNT 

RMMR1{R0).$8DDAT ; STORE RMMRl AT $BDDAT 

#-CESRC.$BDDAT 

282$ .-BRANCH IF SEARCH NOT ENABLED 

#DMD!MUR'.M0C!DBEN:MSEN!D8CK, RMMRl (RO) ;LOAD RMMRl 
*DMD!MUR!M0C!D8EN!MSEN,RMMR1(R0) ;LOAD RMMRl 

R2 

281$ 
283$ 

*ESRC,$GODAT 
R0,$6DADR 
#RMMR1 .$8DADR 
265 

;SET DRIVE FAULT TO CAUSE ABORT CONDITION 
283$: 



rZRMPBO RM05/5/2 DSKLS TST 1 
nu SEARCH ^EST 
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A999 
5000 
5001 
5002 

5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
50U 
5015 
5016 
5017 
5018 



5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

S031 

5032 

5033 

503A 

5035 

5036 

5037 

5038 

5039 

50AO 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 
5050 



044750 
044754 
044754 
044762 
044770 
044772 
044774 
045002 
045010 
045012 
045020 
045024 

045026 
045034 



045040 
045040 
045044 
045046 
045050 



045052 
0^'.')52 
04t)060 
045066 
045072 
045100 
045106 



045120 
045120 
045126 
045134 
045136 
045140 



045144 
045144 
045152 
045160 



012702 000002 



012760 
012760 
005302 
001370 
016037 
042737 
001406 
012737 
010037 
104260 

012737 
012703 



004737 
000402 
104000 
000475 



012760 
012760 
010360 
012760 
012760 
012760 



012760 
012760 
005302 
001370 
012702 



151501 
051501 



000000 
'\7777b 

000000 
001136 



045040 
000001 



054450 



041401 
000000 
000034 
000000 
000000 
000031 



045114 012702 000011 



141401 
041401 



045302 



SEO 0199 



044742 012760 051501 000024 



016037 000040 
042737 150000 
011237 001140 



000024 
000006 

000014 
000042 
000000 



000024 
000024 



001142 
001142 



MOV 



«DnD ! nUR ! DBEN ! nOC : nSEN ! MDF . RmR 1 ( RO ) 



.LOAD RWR1 



.-STEP 2 CLOCKS AND VERIFY GO IS RESET 

MOV #2,R2 ;R2 - CLOCK COUNT 



285$: 



000024 
000024 



001142 
001142 

001140 



001124 290$: 



nov 

MOV 

DEC 
BNE 

MOV 
BIC 
BEQ 
MOV 
MOV 
EMT 

MOV 
MOV 



#DMD!MUR:D8EN!M0CIMSEN1MDF 'DBCK.RMMR1(R0> ;LOAD RMMR1 

#dmd.'mur!dben:mocimsen;mdf.rmmri(ro) .-load rmmr^ 

R2 

285$ 

RMCS1(R0).$8DDAT .-store RMCSl AT $8DDAT 

#*CG0,$8DDAT 

290$ 

*0,$6DDAT 
R0,$8DADR 

260 



*300$.$LPERR 
*1,R3 



.•CHANGE LOOP ON ERROR ADDRESS 
.-INITIALIZE CYLINDER ADDRESS 



.VERIFY THE TAG BUS DURING SEARCH 
300$: 

JSR PC.SETVV ;60 SET VOLUME VALID 

BR 310$ ;8RANCH TO 310$ IF NO ERROR 

EMT 

BR 330$ 

.-ENABLE DEBUG CLOCK. LOAD CYLINDER. TRACK AND SECTOR 

.-ADDRESS AND uGAD SEARCH COMMAND 

310$: 

#DMDlMUR!DBEN!MOC.RMMR1(fiO) .-LOAD RMMRl 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



*O.RMDA(RO) 
R3.RMDC(R0) 
*0,RMER1(R0) 
/ir0.RMER2(R0) 



LOAD RMDA 
LOAD RMDC 
LOAD RMER1 
LOAD RMER2 



^SEARCH ! GO, RMCSl (R0> ;LOAD RMCSl 



**************************************************************** 



312$: 



MOV 



MOV 



MOV 
MOV 
DEC 
BNE 
MOV 



*400$.R2 



*9..R2 



.-INITIALIZE TABLE POINTER 

HARDWARE ECO CHANGC TO THE PLA OF THE 
CS BOARD. 

CLOCK THE SEQUENCER THRU THE FIRST 

9. COMMAND SEQUENCES TO ALLOW THE PROGRAM 

TO RUN WITH OR WITHOUT THE ECO. 



#DMD 1D8EN!MUR:M0C!DBCK. RMMRl (RO) ;LOAD RMTWI 

#DMD .'D8ENJMURIM0C. RMMRl (RO) ;LOAD RMMRl 



R2 
312$ 
*450$,R2 



DONE 9. CLOCKS ? 
NO !.' 

INITIALIZE NEW TABLE POINTER 



**************** ****••**•*• 

* • 

.•VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R5 
315$' 

MOV RMMR2(R0).$8DDAT .-STORE RMMP2 AT $BDDAT 

BIC /irRQA!RQB!TST.$8DDAT 
MOV (R2),$GDDAT 



'/R*V>BO RM05/5/2 DSKLS 
'1U SEARCH TEST 
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SEO 0?00 



5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

50o2 

5063 

506A 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

509'> 

5096 

5097 

50)8 

50'>9 

5100 

5101 

5102 

5103 

5104 

5105 



045164 
045170 
0/.5176 
045200 
045204 
045212 
045214 



045216 
045216 
045222 
045224 



045226 
045234 
045242 



045244 
045244 
045246 
045252 
045254 
045256 



045260 
045260 
045262 
045264 
045266 
045270 
045272 
045274 
045276 
045300 
045302 
045302 
04530/ 
0^5306 
045310 
045312 



045314 
045316 
045320 
045322 
045324 



050337 
023737 
001407 
010037 
062737 
104266 
000420 



062702 
005712 
100407 



012760 
012760 
000740 



001140 
C01140 

001136 
000040 



000002 



141401 
041401 



OR CYLINDER ADDRESS IN 
COMPARE EXPE'^TED AND RECEIVED 
BRANCH IF TAG BUS OK 



006303 

020327 002000 
103001 
000671 
000424 



001 777 
001777 
001777 
001777 
001777 
004000 
004000 
024000 
024000 



024000 
024000 
U2s000 
0240C0 
}7777? 



004000 
001777 
001777 
001777 
001 777 



05326 } 77777 
045330 



BIS R3.$GDDAT 

001142 CMP $GDDAT.SBDDAT 

BEO 320S 

MOV RO.SBDADR 

001136 ADD #RMMR2.$BDADR 

EMT 266 

BR 340S 

.•ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
320$: 

ADD »2.R2 

rST (R2) 

BMI 330$ .-EXIT IF ENTRY NEGATIVE 

.-STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
000024 MOV #DMD!DBEN!MUR!MOC!D8CK.RMMR1(R0) ;L0AD RMMR1 

000024 MOV *DMD;DBEN;MURIM0C.RMMR1(R0) .-LOAD RMMR1 

BR 315$ 

.REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E., 1.2,4 

330$: 

ASL R3 ; SHIFT TO NEXT CYLINDER 

CMP R3.*1024. 

BHIS 340$ .-EXIT IF WAS DONE 

BR 300$ .-TEST NEXT CYLINDER 

340$: BR 500$ ;JUMP OVER TABLE 

.TABLE OF TAG BUS CONTROL AND BIT VALUES 
400$: 

;8US BITS AT HIGH IMPEDENCE STATE 

CONTROL BITS ENABLED. BIT 6 ON 
TAG COMES ON 

450$: .-START TABLE HERE FOR HARDWARE ECO CHANGE 

.WORD TAG.'CC 
.WORD TAG.CC 
.WORD TAG.'CC 
unon TAf: ff 

END TABLE HERE FOR HARDWARE ECO CHANGE 
TAG GOES OFF 
CONTROL BITS DISABLED 

;END OF TABLE 
500$: ;END OF TEST 



.WORD 


M77 


.WORD 


^7n 


.WORD 


^777 


.WORD 


M77 


• WORD 


1777 


.WORD 


CC 


.WORD 


CC 


.WORD 


TAG!CC 


.WORD 


TAG.'CC 


.WORD 


TAG.'CC 


.WORD 


TAG.CC 


.WORD 


TAG.'CC 


.WORD 


TAG.CC 


.WORD 


-1 


.WORD 


CC 


.WORD 


CC 


.WORD 


^777 


.WORD 


y777 


.WORD 


\777 


.WORD 


^777 


.WORD 


-1 



'7RMPeO W10S/5/2 DSHLS TST 1 
"15 SfAftrn TIMEOUT TEST 



5108 
5109 



OA5330 
(X5350 
045332 
045334 
045340 
045344 
045350 

045356 
045362 
045364 



000004 
000240 
012706 
013700 
013701 
012737 

004737 
000402 
104000 



001100 
001276 
001466 
000115 

054450 
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001226 



5110 


045366 


000550 






5111 










5112 










51 1 3 


045370 








51 14 


045370 


A'i 1 A 

012760 


Ay 1 y Ai 

041401 


AAAATy 

000024 


51 15 


C45576 


012760 


A A AAA A 

ocoooo 


AAAA1 y 

000014 


51 16 


045404 


012760 


AAAAAA 

000000 


AAAAy "> 

00004 


5117 


045412 


012760 


AAAAAA 

000000 


AAAA? / 

000034 


5118 


r\i c t '^A 

045420 


012760 


r\ A AAArt 

000000 


AAAAAZ. 

000006 


51 19 


045426 


A^ 7^ A 

012760 


AAA A "2 i 

000031 


AAAAAA 

000000 


5120 
























012702 


AAAA'51 

OOOU<:I 




5123 


A/ cy y A 

045440 










A/ c/ y A 

045440 


012/^60 


1 / 1 y AI 

1414UI 


AAAA^y 

0000^^ 




A / c y y 

045446 


AI T^Z-A 


Ay 1 y AI 
0414U 1 


AAAAOy 

0000<:4 


5125 


Ay c y C y 

045454 


AAC TA^ 






5126 


Ay a C£. 

045456 


riAl 1 7A 

001370 






5127 










5128 










5129 


Ay C i d^f\ 

045460 


012760 


Ay 1 AA 1 

04100 1 


AAAA^y 
0000^*« 


C i Y/^ 

51 50 


Ay c/ d.£, 
045466 


AI 1 7^ A 


Ay 1 y AI 
041 401 


AAAAOy 

OUOUiT'* 


5 1 31 










51 32 










Q1 XT 

5 1 35 


n/. QZ. 7/. 








5134 


045500 










045500 


012760 


151401 


000024 


5135 


045506 


012760 


051401 


000024 


5136 


045514 


005302 






5137 


045516 


001370 






5138 










5139 










5140 










5141 


045520 


012702 


000005 




5142 


045524 










045524 


012760 


151401 


000024 


5143 


045532 


012760 


051401 


000024 


SK4 


045540 


016037 


000024 


00r42 


5145 


045546 


0^27Z7 


173777 


001142 


5146 


045554 


001403 






5147 


045556 


005302 






5148 


045560 


001361 






5U9 


045562 


000412 







SEO 0201 



.••TEST 115 



SEARCH TIMEOUT TEST 



TST115: 



SCOPE 




.-SCOPE CALL 


NOP 






MOV 


#STAC<,SP 


."LOAD THE STACK POINTER 


MOV 


$aASE,RO 


;R0 - UNIB'JS ADDRESS 


MOV 


TST0UE.R1 


;R1 = POINTER TO DEVICE 


MOV 


#r(5,$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


JSR 


PC.SETVV 


;G0 SET VOLUME VALID 


8R 


10$ 


.•BRANCH TO 10$ IF NO ERROR 


EMT 






8R 


90$ 





.ENABLE DEBUG CLOCK AND LOAD SEARCH COMMAND 
10$: 

MOV *DMD.MUR.D6EN:M0C,RMMR1 (RO) .-LOAD RMMR1 

MOV *0.RMER1(R0) ;LOAD RMERl 

MOV *0.RMER2(R0) ;L0AD RMER2 

MOV *0.RMDC(R0) ;LOAD RMDC 

MOV *O.RMDA{RO) ;LOAD RMDA 

MOV #SEARCH!G0.RMCS1 (RO) ;LOAD RMCSl 

.•EXECUTE SEARCH TO_TEST FOR ON LATCH RESET (17 CLOCKS) 
MOV 



20$: 



*17..R2 

MOV *DMD I MUR ! DBEN .' MOC f DBC K . RMMP 1 ( RO ) 
MOV #DMD!MUR:DBEN.'MOC.RMMR1(RO) 
DEC R2 
BNE 20$ 



;LOAD RMMRl 
.-LOAD RMMRl 



.'DROP ON CYLINDER TO RESET LATCH. RAISE ON CYLINDER 
MOV #DMD!MUR1D8EN.,'VT1R1 (RO) ;LOAD RMMRl 
MOV /»DMD : MUR! DBEN! MOC, RMMRl (RO) ;LOAD RMMRl 



.•STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 CLOCKS) 



30$: 



MOV 

MOV 
MOV 
DEC 
"NE 



;THE COMMAND 
.•THROUGH THE 
MOV 

40$: 

MOV 
MOV 
MOV 
BIC 
BEQ 
DEC 
BNE 
BR 



»2,R2 

#DMD ! DBEN !MUR IMOC I D8CK IMSEN.RMMR1 (RO) 
#DMD ! DBEN . MUR IMOC !MSEN. RMMRl (RO) 
R2 
30$ 



.•LOAD RMMRl 
.•LOAD RMMRl 



SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP. 
LOOP AND VERIFY SEARCH IS ENABLED. 
*5.R2 



STEP 



#DMD 1 DBEN !MUR IMOC !D8CK:MSEN. RMMRl (RO) ;LGAD RMMRl 
*DMD!DBEN!MUR!MOC !MSEN. RMMRl (RO) ;LOAD RMMRl 

RMMRl (R0).$6DDAT ;STORE RMMRl AT $8DDAT 

#*CESRC.$BDDAT 

50$ .-BRANCH IF SEARCH NOT ENABLED 

R2 

40$ 

60$ 



5150 
V51 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 

5160 

5161 
5162 
5163 
51 6A 
5165 
5166 
5167 
5168 
5169 
5170 
5171 

5172 
5173 
5174 
5175 



RM05/5/2 DSKLS TST 1 
SEARCH TIMCOuT TEST 
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045564 
045572 
045576 
045604 
045606 



045610 
045610 
045616 
045624 
045630 
045630 
045636 
045644 
045646 
045652 
045654 
045660 
045666 
045672 
045700 
045^02 
045704 
045704 

045710 



045710 
045710 
045712 
045714 
045720 
045724 
045730 

5176 
5177 
5178 

5179 045736 
045742 
045744 

5180 045746 
5181 

5182 

5183 045750 

5184 045750 

5185 045756 

5186 045764 

5187 045772 

5188 046000 

5189 046006 
5190 

5191 



012737 


004000 


001140 50S: 


MOV 


#ESRC,SGDDA1 


010037 


con 36 




WV 


R0,SeDADR 


062737 


000024 


001136 


ADD 


#RMriR1.$80ADR 


104265 






EMT 


265 


000440 






BR 


90S 



012760 
012737 
004777 

016037 
042737 
001017 
005737 
001 366 
004777 
012737 
010037 
062737 
104267 
000402 



000004 
000240 
012706 
013700 
013701 
012737 



004737 
000402 
104000 
000471 



012760 
012760 
012760 
012760 
012760 
012760 



041401 
070000 
133706 

000014 
157777 

001534 

1 53660 
020000 
001 136 
000014 



004777 133630 



001100 
001276 
001466 
000116 



054450 



041401 
000000 
000000 
000000 
000000 
000071 



000024 
001534 



001142 
001142 



001140 
001136 



001226 



000024 
000014 
000042 
000006 
000034 
000000 



.•DROP 
60S: 



70S: 



.•SETUP ERROR MSG 



MSEN TO ENABLE SEARCH TIMEOUT AND WAIT FOR DPI TO SET. 



BOS: 
90$: 



MOV 


<rDMD!MURIM0C'D8EN.RMMRl(R0) ;L0AD RMMR1 


Mnu 
nuv 


#70000. WATCH 


.■SET WATCHDOG TIMER VALUE 


JSR 


PC.aCLOCK 


.-START THE CLOCK 


MOV 


RMER1(R0).S8DDAT 


.-STORE RMER1 AT S8DDA 


81 C 


**C0PI .SBDDAT 




BNE 


80$ 




TST 


WATCH 




BNE 


70S 




JSR 


PC.aSTOPCL 


.-STOP THE CLOCK 


MOV 


*0PI.SGDDAT 


.-SETUP ERROR MSG 


MOV 


RO.SBDADR 




ADD 


ARMER1 .$BDADR 




EMT 


267 




BR 


90$ 




JSR 


PC.aSTOPCL 


.-STOP THE CLOCK 



.-END OF TEST 



••**»*»*•»»**»*»»*»***»**»****»***»**»**************♦************ 

••TEST 116 DATA COMMAND TESTS (1) 

.•»»»**»***»»*»*»»»♦*»**»******•********************************* 

TST116. 

SCOPE .-SCOPE CALL 

NOP 



MOV *STACK,SP 

MOV SBASE.RO 

MOV TSTQUE.R1 

MOV *116.$TESTN 



LOAD THE STACK POINTER 
RO = UNIBUS ADDRESS 
R1 - POINTER TO DEVICE 
;SET TEST NUMBER IN APT MAIL BOX 



.VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY 



JSR 
BR 
EMT 
BR 



PC.SETVV 
10S 

40$ 



;G0 SET VOLUME VALID 
.•BRANCH TO 10$ IF NO ERROR 



.-ENABLE DEBUG CLOCK AND LOAD READ COMMAND 
10$: 

MOV #DMD.MUR!M0C!D8EN,RMMR1 (RO) 



MOV *0,RMER1(R0) 

MOV #0,RMER2(R0) 

MOV *0,RMDA(RO) 

MOV AfO.RMDC(RO) 

MOV ARD!G0.RMCS1(R0) 



LOAD RMER1 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

.-LOAD RMCS1 



.-LOAD RMMR1 



:S EP COWIAND SEQUENCER TO UNIT READY TEST (3 CLOCKS) 



i'^r'PBO RM05/3/^ DSKLS TST 1 

DATA COMMAND TESTS O) 



I 16 
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J 92 



51 9A 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 

520A 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 



0460 U 
046020 
046020 
046026 
046034 
046036 



012702 000003 



012760 
012760 
005302 
001 370 



141401 
041401 



000024 
000024 



046040 012760 040401 000024 



046046 
046052 
046052 
046060 
046066 
046070 
046072 
046100 
C46106 
046110 
046116 
046122 
046130 



012702 000002 



012760 
012760 
005302 
001370 
016037 
042737 
001011 
012737 
010037 
06273? 
104270 



140401 
040401 



000014 
157777 

020000 
001 1 36 
000014 



000024 
000024 



001142 
001142 

001 IhO 

001136 



046140 
046140 
046144 
046146 



004737 
000402 
104000 



054450 



5220 


046150 


000576 






5221 










5222 










5223 


046152 








5224 


046152 


012760 


041401 


000024 


5225 


046160 


012760 


000000 


000014 


5226 


046166 


012760 


000000 


000042 


5227 


0461 74 


012760 


000000 


000006 


5228 


046202 


012760 


000000 


000034 


5229 


046210 


012760 


000071 


000000 


5230 










5231 










5232 


046216 


012702 


000004 




5233 


046222 










046222 


012760 


141401 


000024 


5234 


046230 


012760 


041401 


000024 


5235 


046236 


005302 






5236 


046240 


001370 






5237 










5238 
5239 










046242 


012760 


041501 


000024 


5240 










5241 










5242 


046250 


012702 


000001 




5245 


046254 









SEO 0201 



20$: 



MOV 

MOV *DMD!MUR:MOC:D8EN;D8CK:.RMMft1(R0) ;LOAD RMMR1 

MOV #DMD!MUR!MOC.'D8EN.RMMft1(R0) ;LOAD RMMR1 

DEC R2 

BNE 20$ 

.-DROP UNIT READY 

MOV *DMD.MOC.D8EN.RMMR1(RO) ;LOAD RMMRl 

.•STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS) 



30$: 



046132 012737 046140 001124 40$: 



MOV 

MOV 
MOV 
DEC 
BNE 
MOV 
BIC 
BNE 
MOV 
MOV 
ADD 
EMT 

MOV 



#2.R2 

#DMD.MOC ! DBEN.'DBCK, RMMRl (RO) ;LOAD RMMRl 
*DMD .'MOC.DBEN. RMMRl (RO) ;LOAD RMMRl 
R2 
30$ 

RMER1 (RO),$BDDAT 
**COP] .$BDDAT 
40$ 

#OPI.$GDDAT 
R0,$8DADR 
/lfRMERl,$BDADR 
270 



.•STORE RMERl AT $8DDAT 



*50$.$LPERR 



: CHANGE LOOP ON ERROR TEST 



.•VERIFY DATA COMMAND ABORTS AT LOCATION 129 
50$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 60$ .-BRANCH TO 60$ IF NO ERROR 

EMT 

BR 150$ 



.ENABLE DEBUG CLOCK AND LOAD READ COMMAND 
60$: 

MOV #DMD !MUR!M0C;D8EN. RMMRl (RO) 

MOV #0, RMERl (RO) 

MOV *0.RMER2(R0) 

MOV *0.RMDA(R0) 

MOV *O.RMDC(RO) 

MOV WD.'GO.RMCSKRO) 



LOAD RMERl 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

.•LOAD RMCSl 



;LOAD RMMRl 



.•STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS) 

MOV #4,R2 

70$: 

MOV #DMD!MUR.M0ClDBfcN!D8CK,RMMR1 (RO) ;LOAD RMMRl 

MOV #DMD!MUR!M0CID8EN,RMMRUR0) ;LOAD RMMRl 

DEC R2 

BNE 70$ 

.-SET DEVICE FAULT TO CAUSE ABORT CONDITION 

MOV *DMD. MURIMOC.DBEN.MDF. RMMRl (RO) ; LOAD RMMRl 

.-STEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK) 
MOV J»1.R2 

80$: 



RM05/3/2 DSKLS TST 1 
'"16 DA'A rOMMAND TESTS H) 
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5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 

5252 
523? 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5265 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
527i 
5274 
5275 
5276 
5277 

5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 



046254 
046262 
046270 
046272 



046274 
046300 
046300 
046306 
046314 
046322 
046330 

046332 
046334 
046336 
046344 
046350 
046356 
046360 



046362 
046362 
046366 
046366 
046374 
046402 
046404 



046406 
046412 
046412 
046420 
046426 
046430 



046432 
046432 
046440 
046446 
046450 
046454 
046460 
046466 
046470 



046472 
046472 
046476 
046476 



012760 
012760 
005302 
001370 



141501 
041501 



012702 000020 



012760 
012760 
016037 
042737 
001014 

005302 
001 361 
012737 
010037 
062737 
104271 
000472 



04S501 
041501 
000024 
157777 



020000 
001136 
0C0024 



012702 000002 



012760 
012760 
005302 
001 370 



141501 
041501 



012702 000020 



012760 
012760 
005302 
001 370 



016037 
042737 
001411 
005037 
010037 
062^37 
104273 
000426 



012702 
012760 



045501 
041501 



000024 
157777 

001140 
001136 
000024 



000004 
141501 



SEO 0204 



000024 
C00024 



000024 
000024 
001142 
001142 



001140 
001 1 36 



000024 
000024 



000024 
000024 



001142 
001142 



001136 



MOV ilfDMD:MUR.MOC.D8EN.'MDF:D8C»C.RfW?l(R0) ;LOAD RMWR1 
MOV /rDMD.'MUR!MOC.'D8ENfMDF.RMMR1(R0) ;LOA[> RWRl 
DEC R2 
BNE 80S 

;A80RT E8L SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
.•FORCE BIT CLOCKS AND VERIFY THAT E8L SETS WITHIN 16 BIT CLOCKS 



85S: 



MOV 

MOV 
MOV 
MOV 
BIC 
BNE 

DEC 
BNE 
MOV 
MOV 
ADD 
EMT 
BR 



*16..R2 



.•MAXIMUM NUMBER OF BIT CLOCKS 



tfDMD!MUR!MOC!D8EN.MDF!MCLK.RMMRl(R0) ;LOAD RMMR1 
*DMD!MURiM0C.D8ENIMDF,RMMR1 (RO; ;LOAD RMMR1 
RMMR1 (R0),$8DDAT ; STORE RMMRl AT SBDDAT 

<r*CE8L.$BDDAT 

90$ .-BRANCH IF EBL IS SET 



R2 
85$ 

#E8L.$GDDAT 

R0.$6DADR 

#RMMR1 .$BDADR 

271 

150$ 



: CONTINUE BIT CLOCKS IF COUNT NOT 0 



;STEP THE SEQUENCER THROUGH ITS TEST FOR E8L (2 CLOCKS) 
90$: 

MOV *2.R2 

100$: 

MOV *DMD!MUR.M0C.D8EN!MDF i D8CK. RMMRl (RO) ;LOAD RMMRl 
MOV #DMDIMUR!M0CID8ENIMDF.RMMR1 (RO) ;LOAD RMMRl 
DEC R2 
BNE 100$ 

.-ABORT E8L SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING ^HE 
.-MAINTENANCE REGISTER TO RESET E8L (16 BIT CLOCKS) 

MOV /lfl6..R2 .-MAXIMUM NUMBER OF BIT CLOCKS 

110$: 

MOV #DMD!MUR!MOC.D8EN!MDFIMCLK.RMMR1(RO) ; LOAD RMMRl 
MOV <rDMDIMUR!M0C!D8EN!MDF. RMMRl (RO) ;LOAD RMMRl 
DEC R2 

BNE 110$ .-ISSUE 16 BIT CLOCKS THEN TES'^ 



.-VERIFY E8L IS NOW RESET 
120$: 



.-STORE RMMRl AT *Bi.OAT 



000024 



MOV RMMRl (R0),$8DDAT 

BIC <r*CE8L.$BDDAT 

BEQ 130$ .-BRANCH IF E8L IS RESET 

CLR $GDDAT 

MOV R0.$8DADR 

ADD *RMMR1,$BDADR 

EMT 273 

BR 150$ 

.-VERIFY GC RESETS WITHIN 4 CLOCK CYCLES 
130$: 

MOV <f4.fi2 

MOV WMD : MUR ! MOC ! D8EN ! MDF ! D8CK . RMMR 1 ( PO ) 



;LOAD RMMRl 



rZRMPBO OSKLS TST 1 

^1'.6 DATA COMMAND TESTS (I) 



K 16 
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SfO 0205 



5297 
5298 
5?99 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 



5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5520 
5321 
5322 
5323 
5324 
5325 

5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5534 
5535 
5336 
5557 
5538 
5539 
5340 
5541 
5342 
5343 

5344 
S545 
5346 
5347 
5348 
5349 



046504 
046512 
046514 
046516 
046524 
046532 
046534 
0465<*0 
046544 



046554 
046554 
046560 
046562 
046564 



046566 
046566 
046574 
046602 
046610 
046616 
046624 



046632 
046636 
046636 
046644 
046652 
046654 



046656 
046664 
046672 
046674 
046702 
046706 
046714 
046716 



046720 
046720 
046724 
046724 
046732 
046740 
046742 
046744 



012760 
005302 
001370 
016037 
042737 
001405 
005037 
010037 
104274 



041501 000024 



000000 
177776 

001140 
001136 



001142 
001142 



046546 012737 046554 001124 150$: 



004737 
000402 
104000 
000512 



012760 
012760 
012760 
012760 
012760 
012760 



054450 



041401 
000000 
000000 
000000 
000000 
000071 



012702 000005 



012760 
012760 
005302 
001370 



016037 
042737 
001012 
012737 
010037 
062737 
104275 
000435 



141401 
041401 



000024 
137777 

040000 
001 1 36 
000024 



012702 000001 



012760 
012760 
005302 
001370 
016037 



141401 
041401 



000024 
000014 
000042 
000006 
000034 
000000 



000024 
000024 



001142 
00n42 

001140 

001136 



000024 
000024 



000040 001142 



nov irDnDinuRinociDeEN.'nDF.RffWHRO) .load rmhri 

DEC R2 

BNE UOS 

MOV RMCS1(R0).SBDDAT ; STORE RMCS1 AT SBDDAT 

BIC #*CG0.$8DDAT 

BEO 150S 

CLR SGDDAT 

MOV RO.SBDADR 

EMT 274 

MOV #200$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



;VERJFV SEQUENCER BRANCHES TO SEEK WHEN RLW AND GO FLOP SETS 
200$: 

JSR PC.SETVV ;60 SFT VOLUME VALID 

BR 210$ .-BRANCH TO 210$ IF NO ERROR 

EMT 

BR 250$ 

.-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
210$: 

MOV #DMD!MUR!MOC!D8EN.RMMR1(R0) .-LOAD RMMRl 

MOV tfO.RMERKRO) ;LOAD RMER1 

MOV #0.RMEf<2(R0) ;LOAD RMER2 

MOV *0.RMDA(R0) .-LOAD RMDA 

MOV #0,RMDC(RO) ;cOAD RMDC 

MOV *RDiGO.RMCS1(R0) ;LOAD RMCSl 

.-MOVE SEQUENCER TO TEST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS) 

MOV #5.R2 

220$: 

MOV tfDMDIMURlMOC. D8EN.D8CK. RMMRl (RO) ;L0AD RMMRl 

MOV #DMD 'MURIM0C.D8EN. RMMRl (RO) .-LOAD RMMRl 

DEC R2 



BNE 



220$ 



.-STORE RMMRl AT $8DDAT 



.-VERIFY RUN AND GO IS SET 

MOV RMMRl (R0).$8DDAT 
BIC #*CRG.$BDDAT 
BNE 230$ 
MOV *RG.$GDDAT 
MOV R0,$8DADR 
ADD #RMMR1.$B0ADR 
EMT 275 
BR 250$ 

:\'ERlFy THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE " 
230$: 

MOV #1 .R2 

240$: 

MOV #DMD!MUR!MOC!DBEN. D8CK, RMMRl (RO) .-LOAD RMMRl 

MOV *DMD !MUR!M0C!D8EN. RMMRl (RO) ;LOAD RMMRl 
DEC R2 
BNE 240$ 

MOV RMMR2(R0),$8DDAT .-STORE RMMR2 AT $BDDAT 

••»»»*•»»»***•«»*♦•»•»•»»•**»••*»•*»»•♦»*•*»**♦*♦*«»*»*****»**»»♦ 



5551 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
53o1 
5362 
5563 
5564 
5365 
5366 
5367 
5368 
5369 
5370 
5371 



5372 
5373 
537« 
5375 
5376 
5377 
53/8 
5379 
5380 
5381 
5382 
5383 
5384 

5385 

5386 

5587 
5388 
5389 
5590 
5391 
5392 
5393 
5394 
5395 
5396 

5397 
5398 
5399 
5400 
5401 



F<»105/5/2 OSKLS 1ST 1 
DATA COMMAND TESTS (1) 



MAfRO V04.00 4-APR-81 01:24:2:> 



L 

"AGE 



16 

13-110 



SEO 0?06 



046752 042737 162000 001142 



046760 
046766 
046774 
046776 
047002 
047010 



047020 
047024 
047024 
047030 
047032 
047034 



047036 
047036 
047044 
047052 
047060 
047066 
047074 



047102 
047110 
047114 
047114 
047122 
047130 
047132 
047136 
047140 
047144 
047152 
047156 
047164 
047166 
047170 
047170 



047174 
047200 
047204 



BIC 



BIC 



«RQA.'RQB:TAG,SBDDAr 



.-THE fOLLOUING CODE WAS ADDED 
;T0 ALLOW THE PROGRAM TO RUN WJ TH 
;0fi WITHOUT THE ECO TO THE CS BOARD. 



012737 
023737 
001406 
010037 
062737 
104276 



004000 
001140 

001 1 36 
000040 



001140 
001142 



001 1 36 



047012 012737 047024 001124 250$: 



#R0A.R0B:TAG.'CH,$8DDAT .-HARDWARE ECO CHANGE CAUSES CC AND 

;CH TO SET AT THE SAWE TIME 

MOV #CC,$GDDAT 
CMP SGDDAT.SBDDAT 
BEQ 250S 
MOV R0,$8DADR 
ADD #RMMR2.$BDADR 
EMT 276 

MOV *260$.$LPERR 



.-CHANGE LOOP ON ERROR ADDRESS 



012702 0C0144 

004737 054450 
000402 
104000 
000553 



.-VERIFY DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144. 145 

MOV *144.R2 .-INITIALIZE TEST LOCATION 

260$: 

JSR PC.SETVV ;60 SET VOLUME VALID 

BR 270$ .-BRANCH TO 270$ IF NO ERROR 

EMT 

BR 320$ 



.-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
270$: 



012760 


041401 


000024 




MOV 


*DMD!MUR!M0C!D8EN 


012760 


000000 


000014 




MOV 


*0.RMER1(R0) 


012760 


000000 


000042 




MOV 


#0.RMER2(R0) 


012760 


000000 


000006 




MOV 


*0.ftMDA(RO) 


012760 


000000 


000034 




MOV 


*O.RMDC(RO) 


012760 


000071 


000000 




MOV 


#RD.'GO,RMCS1(R0) 








.-WAIT 


FOR RUN 


AND GO TO SET 


012737 


000310 


001 534 




MOV 


#200.. WATCH 


004777 


132422 






JSR 


PC.SCLOCK 








280$: 






016037 


000024 


001142 




MOV 


RMMRUR0).$8DDAT 


C42737 


137777 


001142 




BIC 


#*CRG,$BDDAT 


00*017 








BNE 


290$ 


005737 


001534 






TST 


WATCH 


001366 








BNE 


280$ 


004777 


132374 






JSR 


PC.SSTOPCL 


012737 


040000 


001140 




MOV 


*RG.$GDDAT 


010037 


001 1 36 






MOV 


RO.$BDAOR 


062737 


000024 


001 1 36 




ADD 


*ftMMR1 ,$8DADR 


104275 








EMT 


275 


000476 








BR 


320$ 








290$: 






004777 


1 32344 






JSR 


PC.aSTOPCL 








.-MOVE 


COMMAND 


SEQUENCER TO ABORT 


012703 


000006 




MOV 


*6.R3 


022702 


000144 






CMP 


*144.R2 


001402 








BEO 


300$ 



LOAD RMER1 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

.-LOAD RMCS1 



.-LOAD RMMRl 



.-STORE RMMRl AT $BDDA'- 



.-STOP THE CLOCK 



.-STOP THE CLOCK 



SETUP CLOCK COUNT 



L- 



Tr6 DATA COMMAND TESTS <^) 



540? 047206 

5403 0472T2 
047P12 

5404 047220 

5405 047226 

5406 047250 
5407 

5408 

5409 047232 

5410 

5411 

5412 047240 

5413 047244 
047244 

5414 047252 

5415 047260 

5416 047262 
5417 

5418 
5419 

5420 047264 

5421 047270 
047270 

5422 047276 

5423 047304 

5424 047312 

5425 047320 
5426 

5427 047322 

5428 047324 

5429 047326 

5430 047334 
5^,31 047340 

5432 047346 

5433 047350 

5434 047354 

5435 047356 

5436 047362 
5437 

5438 047364 

5439 

5440 

5441 047372 

5442 047374 

5443 047374 
047400 
047402 

5444 047404 
5445 

5446 

5447 047406 

5448 047406 

5449 047414 

5450 047422 

5451 047430 

5452 047434 

5453 047442 



012703 000007 



012760 
012760 
005303 
001370 



14U01 
041401 



012703 000001 



012760 
012760 
005303 
001370 



141501 
041501 



012702 000020 



012760 
012760 
016037 
042737 
001013 

005302 
001 361 
012737 
010037 
062737 
104271 
022702 
001003 
012702 
000620 



045501 
041501 
000024 
157777 



020000 
001136 
000024 

000144 

000145 



n 16 
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SEO 0207 



000024 
000024 



012760 041501 000024 



000024 
000024 



000024 
000024 
001142 
001142 



001140 
001136 



005002 

004737 
000402 
104000 
000570 



012760 
012760 
012760 
010260 
012760 
012760 



054450 



041401 

000000 
000000 
000006 
000000 
000071 



000024 
000014 
000042 

000034 
000000 



300$: 



nov #7.R3 

WOV #DMD.'MUR:MOClDeEN!DeCK.R«MRl(R0) .LOAD RMMR1 

MOV #DM0.'MUR:«0C:DeEN,RMMR1 (RO) .LOAD RMMRl 

DEC R3 

BNE 300S 

;SET DRIVE FAULT TO FORCE ABORT CONDITION 

MCV #0MD;MURIM0C !D8EN:mdF. RMMRl (RO) ;LOAD RMMRl 

.CLOCK SEQUENCER THROUGH ITS TEST FOR ABORT (1 CLOCK) 

MOV #1.R3 

305$; 

MOV *DMD1MUR:M0C!D8EN!MDF ID8CK.RMMR1(R0) ;L0AD RMMRl 

MOV *DMD.MUR.MOC.D8EN.MDF,RMMR1(R0) ; LOAD RMMRl 

DEC R3 

BNE 305$ .-ISSUE 2 CLOCKS 

.•ABORT E6L SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
.-FORCE BIT CLOCKS AND VERIFY THAT E8L SETS WITHIN 16 BIT CLOCKS 



306$: 



310$: 



012737 047374 001124 320$: 



MOV 

MOV 
MOV 
MOV 
BIC 
BNE 

DEC 
BNE 
MOV 
MOV 
ADD 
EMT 
CMP 
BNE 
MOV 
BR 

MOV 



#16. .R2 



.•MAXIMUM NUMBER OF BIT CLOCKS 



*DMD!MUR.M0C;D8EN.MDF :MCLK. RMMRl (RO) ;LOAD RMMRl 
#DMDIMUR!M0C!DBEN1MDF .RMMRl (RO) ;LOAD RMMRl 
RMMRl (RO),$BDDAT ;STORE RMMRl AT $BDDAT 

**CEBL.$BDDAT 

310$ .-BRANCH IF EBL IS SET 



R2 
306$ 

*E8L.$GDDAT 
R0,$8DADR 
*RMMR1 ,$BDADR 

271 

#144. R2 
320$ 
#145, R2 
260$ 

#330$,$LPERR 



CONTINUE BIT CLOCKS IF COUNT NOT 0 



.•CHANGE LOOP ON ERROR ADDRESS 



.•VERIFY HEAD TAG DURING DATA COMMAND 

CLR R2 .-INITIALIZE TRACK ADDRESS = 0 

330$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 340$ .-BRANCH TO 340$ IF NO ERROR 

EMT 

BR 400$ 



.•ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
^40$: 

MOV #DMD!MUR:M0C!DBEN.RMMP1 (RO) 



MOV #0.RMER1(R0) 

MOV #0,RMER2(R0) 

MOV R2.RMDAfR0) 

MOV #0.RMDC(R0) 

MOV #RD.60.RMCS1(RO) 



LOAD RMER1 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

.-LOAD RMCS1 



.-LOAD RMMRl 



CZRMPBO ftM05/^/2 DSKLS 1ST 1 
T116 DATA COMMAND TESTS d) 

5A55 



N 16 

•V^:»C V04.00 4-APR-81 0^:c'.:^5 PAGE 13-112 



;WAJT FOR RUN AND OO TO SET 



5456 


047450 


012737 


000510 


001534 




NOV 


#200. .WATCH 


;SET WATCHDOG TIMER VALUE 




047456 


004777 


1 32054 






JSR 


PC.aCLOCK 


.-START THE CLOCK 


5457 


047462 








350$: 










047462 


016037 


000024 


001142 




MOV 


RMMR1 (R0).$8PDAT 


: STORE RMMR1 AT $8DDAT 


5458 


047470 


042737 


137777 


001142 




BiC 


- #*CRG,$BDDAT 




5459 


047476 


001017 








BNE 


360$ 




5460 


047500 


005737 


001534 






TST 


UATCH 




5461 


047504 


001366 








BNE 


350$ 




5462 


047506 


004777 


1 32026 






JSR 


PC.aSTOPCL 


.•STOP THE CLOCK 


5463 


047512 


012737 


040000 


001 KO 




MOV 


#RG.$GDDAT 




5464 


047520 


010037 


001136 






MOV 


RO,$eDADR 




5465 


047524 


062737 


000024 


001136 




ADD 


#RMMR1,$BDADR 




5466 


047532 


104275 








EMT 


275 




5467 


047534 


000514 








BR 


400$ 




5468 


047536 








560$: 










047536 


004777 


131776 






JSR 


PCaSTOPCL 


.■STOP THE CLOCK 



5469 
5470 
5471 
5472 

5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
3486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
SSOS 
5506 



047542 
047546 
047546 
047554 
047562 
047564 



047566 
047574 



012703 000021 



012760 
012760 
005303 
001 370 



012760 
012760 



141401 
041401 



041001 
041401 



000024 
000024 



000024 
000024 



.•STEP COMMAND SEQUENCER TO HEAD SEQUENCE. LOCATION 156 (17 CLOCKS) 

MOV #17., R3 

370$: 

MOV #DMD!MUR!MOC!D8EN.'D8CK.RMMR1(R0) .-LOAD RMMRl 

MOV #DMD!MUR:MOC]D8EN.RMMR1(RO) ;L0AD RMMRl 

DEC R3 

BNE 370$ 

.•DROP AND RAJSE ON CYLINDER TO RESET ON LATCH 

MOV #DMD!MUR!DBEN. RMMRl (RO) ;L0AD RMMRl 

MOV #DMD]MUR1M0C !D8EN. RMMRl (RO) ;L0AD RMMRl 

***************************************************************** 



047602 012703 000004 



047606 
047606 
047614 
047622 
047624 
047626 



047632 
047632 
047640 
047646 
047652 
047654 
047656 
047662 
047670 



012760 
012760 
005303 
001370 
012703 



016037 
042737 
•011337 
010204 
000304 
050437 
023737 
001030 



141401 
041401 



050000 



000040 
150000 
001140 



001140 

oor4o 



000024 
000024 



372$: 



MOV 



MOV 



MOV 
MOV 
DEC 
BNE 
MOV 



#450$. R3 



#4.R3 



.-INITIALIZE TABLE POINTER 

HARDWARE ECO CHANGE TO THE PLA ON THE 
CS BOARD. 

CLOCK THE SEQUENCER THRU THE FIRST 

4 COMMAND SEQUENCES TO ALLOW THE PROGRAM 

TO RUN WITH OR WITHOUT THE ECO. 



#DMD!DBEN;MUR.'M0C!D8CK.RMMR1(R0) .-LOAD RMMRl 

#DMD.'DBEN. MURIMOC. RMMRl (RO) ;LOAD RMMRl 



R3 
372$ 

#475$. R3 



DONE 4 CLOCKS ? 
NO ! ! 

INITIALIZE NEW TABLE POINTER 



001142 
001142 



001142 



************************* 

» • 

.VERIFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2 

37b$: 

MOV RMMR2{R0),$8DDAT .-S^ORE RMMR2 AT $8DDAT 

BIC #RQA1RQB!TST.$8DDAT 
MOV (R3),$GDDAT 

MOV R2.R4 .•GENERATE EXPECTED TAG BUS 

SWA8 R4 

BIS R4,$GDDAT 

CMP $GDDAT.$BDDAT 

BNE 390$ 



CZRMPBO PM05/3/2 DSKlS TST 1 
T116 DATA COMMAND TESTS (1) 



B 1 



MACRO V04.00 A-APR-81 01:24:25 PAGE 13-113 



SEO 0209 



5507 
5508 
5509 
5510 
5511 
5512 
5513 
55U 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
552A 
5525 
5526 
5527 
5528 
5529 
5530 
5531 
5532 
5533 
553A 
5535 
5536 
5537 
5538 
5539 
55AO 
55A1 
55A2 
55A3 
55AA 
55A5 
55A6 
5547 
55A8 
55A9 
5550 
5551 
5552 
5553 
555A 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 



OA 7672 
OA 7700 



OA 7706 
OA 771 2 
OA 77K 
0A7716 



OA 7720 
OA 7720 
0A772A 
OA 7732 
0A773A 
0A77A0 
0A77A2 
0A77A2 
0A77A6 
CA7750 



0A7752 
OA 7752 
0A7756 
0A776A 



012760 
012760 



062703 
005713 
100A01 
0007A5 



062702 
032737 
001 A03 
020237 
101615 

020237 
101007 
00061 1 



010037 
062737 
10A276 



0A7766 OOOAAO 



0A7770 
0^7770 
OA 7772 
0A777A 
OA 7776 
050000 
050000 
050002 
05000A 
050006 
050010 



050012 
05001 A 

050016 
050020 
050022 
05002A 
050026 
050030 
050032 
05003A 
050036 
0500A0 
0500A2 
0500AA 



002000 
002000 
022000 
022000 

022000 
022000 
022000 
022000 
^77777 



002000 
001777 
001 777 
001 777 
001777 
001777 
001 777 
001 777' 
001777 
001777 
001 777 
001 777 
001777 
001 777 



1A1A01 
0A1A01 



000002 



00002A 
00002A 



OOOAOO 
010000 

001 33A 
001 33A 



001136 
OOOOAO 



001 33A 



MOV *DMD.MUR,M0C:D8EN.DBCK,RMMR1 (RO) .-LOAD RMMR' 

MOV *DMD.MUR!MOC!D8EN,RMMR1(RO) ;LOAD RMMR1 

.•ADVANCE TO NEXT TA8LE ENTRY 

ADD #2,R3 

TST (R3) 

BMI 380$ 

BR 375$ 

;SHIFT TO NEXT TRACK ADDRESS-EXIT LOOP If DONE 
^80$: 

ADD *TA1,R2 ."ADVANCE TRACK ADDRESS 

BIT *TA16,LSTRK ;IS IT RM05 ? 

BEQ 385S ;N0 !! 

CMP R2.LSTRK ;D0NE WITH TRACKS ON RM05 ? 

BLOS 330S ;N0 !! 

CMP R2.LSTRK ;DONE WITH TRACKS ON RM02/3 ? 

BHI A00$ ;Y£S, EXIT 

BR 330S 



385$: 



001136 



.-ERROR ON TAG BUS DURING HEAD SEQUENCE 
390$: 

MOV R0.$8DADR 
ADD #RMMR2,$BDADR 
EMT 276 



A00$: 



BR 



500S 



.-JUMP OVER TABLE 



.-TABLE Of TAG BUS DURING HEAD SEQUENCE 
A 50$: 



A 75$: 



.WORD 


CH 


.WORD 


CH 


.WORD 


CH.' TAG 


.WORD 


CHI TAG 


.WORD 


CHf TAG 


.WORD 


CH.'TAG 


.WORD 


CH.'TAG 


.WORD 


CH.TAG 


.WORD 


-1 


.WORD 


CH 


.WORD 


CH 


.WORD 


^777 


.WORD 


y777 


.WORD 


\777 


• WORD 


U77 


.WORD 


\777 


.WORD 


m7 


.WORD 


\777 


.WORD 


1777 


.WORD 


\777 


.WORD 


M77 


.WORD 


1777 


.WORD 


1777 


.WORD 


1777 



; START TABLE HE'»E FOR HARDWARE ECO CHANGE 



.-END TABLE HERE FOR HARDWARE ECO CHANGE 



CZRMPBO DSKLS TST 1 

T116 DATA COMMAND TESTS (1) 



C 1 

MACRO VOA.OO 4-APR-81 01:2^:25 PAGE 13-1U 



SEO 0210 



556A 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 



050046 
050050 
050052 
05005A 
050056 
050060 
050062 
050064 



001777 
001777 
001777 
001777 
001777 
001777 
001 777 
001 777 



.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 



1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 



050066 177777 
050070 



.WORD -1 



500$: 



;END Of TA8LE 
;END Of TEST 



.••TEST 117 DATA COMMAND TESTS (2) 

•• *************************************** ********•••***••*• ••*••* 



5578 
5579 
5580 
5581 



050070 
050070 
C50072 
050074 
050100 
050104 
050110 



050116 
050122 
050124 



000004 
000240 
012706 
013700 
013701 
012737 



004737 

000402 
104000 



TST117: 



001100 
001276 
001466 
000117 



054450 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$BASE,RO 
TSTQUE.RI 
xrl17,$TESTN 



.-SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNI8US ADDRESS 

Rl = POINTER TO DEVICE 

.-SET TEST NUMBER IN APT MAIL BOX 



.•VERIFY OPI SETS If ON CYLINDER LATCH DOESNT RESET 



JSR 

BR 

EMT 



5::82 


050126 


000514 






BR 


558i 












5584 










.•ENABLE DEBUG 


5585 


050130 








10$: 


5586 


050130 


012760 


041401 


000024 


MOV 


5587 


050136 


012760 


000000 


000014 


MOV 


5588 


050144 


012760 


000000 


000042 


MOV 


5589 


050152 


012760 


OQOOOO 


000006 


MOV 


5590 


050160 


012760 


000000 


000034 


MOV 


5591 


050166 


0127^0 

1 


000071 


000000 


MOV 


5592 










5593 










.•WAIT FOR RUN 


5594 


050174 


012737 


000310 


001534 


MOV 




050202 


004777 


131330 




JSR 


5595 


050206 








20$: 




050206 


016037 


000024 


001142 


MOV 


5596 


050214 


042737 


137777 


001142 


BIC 


5597 


050222 


001017 






BNC 


5598 


050224 


005737 


001534 




TST 


5599 


050230 


001366 






8NE • 


5600 


050232 


004777 


131302 




JSR 


5601 


050236 


012737 


040000 


001140 


MOV 


5602 


050244 


010037 


001136 




MOV 


5603 


050250 


062737 


000024 


001136 


ADD 


5604 


050256 


104275 






EMT 


5605 


050260 


000437 






BR 


5606 


050262 








30$: 



PC.SETVV 
10$ 

60S 



;G0 SET VOLUME VALID 
.-BRANCH TO 10$ IF NO ERROR 



0m) I MUR !MOC .* DBEN^RMMRI (RO) 



*0.RMER1 (RO) 
#0.RMER2(R0) 
#0.RMOA(R0) 
1IK),RM0C(R0) 
#RD.'GO,RMCS1(R0) 



LOAD RMER1 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

.-LOAD RMCS1 



.-LOAD RMMR1 



*200.. WATCH 
PCaCLOCK 

RMrWl(R0).$8DDAT 
**CR6,$BDDAT 
30$ 
WATCH 
20$ 

PC.aSTOPCL 

*RG.$GDDAT 

R0.$8DADR 

4rRMMR1,$BDADR 

275 

60$ 



;SET WATCHDOG TIMER VALUE 
.-START THE CLOCK 

.-STORE RMMRl AT $8i}DAT 



.-STOP THE CLOCK 



rZRMPBO RM05/5/2 OSKLS TST 1 
Til 7 DATA COMMAND TESTS (2) 



D 1 

MACRO V04.00 4-APR-81 01:2A:25 PAGE 13-115 



SEO 0?1 



5607 
5608 
5609 
5610 

5611 
5612 
5613 
56U 
5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 



050262 004777 131252 



JSR 



PC.aSTOPCL 



;STOP THE CLOCK 



050266 
050272 
050272 
050300 
050306 
050310 
050312 
050320 
050326 
050330 
050336 
0503A2 
050350 
050352 



012702 00C023 



;STEP COMMAND SEQUFNCER AND VERIFY OPI SETS (19 CLOCKS) 



050360 
0503oO 
05036A 
050366 
5626 050370 
5627 
5628 



5629 
5630 
5631 
5632 
5633 
563^ 
5635 
5636 



050372 
050372 
050A00 
050A06 
050AU 
050A22 
050430 



012760 
012760 
005302 
001370 
016037 
042737 
001011 
012737 
010037 
062737 
104277 
012737 



004737 
000402 
104000 
000567 



012760 
012760 
012760 
012760 
012760 
012760 



141401 
041401 



000014 
157777 

020000 
001136 
000014 

050360 



054450 



000024 
000024 



001142 
001142 

001140 

001 1 36 

001124 



40$: 



50$: 



MOV *19,,R2 

MOV *DMD!MUR!M0C.D8EN.D8CK,RMMR1(R0) ;LOAD RMMR1 

MOV *DMD.MUR.MOC!D8EN,RMMRUR0) ;L0AD RMMR"" 

DEC R2 

BNE 40$ 

MOV RMcR1(R0),$aDDAT ;Sr0RE RMER1 AT $8DDAT 

BIC #*C0PI.$8DDAT 

BNE 50$ .-BRANCH If OPI SET 

MOV *0PE.$6DDAT 

MOV RO,$BDADR 

ADD «RMER1,$6DADR 

EMT 277 

MOV #60$.$LPERR .-CHANGE LOOP ON ERROR ADDRESS 



.-VERIFY DATA COMMAND ABORTS DURING SEEK WAIT LOOP 
60$: 

JSR PC.SETVV ;G0 SET VOLUWE VALID 

BR 70$ ; BRANCH TO 70$ IF NO FRROR 

EMT 

BR 140$ 



041401 
000000 
000000 
000000 
000000 
000071 



000024 
000014 
000042 
000034 
000006 
000000 



.•ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
70$: 

MOV tfDMD ! MUR ! MOC ! D8EN,RMMR1 CnO) 



MOV *0.RMER1 (RO) 

MOV #0.RMER2(R0) 

MOV #O.RMDC(RC) 

MOV #O.RMDA(RO) 

MOV #RDi60.RMCS1(R0) 

;WAIT FOR RUN t 60 TO SET 



LOAD RMER1 
LOAD RMER2 
LOAD m>c 
LOAD RMDA 

;LOAD RMCS1 



;LOAD RMMR1 



5638 


050436 


012737 


000310 


001534 




MOV 


#200. .WATCH 


;SET WATCHDOG TIMER VALUE 


050444 


004777 


131066 






JSR 


PC.aCLOCK 


.START THE CLOCK 


5639 


050450 








80$: 










050450 


016037 


000024 


001142 




MOV 


RMMR1 (R0).$8DDAT 


.•STORE RHMR1 AT $8DDAT 


5640 


050456 


042737 


137777 


001142 




BiC 


#*CRG,$BDDAT 




5641 


050464 


001017 








BNE 


90$ 




5642 


050466 


005737 


001 534 






TST 


yATCH 




5643 


050472 


001366 








BNE 


80$ 




5644 


050474 


004777 


131040 






JSR 


PC.aSTOPCL 


.•STOP THE CLOCK 


5645 


050500 


012737 


040000 


001140 




MOV 


#RG.$GDDAT 




5"646 


050506 


010037 


001136 






MOV 


R0.$8DA0R 




5647 


050512 


062737 


000024 


001136 




ADD 


*RMMR1.$8DADR 




5648 


050520 


104275 








EMT 


275 




5649 


050522 


000512 








BR 


140$ 




5650 


050524 








90$: 










050524 


004777 


131010 






JSR 


PC.aSTOPCL 


;STOP THE CLOCK 



5651 
5652 
5653 
5654 

5655 



050530 
050534 
050534 
050542 



012702 000021 



012760 
012760 



141401 
041401 



000024 
000024 



.-STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 

MOV #17..R2 

100$: 

MOV #dmd!mur!Moc.D8En:dbck,rmmri(R0) .-load RMMRI 

MOV *dmd.murimoc.D8En.rmmri(ro) .-load rmmri 



'ZRMPeO RM05/3/2 DSKLS TST 1 
1117 DATA COMMAND TESTS (2) 



E 1 



MACRO m.OO 4-APK-81 01:2A:25 PAGE 13-116 



sfc opyc 



5656 050550 


005302 






5657 050552 


001 370 






5658 








5659 








5660 05055A 


012760 


041001 


000024 


5661 








5662 








5663 050562 


012702 


000037 




566A 050S66 








050566 


012760 


141001 


000024 


5665 050574 


012760 


041001 


000024 


5666 050602 


005302 






5667 05060A 


001 370 






5668 








5669 








5670 050606 


012702 


000006 




5671 050612 








050612 


012760 


U1001 


000024 


5672 050620 


012760 


041001 


000024 


5673 050626 


005302 






567A 050630 


001370 






5675 








5676 








5677 050632 


012760 


041201 


000024 


5678 








56^9 








5680 0506A0 


012702 


000002 




5681 0506AA 








0506AA 


012760 


141201 


000024 


5682 050652 


012760 


041201 


000024 


5683 05066U 


005302 






568^ 050662 


001370 






5685 








5686 








5687 








5688 050664 


012702 


000020 




5689 050670 








050670 


012760 


045501 


000024 


5690 050676 


012760 


041501 


000024 


5691 050704 


016037 


000024 


001142 


5692 050712 


042737 


157777 


001142 


5693 050720 


001013 






5694 








5695 050722 


005302 






5696 050724 


001361 






5697 050726 


012737 


020000 


001140 


5698 050734 


010037 


001136 




5699 050740 


062737 


000024 


001136 


5700 050746 


104300 
01Z737 






5701 050750 


050756 


001124 


5702 








5703 








5704 








5705 050756 








5706 050756 


004737 


054450 




050762 


000402 






050764 


104000 







DEC 
BNE 



R2 
100$ 



.•DROP ON CYLINDER TO RESET LATCH 

MOV #DMD.MUR.DBeN,RMMR1(R0) ;LOAD RMMR1 

;MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS) 

MOV *31.,R2 

110$: 

MOV *D'«ID!MUR!DBEN!D8CK,RMMR1(R0) .LOAD RMMR1 

MOV *DMD.MUR.DBEN.RMMR1(R0) -LOAD RMMR1 

DEC R2 

BNE 110$ 

.•STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES 

MOV *6..R2 

120$: 

MOV #DMD:MUR!DBEN!D8CK.RMMR1 (RO) .-LOAD RMMR1 

MOV *DMD!MUR.D8EN.RMMR1(R0) ;LOAD RMMR1 

DEC R2 

BNE 120$ 

.SET SEEK INCOMPLETE ERROR TO CAUSE ABORT 

MOV #DMD!MUR!DBEN!MSER,R«MR1(R0) ;LOAD RMMRl 

.•CLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
MOV Xf2.R2 

130$: 

MOV *DMD!MUR!DBEN!MSER.'D8CK,RMMR1(R0) ;LOAD RMMR1 

MOV *dmdimur:dben:mser,rmmri{ro) .-load rmmri 

DEC R2 
BNE 130$ 

.•ABORT E8L SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
.•FORCE BIT CLOCKS AND VERIFY THAT E8L SETS WITHIN 16 BIT CLOCKS 



135$: 



MOV 

MOV 
MOV 
MOV 
BIC 
BNE 



DEC 
BNE 
MOV 
MOV 
ADD 
EMT 

140$: MOV 



#16.. R2 



;«AXIMl/1 NUMBER OF BIT CLOCKS 



#DMDIMUR:M0CID8EN!MDF!MCLK.RMMR1(R0) .-LOAD RMMR1 
/rOMD!MURIMOC!DBENJMDF,RMMR1(RO) ;LOAO RMHRl 
RMMR1(R0).$8DDAT .-store RMMRI AT $8DDAT 

#*CE8L.$8DDAT 
140$ 



R2 
135$ 

*E8L.$GDDAT 

R0.$8DADR 

#RMMR1,$8DADR 

300 

#150$,$LPERR 



.•CONTINUE BIT CLOCKS IF COUNT NOT 0 



.•CHANGE LOOP ON ERROR ADDRESS 



.•VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH 
;DOESNT RESET 
1 50$: 

JSR PC.SETVV ;G0 SET VOLUME VALID 

BR 160$ ;8RANCH TO 160$ IF NO ERROR 

EMT 



F 1 



CZRMPBO RM05/3/2 DS<LS TST 1 
T117 DATA COMMAND TESTS (2) 



MACRO VGA. GO 4-AP«-81 G1:24:?5 PAGE 13-117 



SEO 021^ 



5707 

57C8 

5709 

5710 

5711 

5712 

5713 



57U 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 

5725 

5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
573a 
5735 
5736 

5737 
5738 
5739 
5740 

5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 

5753 
5754 
5755 
5756 



050766 000536 



050770 
050770 
050776 
051004 
051010 
051012 
051014 



051016 
051016 
051024 
051032 
051040 



051 046 
051054 
051060 
051060 
051066 
051074 
051076 
051102 
051104 
051110 
051116 
051122 
051130 
051132 
051134 
051134 



051140 
051144 
051144 
051152 
051160 
051162 



051164 
051172 



051200 
051204 
051204 
051212 
051220 
051222 



012760 
012760 
004737 
000402 
104000 
000523 



012760 
012760 
012760 
012760 



012737 
004777 

016037 
042737 
001017 
005737 
001366 
004777 
012737 
010037 
062737 
104275 
000454 



000000 
000000 
054572 



041401 
000000 
000000 
000071 



0C0310 
130456 

000024 
137777 

001534 

1 30430 
040000 
001140 
000024 



004777 130400 



012702 000021 



012760 
012760 
005302 
001370 



012760 
012760 



141401 
041401 



041001 
041401 



012702 000047 



012760 
012760 
005302 
001370 



141401 
041401 



000034 
000006 



000024 
000014 
000042 
000000 



001 534 



001142 
001142 



001140 
001 1 36 



000024 
000024 



000024 
000024 



000024 
000024 



BR 



220$ 



.LOAD ^RACK, SECTOR, AND CYLINDER ADDRESSES 
160$: 



MOV 

MOV 

JSR 

BR 

EMT 

BR 



*O.RMDC(R0) 
*O.RMDA(RO) 
PCSETOM 
170$ 

220$ 



LOAD RMDC 
LOAD RMDA 
GO SET OFFSET MODE 
8RAAICH TO 170$ IF NO ERROR 



.•ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
170$: 

MOV *DMD.MUR!M0CID8EN,RMMR1 (RO) ;L0-.. RMMR' 

MOV *0,RMER1(R0) ;L0AD RMERl 

MOV *0.RMER2(R0) ;L0AD RMER2 

MOV *RD!60,RMCS1(R0) ;LOAD RMCS1 



;UAIT FOR RUN AND 60 TO SET 



180$: 



190$: 



MOV *200., WATCH 

JSR PCaCLOCK 

MOV RMMR1 (R0),$8DDAT 

BIC **CRG,$BDDAT 

BNE 190$ 

TST WATCH 

BNE 180$ 

JSR PC.aSTOPCL 

MOV *RG.$GDDAT 

MOV RO.$GDDAT 

ADD XTRMMRI .$BDADR 

EMT 275 

BR 220$ 

JSR PC.8ST0PCL 



;SET WATCHDOG TIMER VALUE 
.•START THE CLOCK 

.'STORE RMMR1 AT MDDAT 



.-STOP THE CLOCK 



;STOP THE CLOCK 



.-STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 
MOV xri7.,R2 

200$: 

MOV *OMD!MUP!MOC!D8EN1D8CK.RMMR1(RO) ;LOAD RMMR1 

MOV *rDMD!MUR!M0C:D8EN.RMMR1(R0) ;L0AD RMMR1 

DEC R2 
BNE 200$ 

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 

;AT LOCATION 166 

MOV XTDMDIMUR.'DBtN.RMMRl (RO) ;LOAD RMMRI 

MOV *DMD]MUR!DBEN!M0C,RMMR1{R0) .-LOAD RMMRI 

.-MOVE SEQUENCER TO SET OPI AND E8L (39 CLOCKS) 

MOV aZ9.,R2 

210$: 

MOV *DMD.MUR!DBEN!M0C.'D8CK,RMMR1(R0) .-LOAD RMMRi 

MOV *DMD.MUR.DBEN.M0C.RMMR1 (RO) ;LOAD RMMRI 

DEC R2 

BNE 210$ 



CZRMP80 

ni7 

5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 



5770 
5771 
5772 
5773 
5774 
5775 
5776 



5777 
5778 
5779 
5780 

5781 
5782 
5783 
578A 
5785 
5786 

5787 

5788 
5789 
5790 
5791 
5792 
5793 
579A 
5795 
5796 
5797 
5798 

5799 
5800 
5801 
5802 

5803 



RM05/3/2 DSKLS TST 
DATA COMMAND TESTS 



G 1 

1 MACRO V04.00 4-APR-81 01:24:25 PAGE 13-118 
(2) 



051224 
051232 
051240 
051242 
051250 
051254 
051262 
051264 



051272 
051272 
051276 
051300 
051302 



051306 
051306 
051314 
051322 
051326 
051330 
051332 



051334 
051334 
051342 
051350 
051356 



051364 
051372 
051376 
051376 
051404 
051412 
051414 
051420 
051422 
051426 
051434 
051440 
051446 
051450 
051452 
051452 



051456 
051462 
051462 
051470 



016037 
042737 
001011 
012737 
010037 
062737 
104277 
012737 



004737 
000403 
104000 
000137 



012760 
012760 
004737 
000402 
104000 
000567 



01 2760 
012760 
012760 
012760 



012737 
004777 

016037 
042737 
001017 
005737 
001366 
004777 
012737 
010037 
062737 
104275 
000520 



000014 
157777 

020000 
001 1 36 
000014 

051272 



054450 
051712 



000000 
000000 
054572 



041401 
000000 
000000 
000071 



000310 
130140 

000024 
137777 

001534 

130112 
040000 
001136 
000024 



004777 130062 



012702 000021 



SEO 0214 



001142 
001142 

001140 

001136 

001124 



000006 
000034 



000024 
000014 
000042 
000000 



001534 



001142 
001142 



001140 
001136 



.■VERIFY OPI IS SET 



220$: 



MOV RMER1(R0),$BDDAT 

BIC **C0PI.S8DDAT 

BNE 220$ 

MOV #OPI.$GDDAT 

MOV R0,$8DADR 

ADD *RMER1 ,$BDADR 

EMT 277 

MOV *230$.$LPERR ; 



.•STORE RMER1 AT $8DDAT 



CHANGE LOOP ON ERROR ADDRESS 



.-VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP 
230$: 



JSR 
BR 
EMT 
JMP 



PCSETVV 
240$ 

310$ 



;G0 SET VOLUME VALID 
.-BRANCH TO 240$ IF NO ERROR 



.-LOAD SECTOR, TRACK AND CYLINDER ADDRESS 
240$: 



MOV 

MOV 

JSR 

BR 

EMT 

BR 



#O.RMDA(RO) 
#O.RMDC(RO) 
PCSETOM 
245$ 

310$ 



LOAD RMDA 
LOAD RMDC 

GO SET OFFSET MODE 

BRANCH TO 245$ IF NO ERROR 



.-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
245$: 

MOV ffDMD!MUR!M0C!D8EN.RMMR1 (RO) ;LOAD RMMRI 

MOV *0.RMER1(R0) ;LOAD RMER1 

MOV *0,RMER2(R0) ;LOAD RMER2 

MOV *RD!G0,RMCS1(R0) ;LOAD RKCSI 



.-WAIT FOR RUN AND GO TO SET 



250$: 



260$: 



MOV *200.. WATCH 

JSR PC.aCLOCK 

MOV RMMRI {R0),$8DDAT 

BIC ff*CRG,$BDDAT 

BNE 260$ 

TST WATCH 

BNE 250$ 

JSR PC.aSTOPCL 

MOV *RG.$GDDAT 

MOV R0.$8DADR 

ADD #RMMR1 ,$BDADR 

EMT 275 

BR 310$ 

JSR PCaSTOPCL 



;SET WATCHDOG TIMER VALUE 
.•START THE CLOCK 

; STORE RMMRI AT $8DDAT 



.-STOP THE CLOCK 



.-STOP THE CLOCK 



012760 
012760 



141401 
041401 



000024 
000024 



.-STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
MOV *17.,R2 

270$: 

MOV *DMD. MUR.M0C.D8EN.D8CK. RMMRI (RO) .-LOAD RMMRI 

MOV #DMD.MUR.MOC!D8EN.RMMR1(R0) ;LOAD RMMRI 



'■ZR1P80 RM05/^/? DSKLS TST 1 
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H 1 
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580A 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
58U 

5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 

5825 
5826 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
583A 

5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 

5843 
5844 
5845 
5846 
5847 
5848 
5849 
5850 
5851 
5852 
5853 
5854 
5855 
5856 



051476 
051500 



051502 
051510 



051516 
051522 
051522 
051530 
051536 
051540 



051542 



051550 
051554 
051554 
051562 
051570 
051572 



051574 



051602 
051606 
051606 
051614 
051622 
051624 



005302 
001370 



012760 
012760 



012760 
012760 
005302 
001370 



012760 

012702 

012760 
012760 
005502 
001370 

012760 

012702 

012760 
012760 
005302 
001370 



041001 
041401 



012702 000045 



141401 
041401 



041001 

000007 

141001 
041001 

041101 

000002 

141101 
041101 



000024 
000024 



000024 
000024 



000024 



000024 
000024 



000024 



000024 
000024 



DEC 
BNE 



R2 

270$ 



051626 


012702 


000020 






MOV 


051 632 








305$: 




051632 


012760 


045501 


000024 




MOV 


051640 


012760 


041501 


000024 




MOV 


051646 


016037 


000024 


001142 




MOV 


051654 


042737 


157777 


001142 




8IC 


051662 


001013 








BNE 


051664 


005302 








DEC 


051666 


001361 








BNE 


051670 


012737 


020000 


001140 




MOV 


051676 


010037 


001136 






MOV 


051702 


062737 


000024 


001136 




ADD 


051710 


104271 








EMT 


051712 


012737 


051720 


001124 


310$: 


MOV 



.•DROP ON CYLINDER TO RESET LATCH. SET ON CYLINDER TO PASS TEST 

;AT LOCATION 166 

MOV *DMD!MUR!DBEN.RMMR1 (RO) ;LOAD RMMR1 

MOV *DMD.MUR.M0C!D8EN,RMMRUR0) ;LOAD RMMR1 

.•MOVE SEQUENCER TO LOCATION 174 (37 ClOCKS) 
MOV *37..R2 

280$: 

MOV #DMD.MUR!M0C!D8EN.D8CK,RMMR1(R0) ;L0AD RMMRl 

MOV *DMD!MUR!M0C!D8EN.RMMR1 (RO) ;L0AD RMMRl 
DEC R2 
BNE 280$ 

;DR0P ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET 
MOV /?DMD .'MURiDBEN, RMMRl (RO) ;L0AD RMMRl 

.•STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS) 

MOV #7.,R2 

290$: 

MOV *DMDIMUR!D8EN!D8CK,RMMR1 (RO) ;L0AD RMMRl 

MOV #DMDlMURiD8EN, RMMRl (R0> ;L0AD RMMRl 

DEC R2 

BNE 290$ 

;SET DRIVE FAULT TO CAUSE ABORT CONDITION 

MOV *DMDIMUR!D8EN.'MDF.RMMR1 (RO) ;L0AD RMMRl 

.-STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
MOV ^2.R2 

300$: 

MOV #DMDIMUR:D8EN1MDF!D8CK.RMMR1(R0) .-load RMMRl 

MOV ^DMD IMURiOBEN.'MDF, RMMRl (RO) .•LOAD RMMRl 
DEC R2 
BNE 300$ 

; ABORT E8L SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
.•FORCE BIT CLOCKS AND VERIFY THAT E8L SETS WITHIN 16 BIT CLOCKS 
*16.,R2 .-MAXIMUM NUMBER OF BIT CLOCKS 

*DMD!MUR!M0C!D8EN:mDF!MCLK. RMMRl (RO) ;LOAD RMMRl 
*DMD .'MURIMOCIDSENIMDF. RMMRl (RO) ;LOAD RMMRl 
RMMRl (R0).$8DDAT ;ST0RE RIWl AT $8DDAT 

#*CEBL.$8DDAT 
310$ 



R2 
305$ 

*E8L,$GDDAT 

R0,$8DADR 

*RMMR1,$BDADR 

271 



.•CONTINUE BIT CLOCKS IF COUNT NOT 0 



#320$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 



fZRMPBO RM05/3/2 DSKL5 TST 1 
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5857 
5858 
5859 



5860 
5861 
5862 
5863 
586A 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 

5873 

587A 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
588i 
5884 

5885 
5886 
5887 
5888 

5889 
5890 
5891 
5892 
5893 
589A 
5895 
5896 
5897 
5898 
5899 

5900 
5901 
5902 
5903 
5904 
5905 



051720 
051720 
051 72A 
051726 
051730 



051734 
051 73A 
051 7A2 
051750 
051756 
051 76A 
051772 



052000 
052006 
052012 
052012 
052020 
052026 
052030 
05203A 
052036 
0520A2 
052050 
05205A 
052062 
05206A 
052066 
052066 



052072 
052076 
052076 
0521 OA 
052112 
0521 1 A 



0521 2A 
052130 
052130 
052136 
052UA 
0521A6 



00A737 
000A03 
10A000 
000137 



012760 
012760 
012760 
012760 
012760 
012760 



012737 
OOA 777 

016037 
0A2737 
001017 
005737 
001366 
OOA 777 
012737 
010037 
062737 
10A275 
00053A 



012760 
012760 
005302 
001370 



05AA50 
052356 



0A1A01 
000000 
000000 
000000 
000000 
000071 



000310 
12752A 

00002A 
137777 

001 53A 

127A76 
OAOOOO 
001136 
00002A 



OOA 777 127AA6 



012702 000021 



lAlAOl 
0A1A01 



SEO 0?16 



012702 0000A2 



012760 
012760 
005302 
001370 



lAUOl 
0-vlAOI 



00002A 
00001 A 
0000A2 
000006 
00003A 
000000 



001 53A 



001 1A2 
00nA2 



0011 AO 
001 1 36 



00002A 
00002A 



052116 012760 OA 1001 00002A 



00002A 
00002A 



.-VERIFY THAT DATA COMMAND A80RTS DURING SECTOR WAIT LOOP AT LOCATION 179 
320$: 



JSR 
BR 
EMT 
JMP 



PC.SETVV 
330$ 

A 20$ 



;G0 SET VOLUME VALID 
;8RANCH 10 330$ IF NO ERROR 



:ENASLE DEBUG CLOCK AND LOAD DATA COMMAND 
^30$: 

MOV *DMD!MUR!MOC.DBEN,RMMR1(R0) 



MOV *0.RMER1 (RO) 

MOV *0.RMER2(R0) 

MOV *O.RMDA(RO) 

MOV *0,RMDC(RO) 

MOV *RD!G0,RMCS1(R0) 



LOAD RMER1 
LOAD RMER2 
LOAD RMDA 
LOAD RMDC 

;LOAD RMCSl 



:LOAD RMMR1 



.•WAIT FOR RUN AND 60 TO SET 



3A0$: 



350$: 



MOV *200. .WATCH 

JSR PC. aCLOCK 

MOV RMMRl (R0).$8DDAT 

81 C #*CRG,$8DDAT 

BNE 350$ 

TST WATCH 

BNE 3A0$ 

JSR PCaSTOPCL ; 

MOV *RG.$GDDAT 

MOV R0,$8DADR 

ADD #»«f1Rl,$8DADR 

EMT 275 

BR A20$ 

JSR PC.aSTOPCL 



.-SET WATCHDOG TIMER VALUE 
.•START THE CLOCK 



.•STORE RMMRl AT $8DDAT 



STOP THE CLOCK 



;STOP THE CLOCK 



.STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
MOV *17.,R2 

360$: 

MOV #DMD!MUR!M0C!D8EN!D8CK, RMMRl (RO) .-LOAD RMMRl 

MOV *D«D!MUR!MOC.'D8EN.RMMR1(R0) ;LOAD RMMRl 
DEC R2 
BNE 360$ 

.-DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
;AT LOCATION 166 

MOV #DMD!MURID8EN,RMMR1(R0) ;LOAD RMMRl 

.•MOVE SEQUENCER TO SECTOR WAIT (3A CLOCKS) 
MOV *3A..R2 

370$: 

MOV *DMDIMUR!M0C!D8EN:D8CK. RMMRl (RO) ;LOAD RMMRl 

MOV *DMDIMUR!M0C!D8EN,RMMR1 (RO) ;LOAD PtMMRI 
DEC R2 
BNE 370$ 

.•STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED 
.•DURING THE LOOP (6 CLOCKS) 
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5906 
5907 

5908 

5909 

5910 

5911 

5912 

5913 

59U 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 
5924 
5925 
5926 

5927 
5928 
5929 
5930 
5931 
5932 
5933 
593^ 

5935 
5936 
5937 
5938 
5939 
59A0 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 



052150 
052154 
052154 
052162 
052170 
052176 
052204 
052206 
052210 
052212 
052214 
052222 
052226 
052234 
052236 



052240 
052240 



052246 
052252 
052252 
052260 
052266 
052270 



052272 
052276 
052276 
052304 



052312 
052320 
052326 

052330 
052332 
052334 
052342 
052346 
052354 

052356 



012702 

012760 
012760 
016037 
042737 
001403 
005302 
001361 
000412 
012737 
010037 
062737 
104301 
000447 



012760 

012702 

012760 
012760 
005305 
001370 



000006 






MOV 


*6..R2 




380$: 




#DMD.MUR.M0C:D8EN.D8C<,RMMR1 (RO) 


141401 


000024 




MOV 


041401 


000024 




MOV 


*DMD!MUR!M0C!D8EN,RMMR1 (RO) 


000024 
173777 


001142 




MOV 


RMMR1 (RO) .$8DDAT ; STORE R 


001142 




BIG 


**CESRC,$BDDAT 






BEQ 
DEC 
BNE 
BR 


390$ 
R2 

380$ 
400$ 


004000 


001140 


390$: 


MOV 


#ESRC,$6DDAT 


001136 






MOV 


R0,$8DADR 


000024 


001136 




ADD 


/TRMMRI ,$BDADR 






EMT 
BR 


301 
420$ 



041501 

000002 

141501 
041501 



012702 000020 



012760 
012760 



016037 
042737 
001013 

005302 
001361 
012737 
010037 
062737 
104271 



045501 
041501 



000024 
157777 



020000 
001136 
000024 



052356 

052356 000004 

052360 000240 

052362 012706 001100 



.•LOAD RMMR1 
;LOAD RMMR1 



000024 



000024 
000024 



000024 
000024 



001142 
001142 



001140 
001136 



;SET DRIVE FAULT TO CAUSE ABORT CONDITION 
400$: 

MOV /ITDMDIMUR.MOC.'DBENIMDF.RMMRVRO) ;LOAD RMMR1 

.•STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
MOV M2,R2 

410$: 

MOV *DMD!MUR!M0C!D8EN!MDF!D8CK.RMMR1(R0) ;lOAD R«MR1 
MOV #DMD!MUR!MOC!DBEN!MDF,RMMR1(RO) .'LOAD RMMRI 
DEC R2 
BNE 410$ 

.-ABORT E8L SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
.•FORCE BIT CLOCKS AND VERIFY THAT E8L SETS WITHIN 16 BIT CLOCKS 
MOV #16.. R2 :MAXinun NLfCER OF BIT CLOCKS 

415$: 

MOV *DMD!MUR!M0C!D8EN!MDF!«CLK,RMMR1(R0) ;L0AD RW1 

MOV #dmdimur:moc.'D6En!«df.rmmri(ro) .-load RMWI 



.•VERIFY EBL IS SET 



MOV RMMR1(R0).$8DDAT 

BIC #*C£8L,$BDDAT 

BNE 420$ 

DEC R2 

BNE 415$ 

MOV #E8L,$GDDAT 

MOV R0,$8DADR 

ADD #RMMR1 .$BDADR 

EMT 271 



.STORE RHMRI AT $8DDAT 



.•CONTINUE BIT CLOCKS IF COUNT NOT 0 



SEO 02V 



420$: 



;END OF TEST 



'»»**•»•»•»♦•»*»»»»»•♦♦»»»»•»»»•»•»»»»»***••••••••»•»•»•*•••»»•• 



;*TESr 120 DATA COMMAND TESTS (3) 



TST120: 



SCOPE 
NOP 

MOV #STACK.SP 



.•SCOPE CALL 

;LOAD THE STACK POINTER 
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T120 DATA COMMAND TESTS (3) 
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5983 
598A 
5985 
5986 
5987 
5988 
5989 
5990 



5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 



05250A 
052506 
052510 



0525K 
0525K 
052522 
052530 
052536 
052542 
052544 
052546 



052552 
052552 
052560 



052566 
052574 
052602 



000403 
104000 
000137 



013760 
013760 
013760 
004737 
000403 
104000 
000137 



013760 
013760 



012760 
012760 
012760 



053402 



001420 
001446 
001444 
054572 



053402 



001414 
001416 



041401 
000000 
000000 



SEO 0218 





052366 


01 3700 


001276 






052372 


013701 


C01466 






052376 


012737 


000120 


001226 


5952 










5953 










5954 










5955 










5956 










5957 


052404 


012737 


001466 


001446 


5958 


052412 


013737 


001 334 


001420 


5959 


052420 


112737 


000035 


001420 


5960 


052426 








5961 


052426 


012737 


000200 


001444 


5962 


052434 


012737 


000071 


001412 


5%3 


052442 


012737 


1 77400 


001414 


5964 


052450 


012737 


104312 


001416 


5965 










5966 










5967 


052456 


004737 


052500 




5968 










5969 










5970 










5971 


052462 


112737 


000000 


001444 


5972 










5973 










5974 


052470 


004737 


052500 




5975 


052474 


000137 


053564 




5976 










5977 










5978 










5979 










5980 










5981 


052500 








5982 


052500 


004737 


054450 





000006 
000034 
000032 



000002 
000004 



000024 
000014 
000042 



MOV 
MOV 
MOV 



$8ASE.R0 

TSTQUE,R1 

#120,$TESTN 



RO = UNI8US ADDRESS 

R1 - POINTER TO DEVICE 

.-SET TEST NUMBER IN APT MAIL BOX 



.•VERIFY THE TAG BUS DURING DATA COMMAND 
.•FIRST PART USES OFFSET FORWARD 

.•LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 



5$: 



MOV *822..RMDC0 

MOV LSTRK.RMDAO 

M0V8 #29.,RMDA0 

MOV tfOFD.RMOFO 

MOV tfRD.GO.RMCSIO 

MOV *-256. .RMWCO 

MOV #8UFFER.RMBA0 



.•LAST CYLINDER 
.-SETUP LAST TRACK AND 
.-LAST SECTOR 

.•FORWARD OFFSET 
.•READ DATA 
.-WORD COUNT 
.•BUFFER ADDRESS 



.•EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC. 10$ 

.•SECOND PART USES OFFSET REVERSE 
;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
MOVB *0,RMOFO .-REVERSE OFFSET 

.'EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC, 10$ 
JMP 300$ 

•**••*•*•***••••******••**••**•*•*•**••••*••*•**•**•************ 

SUBROUTINE USED DURING TEST 



10$: 



JSR 
BR 
EMT 
JMP 



PCSETVV 
20$ 

160$ 



;G0 SET VOLUME VALID 
.-BRANCH TO 20$ IF NO ERROR 



.-LOAD TRACK. SECTOR AND CYLINDER ADDRESS, LOAD OFFSET 
20$: 

RMDAO.RMDA(RO) 
R«DCO,RMDC(RO) 
RMOFO.RMOF(RO) 
PC.SETOM 
30$ 



MOV 
MOV 
MOV 
JSR 
BR 
EMT 
JMP 



.•LOAD RMDA 
.-LOAD RMDC 
.•LOAD RMOF 
;G0 SET OFFSET MODE 
.•BRANCH TO 30$ I^ NO ERROR 



160$ 



;LOAD BUFFER ADDRESS AND WORD COUNT 
^0$: 

MOV RMWCO,RMWC(R0) ;L0AD RMWC 
MOV RMBAO,RMBA(R0) ;LOAD RMBA 

; ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
MOV tfDMDIMUR!M0C.DBEN,RMMR1 (RO) 
MOV tfO.RMERKRO) ;LOAD RMER1 
MOV #0.RMER2(R0) ;LOAD RMER2 



.•LOAD RMMR1 



CZRMPBO RM05/3/2 OSKLS TST 1 
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SEO OPT/ 



6002 
6003 
600A 
6005 

6006 

6007 
6008 
6009 
6010 
6011 
6012 
6015 
60U 
6015 
6016 
6017 

6018 
6019 
6020 
6021 
6022 

6023 
602A 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
603A 
6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 



052610 013760 001412 



052616 
052624 
052630 
052630 
052636 
052644 
052646 
052652 
052654 
052660 
052666 
052672 
052700 
05270? 
052706 
052706 
C52712 



053044 
053044 
053052 



012737 
004777 

016037 
042737 
001020 
005737 
001366 
004777 
012737 
010037 
062737 
104275 
000137 

004777 
012704 



000310 
126706 

000024 
M7777 

001534 

126660 
040000 
001136 
000024 

053402 

126626 
053404 



000000 
001534 



001142 
001142 



001140 
001136 



MOV 



RMCS10,RMCS1(R0) 



.LOAD RMCS1 



.-WAIT FOR RUN AND GO TO SET 



40$: 



50$: 



MOV #200.. WATCH 

JSR PC.aCLOCK 

MOV RMMft1(R0),$8DDAT 

81 C #*CRG.$DDDAT 

BNE 50$ 

TST WATCH 

BNE 40$ 

JSR PC.aSTOPCL i 

MOV #RG.$GDDAT 

MOV R0.$8DADR 

ADD #RMMfi1,$BDADR 

EMT 275 

JMP 160$ 

JSR PCaSTOPCL 

MOV #200$, R4 



;SET WATCHDOG TIMER VALUE 
.•START THE CLOCK 

.•STORE RMMR1 AT $8DDAT 



STOP THE CLOCK 



;ST0P THE CLOCK 
;R4 = TA8LE POINTER 











;STEP 


SEQUEf 


052716 


012705 


000021 






MOV 


052722 








60$: 




052722 


016037 


000040 


001142 




MOV 










• - ********* 


052730 


013737 


001142 


001174 




MOV 


052736 


042737 


171777 


001174 




BIC 


052744 


022737 


006000 


001174 




CMP 


052752 


001414 






« 0 


BEQ 


052754 


042737 


150000 


001142 




BIC 


052762 


012437 


001140 






MOV 


052766 


053737 


001446 


001140 




BIS 


052774 


023737 


001140 


001142 




CMP 


053002 


001011 








BNE 


053004 








65$: 




053004 


012760 


141401 


000024 




MOV 


053012 


012760 


041401 


000024 




MOV 


053020 


005305 








DEC 


053022 


001337 








BNE 


053024 


000407 








BR 


053026 


010037 


001136 




70$: 


MOV 


053032 


062737 


000040 


001136 




ADD 


053040 


104276 








EMT 


053042 


000557 








BR 



012760 
012760 



041001 
041401 



000024 
000024 



#17.,R5 ;R5 = CLOCK COUNT 

RMMR2(R0),$BDDAT .STORE RMMR2 AT $8DDAT 

• ••»••••*•**••*»•»»*♦■»»♦■*»•*»■•»••»*»•*»*»»»•*••»*•**»*•»••**»•• 

$8DDAT,$TMP0 ;If CC AND CH ARE SET AT THE SAME TIME 
.THE ECO TO THE CS BOARD IS IMPLEMENTED. 

#*C<CC!CH>,$TMPO .SAVE CC AND CH BITS 

#CC!CH,$TMPO ;ARE CC AND CH SET ? 
65$ ;yES, BRANCH TO NEW LOCATION 

#RQA!RQB:TST,$8DDAT 
(R4)*.$GDDAT 

RMDCO,$GDDAT :0R CYLINDER ADDRESS 
$6DDAT,$BDDAT 

70$ .-BRANCH IF TAG BUS WRONG 

#DMDlMUR!MOC!D8EN!D8CK,RMf1R1{R0) ;LOAD RHHRl 

#DMD!MUR:MOC!D8EN,RMMR1(RO) .-load RMMRl 
R5 
60$ 
80$ 

R0,$6DADR 
#RMMR2,$BDADR 

276 
160$ 

;DR0P on CYLINDER TO RESET LATCH. SET ON CYLINDER TO PASS TEST AT 

.•LOCATION 166 

80$: 

MOV #DMD .'MURIDBEN, RMMRl (RO) ;LOAD RMMRl 

MOV #DMD .'MUR.M0C.D8EN. RMMRl (RO) ."LOAD RMMRl 



C2RMPB0 RM05/5/2 DSKLS TST 1 
T120 DATA COMMAND TESTS (3) 









AAAAi 1 
UUUU** J 






AC A 


A^ 07AC 






AC 7A^ / 










AC TA^ y 

05306A 


A^ ZAT7 

016057 


AAAA/ A 

000040 


AAI 1/0 

001 14^ 


6058 










AC A 

6059 








AA1 1 7A 
UU 1 1 f *• 


6060 


0530r2 


A1 7717 

Ul 3r 3/^ 


AAI 1/0 
001 1*»C 


AZ. 1 

6061 










606*: 








AAI 1 7A 
UU 1 1 f H 


60o3 


AC11 AA 

U531U0 


A/ 0777 


1 71 777 


606*» 


ACH A^ 


A00777 


AAAAAA 
UUoUUU 


AAI 1 7A 
UU 1 1 f H 


60o5 


053 1»» 


AA1 AA7 

001 UU3 






6066 


0531 16 


1 6c ^U*» 


AAAAAO 
UUUUUc 




606r 


0531 


AAA/ / 1 

U00*i*»l 






oUoo 


0531 c*» 








oOoV 










oO/^O 










60/^ 1 


Uj J 1 CH 




1 ^AAAA 
1 jUUUU 


AA1 1 AO 
UU 1 1 *tc 




UD31 3t: 


A1 1 / 77 
U 1 1 H3f 


AAI 1 AA 
UU I 1 hU 




60/^3 


0531 36 




APOAAA 
UUcUUU 




A.A7/ 


Uj3 Ihc 


AAI 

UU 1 HC J 






/:.A7Q 
6L.V J 


0j31m«» 




AAAAAA 




iLA7A 

6U/^o 


UD31 30 


AAI Z. 1 A 






AA77 










AA7fi 










OUf 7 


Uj J 1 Jc 


n';?777 


AAAAI A 
UUUU 1 U 


AAI 1 AA 
Uv 1 1 •♦v 


<^fiA 


An 

VJJ I ou 


A70777 
Ujc' Jf 


AAAOAA 

\J\JMC\jyj 




oUo i 


\JjJ 1 oo 


AAI AAA 
UU 1 *tUO 






6Uo<: 


AQ71 7n 

Uj3 I ^^U 


AA 5777 


AAAA1 A 
UUUU 1 U 


AAI 1 AA 
UU 1 1 hU 


oUoj 


A^^l 7A 
Uj3 I O 


A^?777 


AAAAAA 


AAI 1 AA 
UU 1 1 HU 


OvO*» 




AAAAA^ 
UUUHUt 






OUOJ 










6UoO 










4U^fi7 

OUof 


AC75nA 








oUoo 




1 1 77A7 
1 1 Jf Uj 


AAI API 

UU 1 MC 1 




6UoV 


U J 1 c 


A^n777 
UjUj_ f 


AAI 1 AA 
UU 1 1 tu 




oUtU 










AAQ1 
OU7 1 












AQTOI A 








^AQ7 


nQ'iDi A 

U33c 1 O 


A57777 


AAI 1 AA 
UU 1 1 hU 


AA11AP 
UU 1 1 HC 


ouv*» 


ACTOO/. 

U33cc'» 


AAI A1 7 
UU 1 U 1 J 






oUV5 


053ccO 










053<:co 


A1 57AA 
U ICf^OU 


1 A 1 AAI 
1 H 1 hU I 


AAAAPA 
UUUUcH 


AAQ4L 

oUtO 


A^TOIA 
VJJCJ** 


A1 57AA 
U 1 cfO\J 


AA 1 AAI 
Uh I hU I 


A AAA OA 
UUUUcH 


tJ\Q7 




AAP7nA 
UOc f U*» 


AAAAA? 
UUUUUc 




AAQfl 
OUtO 




uuj ju J 






OV77 


\JjDCJ\J 


UU 1 jyjj 






o 1 uu 


Uj JC 


AAA^A7 






O lU 1 




A1 AA77 
U 1 UU J f 


AA1 1 7A 
UU 1 1 jO 




O lUc 


UjjcOU 


AAP777 
UOc f Jf 


AAAAAA 


AAI 1 7A 
UU 1 1 JO 


610^ 


053P66 


10A276 






610A 


053270 


000444 






6105 










6106 










6107 










6108 


053272 








6109 


053272 


012760 


041001 


000024 
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.•STEP SEQUENCER TO END OF OFFSET AT LOCATION 174 (37 CLOCKS) 
MOV *37.,R5 .-RELOAD CLOCK COUNT 

90$: 

MOV RMMR2(R0),$8DDAT ;ST0RE RMMR2 AT $8DDAT 



SEO 0220 



92$: 



MOV $8DDAT.$TMP0 



BIC #*C<CC!CH>,$TMPO 

CMP #CC!CH.$TMPO 

BNE 92$ 

SUB *2.R4 

BR 115$ 



;IF CC AND CH ARE SET AT SAME TIME 

.-THE ECO TO THE CS BOARD IS IMPLEMENTED. 

;SAVE CC AND CH BITS 
ARE CC AND CH SET ? 
NO !! 

ADJUST THE TABLE ADDRESS 
TO OTHER LOCATION 



BIC /irROA!RQB!TST.$BDDAT 

MOV (R4).$GDDAT 

BIT /lfCH,(R4) 

BEQ 110$ .-BRANCH IF CONTROL /HEADER NOT ON 

BIT *CC.(R4) 

BEO 100$ .-BRANCH IF HEADER TAG 

.-CONTROL TAG SHOULD BE ON-SETUP EXPECTED OFFSET 

BIS *8803.$GDDAT .-ASSUME OFD IS NOT SET 

BIT /(fOFD.RMOFO 

BEQ 95$ 

BIC *8803.$GDDAT .-RESET BUS BIT 3 - DIRECTION IS REV 

BIS «8B02.$GDDAT 

95$: BR 110$ 

.•HEADER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS 
100$: 

MOVB RMDA0+1,R3 ;GET TRACK 

BIS R3.$GDDAT 

; COMPARE EXPECTED AND RECEIVED TAG BUS DATA 
110$: 

CMP $GDDAT.$8DDAT 

BNE 120$ 



115$: 



120$: 



MOV /)rDMD!MUR!M0C!DBEN!D8CK.RMMRl (RO) ;LOAD RMMR1 

MOV #DMDIMUR!M0C:D8EN.RMMR1 (RO) .-LOAD RMMR1 

ADD /!'2.R4 .-move TABLE POINTER 

DEC R5 .-DECREMENT CLOCK COUNT 

BNE 90$ 

BR 130$ 

MOV RO.SSDADR 

ADD #RMMR2,$BDADR 

EMT 276 

BR 160$ 



.-DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT 

.-SEQUENCER LOCATION 175 

130$: 

MOV *DMD!MUR:DBEN,RMMR1(R0) .-LOAD RMMR1 



CZRMPBO RM05/3/2 DSKLS TST 1 
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SfO 0221 



6110 


053300 


01 2760 


Ay 4 / A4 

041401 


6111 








6112 






00001 0 


6113 


053306 


012705 


61 K 


053312 








053312 


016037 


A AAA/ A 

000040 


6115 








6116 








6117 








6118 








6119 








6120 








6121 






171777 


6122 


053320 


042737 


6123 


053326 


y\4 ■\^7^ 

012737 


AA^ AAA 

006000 


61 2A 








6125 








61 26 


053334 


023737 


001 140 


6127 


053342 


001011 




6128 


053344 


01 2760 


141401 


6129 


053352 


012760 


A/ 1 y A 1 
OhIhO I 


6130 


053360 


005305 




6131 


053362 


001353 




6132 


r 7 7z / 

053364 


000406 




d 1 7T 

6133 


f\C 77Z Z 

053366 


A1 AA77 

01003/ 


AAI 1 TiL 

001130 


6134 


053372 


062737 


A AAA/ A 

000040 


6135 


053400 


104276 




6136 








6137 


053402 


AAA TA'^ 

000207 




6138 








6139 








61 AO 


053404 






61A1 


053404 


■7'7"7 

001 777 




6U2 


053406 


AAI 

001777 




6143 


053410 


001 777 




6144 


053412 


AAI ■^■^'7 

001777 




6145 


053414 


AA^ 7'^'7 

001 777 




6146 


053416 


AAI "y 7f 

001 7/^7 




6147 


053420 


AA / AAA 

004000 




6148 


053422 


004000 




6149 


053424 


A / AAA 

024000 




6150 


/\P7 J 

053426 


A^y AAA 

024000 




6151 


/\ P 7 / 7/N 

053430 


A / AAA 

024000 




6152 


053432 


A^ / AAA 

024000 




61 53 


/\ r 7 / 7 / 

053434 


A'^ / AAA 

024000 




6154 


r 7 / 7^ 

053436 


A / AAA 

024000 




61 55 


053440 


AA / AAA 

004000 




6156 


053442 


A A / AAA 

004000 




6157 


05344<» 


AAI 7*77 

001 777 




6158 


053446 


AAO A A A 

002000 












6160 


053452 


022000 




6161 


053454 


022000 




6162 


053456 


022000 




6163 


053460 


022000 




6164 


053462 


022000 




6165 


053464 


022000 





000024 



001142 



MOV 



*DMD!MUR.M0C.D8EN,RMMR1 (RO) 



;LOAD RMMR1 



001142 
001140 



001142 

000024 
000024 



001136 



.•STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS) 
MOV *8.,R5 

140$: 

MOV R»>WR2(R0).$BDDAT .-STORE RMMR2 AT SBDDAT 

..****«****************************************•************•**•• 

'•' eiC #RQA.RQ8.TST,$8DDAT 

THE FOLLOWING CODE WAS ADDED 
;T0 ALLOW THE PROGRAM TO RUN WITH 
;0R WITHOUT ECO TO THE CS BOARD. 

SIC **C<CC!CH>,$8DDAT ;SAVE CC AND CH BITS 

MOV *CC.CH,$GDDAT ;GET EXPECTED DATA 
•»*****♦ ********************** ****««•****♦ **********♦****•••***•* 



150$: 



CMP 

BNE 

MOV 

MOV 

DEC 

BNE 

BR 

MOV 

ADD 

EMT 



160$: RTS 



$GDDAT,$8DDAT ;GOOD DATA SAME AS LAST CMP 
150$ .-BRANCH IF ERROR 

*DMD!MUR.M0C.D8EN!D8CK,RMMR1(R0) ;LOAD RMMRl 

*DMD.MUR!M0C!D8EN,RMMR1(R0) ."LOAD RMMRl 

R5 

140$ 
160$ 

R0.$8DADR 

«RMMR2.$6DADR 

276 

PC 



0 

25 

26 

128 

129 

130 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

156 

157 

158 

159 

160 

161 

162 

163 



.-TABLE OF TAG 


BUS CONTROL AND DATA VALUES 


200$: 






.WORD 


1777 


LOCATION 


.WORD 


1777 


LOCATION 


.WORD 


1777 


LOCATION 


.WORD 


1777 


LOCATION 


.WORD 


1777 


LOCATION 


.WORD 


1777 


LOCATION 


• WORD 


CC 


•LOCATION 


.WORD 


CC 


•LOCATION 


.WORD 


CC ! TAG 


LOCATION 


.WORD 


CCiTAG 


•LOCATION 


.WORD 


CC1TA6 


.LOCATION 


.WORD 


C CI TAG 


; LOCATION 


.WORD 


CC ! TAG 


LOCATION 


.WORD 


CCiTAG 


•LOCATION 


.WORD 


CC 


•LOCATION 


.WORD 


CC 


•LOCATION 


.WORD 


1777 


;LOCATION 


.WORD 


CH 


LOCATION 


.WORD 


CH 


LOCATION 


.WORD 


CH.TAG 


-LOCATION 


.WORD 


CHiTAG 


-LOCATION 


.WORD 


CHITAG 


LOCATION 


.WORD 


CHITAG 


.•LOCATION 


.WORD 


CH.TAG 


; LOCATION 


.WORD 


CH.'TAG 


.•LOCATION 



CZ«MP80 RM05/5/2 DSKLS TST 1 
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SEO 0222 



6166 
6167 
6168 
6169 
61 70 
6171 
6172 
6173 
61 7A 
6175 
6176 
6177 
61/8 
6179 
6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
619A 
6195 
6196 
619/ 
6198 



053466 
053470 
053472 
053474 
053476 
053500 
053502 
053504 
053506 
053510 
053512 
053514 
053516 
053520 
053522 
053524 
053526 
053530 
053532 
053554 
053536 
053540 
053542 
053544 
053546 
053550 
053552 
053554 
053556 
053560 
053562 

053564 



002000 
002000 
001777 
001 777 
001777 
001777 
001 777 
001777 
001 777 
001 777 
001777 
001777 
001777 
001777 
001777 
001777 
001 777 
001777 
001777 
001777 
001777 
001 777 
001777 
001 777 
006000 
006000 
026000 
026000 
026000 
026000 
026000 



.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
lOftD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



CH 
CH 

1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
1777 
\777 
y777 
\777 
\777 
CC.'CH 
CCJCH 
CC.'CH 
CCICH 

cc;ch:tag 
cc chi tag 
ccich! tag 



!TAG 
'TAG 



300$: 



LOCATJON 

LOCATION 

LOCATJON 

LOCATJON 

LOCATION 

LOCATJON 

LOCATJON 

LOCATION 

LOCATION 

LOCATION 

LOCATJON 

LOCATION 

LOCATION 

LOCATJON 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

LOCATION 



164 

165 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

166 

169 

170 

171 

172 

173 

174 

175. ETC 



END Of TEST 



CZRilPeU RM05/5/2 DSKLS TST 1 
END OF SUB-PASS ROUTINE 



1 
2 
3 

5 
6 
7 
8 

9 053564 
^0 053566 

11 053570 

12 053574 

13 053600 

14 053604 

15 053606 

16 053610 

17 0536U 
18 

19 
20 
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SEO 0223 



053622 
053622 
053624 
053630 
053634 
053640 
053646 
053650 
055652 
053654 
053656 
053660 
053662 
C53666 

053706 
053706 

U53712 
053714 
053720 
053722 
053726 

053772 
053772 

C53776 
054000 



000240 
005037 
005037 
005237 
042737 
005327 
000001 
003066 
012737 
000001 
053650 
104401 
000407 



104405 
005737 
001431 
104401 
000421 



01 3746 

104405 
005037 



.S8TTL END OF SUB-PASS ROUTINE 

THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST. EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN 
IS MADE TO 'READY' ROUTINE. 



000004 


JEOSP; 


SCOPE 






000240 




NOP 






013700 


001466 


MOV 


TSTQUE.RO 


;GET POINTER TO TSTQUE 


062700 


000002 


ADD 


#2.R0 


.•ADJUST POINTER TO NEXT DEVICE 


010037 


001466 


MOV 


RO,TSTQUE 


.•SAVE POINTER TO TSTOUE 


005710 




TST 


(RO) 


;ANY MORE DEVICES FOR TEST ? 


001402 




BEQ 


1$ 


;BR IF NO 


000137 


007120 


JMP 


READY 


;YES, JUMP TO 'READY' ROUTINE 


012737 


001470 001466 1$: 


MOV 


#TSTQUE*2.rSTQUE 


.•INITIALIZE POINTER TO 






;TEST QUE TABLE 




.S8TTL 


END OF 


PASS ROUTINE 





•INCREMENT THE PASS NUMBER (5PASS) 

•TYPE *tW PASS MXXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYVYY* 
•WHERE XXXXX AM) YYYYY ARE DECIMAL NUMBERS 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO READY 



$EOP: 



001116 
001206 
001230 
100000 



001230 



053670 



013746 001230 



SEOPCTi 



SENDCT: 



;;65$: 
64S: 



001126 
053730 

001126 
001126 



;;67$: 
66S: 



CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

BR 

.ASCI2 

MOV 

TYPDS 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 

MOV 

TYPDS 
CLR 



$TIMES 
SPASS 

#1 00000, tPASS 

(PC)* 

1 

SDOAGN 

(PC)*,a(PC)* 

1 



.•ZERO THE TEST NUMBER 

.•ZERO THE NLf«ER OF ITERATIONS 

.•INCREMENT THE PASS NUMBER 

:DON'r ALLOW A NEG. NUMBER 

.LOOP? 

;;YES 

; .-RESTORE COUNTER 



.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<12><15>/END PASS »/ 



$PASS.-(SP) 



SERTTL 
$GT42P 



.67$ 
66$ 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE—DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR ir NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



/ TOTAL ERRORS SINCE LAST REPfWT / 



$ERrTL.-(SP) 



$fcRTTL 



SAVE $ERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERRORS 

60 TYPE— DECIMAL ASCII WITH SIGN 

CLEAR ERROR TOTAL 



CZRMPBO RM05/5/2 DSKLS TST 1 
EVD Of PASS R0UT1^4E 

05A004 104401 00121 7 

054010 013700 000042 

054014 001405 

054016 000005 

054020 004710 

0540^2 000240 

054r24 000240 

054026 00024C 
054030 

054050 000137 

054032 007120 
054034 377 377 
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$GT42P. TYPE 
$GET42: MOV 
BEO 
RESET 
SENOAD: J<^R 
NOP 
NOP 
NOP 

SDOAGN: 

JMP 

tRTNAD: .WORD 
000 SENULL: .8YTE 
.EVEN 



D 2 

01:24:25 PAGE 14-1 



5E0 0224 



,$CRLF ;;TYPE CARRIAGE RETURN, LINE FEED 

a#42.R0 ;;GET MONITOR ADDRESS 

SDOAGN ; .-BRANCH IF NO MONITOR 

;; CLEAR THE WORLD 
PC,(RO) ;;G0 TO MONITOR 

;;SAVE ROOM 

;;FOR 

;;ACT11 

a ('JO* ;; RE TURN 

READY 

-1,-1,0 ;;NULL CHARACTER STRING 



CZRMPBO RM05/5/2 DSKLS TST 1 
■lock S'JBROUTINES 
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3 
A 

5 
6 
7 
8 
9 
10 

n 

12 
15 
K 
15 
16 
17 
18 



05A0A0 
054042 
054046 
054052 
054060 



054066 
054072 
054100 
054106 
054114 
054122 
054130 

19 054134 

20 C54136 

21 054142 
22 

23 

24 054144 

25 054144 

26 054152 

27 054156 

28 054164 

29 05417? 

30 054200 

31 054206 

32 054214 

33 054220 

34 054222 

35 054226 
36 

37 
38 
39 
40 
41 
42 
43 
44 
45 

i6 
^7 
48 
49 
50 
51 
52 
53 
54 
55 
56 



000240 
01 3746 
01 3746 
012737 
012737 



005777 
012737 
012737 
012777 
012777 
013777 
005077 
000454 
012716 
000002 



012737 
005777 
012737 
012737 
012777 
012777 
013777 
005077 
000422 
012716 
000002 



000004 
000006 
054136 
000300 



125420 
054300 
054<,22 
054366 
000300 
001526 
125372 

054144 



054222 
125344 
054316 
054430 
054366 
000300 
001520 
125300 

054230 



SEO 0225 



.SerTL CLOCK SUBROUTINES 

.•ROUTINE TO SIZE FOR CLOCKS (KWll-L OR KWll-P) 



SIZCLK; 



000004 
000006 



001536 
001540 
125402 
125376 
125374 



NOP 
MOV 
MOV 
MOV 
MOV 



ERRVEC,-(SP) 
ERRVEC*2,-(SP) 
«10$,ERRVEC 
#PR6.ERRVEC>2 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC ^2 ON STACK 
.-LOAD 04 TRAP VECTORS 



;SEE IF A KWll-P CLOCK IS PRESENT - GO TO 10$ IF NOT PRESENT 



TEST FOR P CLOCK 
LOAD SLBROUTINE ADDRESS 
LOAD STOP ADDRESS 
LOAD P CLOCK INTERRUPT VECTOR 



10$: 



TST a$LPCSR 

MOV *PCLOCK. CLOCK 

MOV #PSTOP,STOPCL 

MOV #PCOUNT.a$LPVEC 

MOV #PR6.8$LPVEC*2 

MOV $LLVEC*2.a$LLVEC 

CLR a$LLVEC*2 

BR 30$ 

MOV #15$, (SP) .-DUMMY RTI ADDRESS 

RTJ .-RESTORE PRIORITY 



.-CLEAR L CLOCK INTERRUPT VECTOR 



000004 

001536 
001540 
125324 
125320 
125302 



054230 








25$: 




054230 


005037 


001536 






CLR 


054234 


012737 


001520 


001516 




MOV 


054242 


005037 


001520 






CLR 


054246 


012737 


001526 


001524 




MOV 


054254 


005037 


001526 






CLR 


054260 


062766 


000002 


000004 




ADD 


054266 








30$: 




054266 


012637 


000006 






MOV 


054272 


012637 


000004 






MOV 


054276 


000207 








RTS 










; ROUTINES TO 


054300 


012777 


Mini 


125206 


PCLOCK: 


MOV 


054306 


012777 


000135 


125176 




MOV 


054314 


000403 








BR 


054316 


012777 


000100 


125176 


LCLOCK: 


MOV 



;N0 P CLOCK-SEE IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 
15$: 

MOV #20$. ERRVEC .-CHANGE 04 TRAP VECTOR 

TST a$LLCSR .-TEST FOR L CLOCK 

MOV #L CLOCK, CLOCK ;LOAD SUBROUTINE ADDRESS 

MOV #LSTOP,STOPCL ;LOAD STOP ADDRESS 

MOV #L COUNT. a$LLVEC ;LOAD L CLOCK INTERRUPT VECTOR 

MOV #PR6,a$LLVEC«2 

MOV $LPVEC*2.a$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 

CLR a$LPVEC*2 

BR 30$ 

20$: MOV #25$,(SP) .-DUMMY RTI ADDRESS 

RTI .-RESTORE PRIORITY 

;N0 CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 

CLOCK ; CLEAR SUBROUTINE ADDRESS 

#$LPVEC*2,$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
$LPVEC*2 

#$LLVEC*2.$LLVEC; CLEAR L CLOCK INTERRUPT VECTOR 



$LLVEC*2 
#2.4(SP) 

(SP;+.ERRVEC*2 
(SPJ+, ERRVEC 
PC 



#-1.a$LPCSB 
#l35.a$LPCSR 

PLCLK 



.-CHANGE RETURN ADDRESS 

;;POP STACK INTO ERRVEC*2 
.-.-POP STACK INTO ERRVEC 



.-LOAD COUNT SET BUFFER 
.-LOAD CONTROL REGISTER 
;G0 TO COMMON CODE 



#100,a$LLCSR .-LOAD CONTROL REGISTER 



CZRI<«PBO RM05/5/2 DSKLS TST 1 
ClOCIC SIJBRCHJTINFS 



l>1ACR0 VOA.OO 
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57 05432A 

58 054330 
05A332 

59 05433A 

60 054340 

61 054344 

62 054350 

63 054352 
054356 
054362 
054564 

o4 054364 

65 

66 

67 

68 054366 

69 054366 

70 054366 

71 054374 

72 C54376 

73 054404 

74 054412 

75 054414 

76 054420 
77 

78 
79 

80 054422 

81 054426 
82 

83 054430 
8^ 

85 054434 

86 054434 
054440 
054444 
054446 

87 054446 



005037 
1 04400 
012605 
010537 
042705 
022705 
101005 
012746 
012746 
000002 

000207 



062737 
103003 
012737 
162737 
100002 
005037 
000002 



005077 
000402 

005077 



013746 
012746 
000002 

0002C7 



001532 



001530 
177437 
000300 

000240 
054364 



^77777 
000021 

001534 



125064 
125066 



001530 
054446 



SEQ 0226 



000021 001 532 



001532 
001534 



PLCLK; 



30$: 
40$: 



CLR 

TRAP 

MOV 

MOV 

BIC 

CMP 

BHI 

MOV 

MOV 

RT] 

RTS 



TJME 

(SP)*.R5 

R5.$PSW 

#*CPR7,R5 

*PR6,R5 

40$ 

*PR5,-(SP) 
*30$.-(SP) 



PC 



; CLEAR TIMER COUNT 

;;PUSH OLD PSW AND PC ON STACK 

;;SAVE THE PSW IN R5 

;SAVE PRIORITY 

;MAS< X 

;IS PRIORITY TOO HIGH?? 

;N0! ! 

;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;;POP NEW PC AND PS 



.•ROUTINES TO HANDLE CLOCK INTERRUPTS (KWll-L OR KWll-P) 

P COUNT: 
L COUNT, 



10$: 



20$: 



ADD 


*17.,TIME 


ADD 17MS TO ELAPSED TIME 


see 


10$ 


BRANCH IF NO OVERFLOW 


MOV 


iT-l.TIME 


■RESTORE MAXIMUM COUNT 


sue 


#17. .WATCH 


■DECREMENT REMAINING TIME 


BPL 


20$ 


•BRANCH IF POSITIVE 


CLR 


WATCH 


•CLEAR REMAINING TIME 


RTI 




; RE TURN TO USER 



;ROUTiNES TO STOP THE CLOCK (KWll-L OR KW11-P) 
PS TOP: 



CLR 
BR 



LSTOP: CLR 



PLSTP: 



10$: 



MOV 
MOV 
RTi 

RTS 



a$LPCSR 
PLSTP 

aSLLCSR 



$PSW.-<SP) 
#10$.- (SP) 



PC 



;STOP P CLOCK 
;G0 TO COMMON STOP CODE 

;STOP L CLOCK 



;PUT NEW PS ON STACK 
;PUT NEW PC ON STACK 
:POP NEW PC AND PS 



CZft«1PB0 RMOS/3/2 
SET VOLUME VALID 



DSKLS TST 1 
SUBROUTINE 



1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 

13 05A450 

U 05A450 00A737 05A674 

15 05AA54 012760 000001 

16 05AA62 012760 001001 

17 05AA70 012760 000000 

18 05A476 012760 000000 

19 05A504 012760 000023 

20 054512 016037 000012 

21 05A520 0A2737 177677 

22 05A526 001020 

23 05A530 010037 001136 

24 054534 062737 000012 

25 054542 012737 000100 

26 054550 062716 000002 

27 054554 112776 000170 

28 054562 012737 000022 

29 054570 000207 
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SEO 02? 



000024 
000024 
000014 
000042 
000000 
001142 
001142 



001136 
001140 

000000 
001 1 74 



,S8TTL SET VOLUME VALID SUBROUTINE 

THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID. 
RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE. THE SUBROUTINE 
RETURNS TO THE WORD FOLLOWING THE CALL. EXCEPT WHEN AN ERROR IS 
DETECTED, IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THf 
CAL... 



CALL: JSR 
BR 

ERROR 



PC.SETVV 



JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE If ERROR 



SETVV: 



10$: 



JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

BNE 

MOV 

ADD 

MOV 

ADD 

MOVB 

MOV 

RTS 



PCCNTCLR ;G0 CLEAR CONTROLLER 

*DMD.RMMR1(R0) ;LOAD RMMR1 
#DMD!MUR.RMMR1(R0> ;LOAD RMMR1 

/rO.RMERKRO) ;LOAD RMER1 
/rO,RMER2(RO) ;LOAD RMER2 
4rPACACK!G0,RMCSUR0; :LOAD RMCS1 
RnDS(R0),S6DDAT .-STORE RMDS AT SBDDAT 
#*CVV.$8DDAT 

;BftANCH IF VOLUME VALID SET 
; SETUP FOR ERROR MSG 



10$ 

RO,$BDADR 
#RMDS.$6DADR 
#VV.$GDDAT 
M2ASP) 
#1 70.a(SP) 
*PACACK,$TMPO 
PC 



.•MOVE RETURN ADDRESS TO ERROR 
.-WRITE ERROR NUMBER 

.RETURN 



:PMPbO RM05/^/r> DSKLS TST 1 
f >'FbET l»»O0E SUBROUTINE 



3 
4 

5 
6 
7 

8 
9 

n 

12 

^5 0S4S7if 

K 054572 012760 001001 

15 054600 012760 000000 

16 054606 012760 000000 

17 054614 012760 000015 

18 054622 016037 000012 

19 054630 042737 177776 

20 C54636 001015 

21 054640 012737 000001 

22 054646 010037 001136 

23 054652 062737 000012 

24 054660 062716 000002 

25 054664 112776 000200 

26 054672 

27 054672 000207 
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SfO 022b 



000024 
000014 
000042 
000000 
001142 
001142 

001140 

001136 

000000 



,S8TTL SET OFFSET MODE SUBROUTINE 

THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
MODE SETS. THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
SUBROUTINE. WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR. IN WHICH CASE IT 
RETURNS TO THE SECOND WORD FOLLOWING THE CALL 



CALL; 



SETOM: 



10$; 



JSR 
BR 

ERROR 



MOV 
MOV 
MOV 

MOV 
MOV 
BIC 
BNE 

■^ov 

MOV 
ADD 
ADD 
M0V8 

RTS 



PC, SETOM 



JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 



*DMD!MUR.RMMR1 (RO; ;LOAD RMMRl 

*0.RMER1(R0) .-LOAD RMERl 
*0.RMER2(R0) ;L0AD RMER2 
MFFSETIGO.RMCSKRO) ;L0AD RMCSl 
RMDS(R0).$8DDAT ;STORE RMDS AT $8DDAT 
#*CO«.$BDDAT 

10$ .-BRANCH IF OFFSET ON 

#OM.$GDDAT 
R0.$8DADR 
*RMDS.$flDADR 
#2.(SP) 
*200.a(SP) 



PC 



.•MOVE RETURN ADDRESS TO ERROR 
.'WRITE ERROR NUMBER 

.•RETURN TO USER 



\EAP CONTROLLER SUBROUTINE 

1 
■> 

A 

5 
6 
7 

8 054674 
0S4674 010046 

9 054676 015700 001276 
10 054702 012760 000040 
n 054710 117760 124552 

12 054716 012600 

13 054720 000207 
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.SBTTL CLEAR CONTROLLER SUBROUTINE 

THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTFRS. 

AND DRIVES. THEN SELECTS THE DRIVE. 

CALL: 

PC.CNTCLR .-CALL TO ROUTINE 



SEO 022'y 



000010 
000010 



CNTCLR: 



JSP 



MOV 

MOV 

MOV 

M0V8 

MOV 

RTS 



RO.-(SP) ;;PUSH RO ON STACK 

SBASE.RO ;R0 = UNI BUS BASE ADDRESS 

#CLR.RMCS2(R0) ; CLEAR MASSBUS 

aTSTQUE.RMCS2(R0) .SELECT DEVICE UNDER TEST 

(SPM.RO ;;POP STACK INTO RO 

PC ; RE TURN 



C2RMPB0 RI105/5/? DSKLS TST 1 ^lACRO VO-.OO 4-APR-81 01 
SAVE AND RESTORE R0-R5 ROUTINES 
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1 



S£0 023J 



.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



054722 

054722 010046 

C54724 010146 

054726 010246 

054730 010346 

054732 010446 

054734 010546 

054736 016646 000022 

054742 016646 000022 

054746 016646 000022 

054752 016646 000022 

054756 000002 



054760 

054760 012666 000022 

054764 012666 000022 

054770 012666 000022 

054774 012666 000022 

055000 012605 

055002 012604 

055004 012603 

055006 012602 

055010 012601 

055012 012600 

055014 000002 



•SAVE R0-R5 
*CALL: 

• SAVREG 

•UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE; 
* 

• TOP (♦16) 

• +2 ( + 18) 

• +4 R5 

• +6 R4 

• +8 R3 

• ♦10 R2 

•♦12 Rl 

• ♦14 RO 



SSAVREG: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R5 



RO,-(SP) 

RI.-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

2l(.SP) .'<<%?) 

22(SP),-(SP) 

2li%?). 

22(SP),-(SP) 



•CALL; 



SRESREG: 



RESREG 

MOV 
MOV 
MOV 
MOV 
MOV 
WV 
MOV 
MOV 
MOV 
MOV 
RTJ 



(SP)*,22(SP) 

(SP)*.22(SP) 

(SP)*.22(SP> 

(SP)*.R5 

(SP)*,R4 

(SP)»,R3 

(SP)*.R2 

(SP)+,R1 

fSP)+.RO 



PUSH RO 
PUSH Rl 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 
SAVE PS 
SAVE PC 
SAVE PS 
SAVE PC 



ON STACK 
ON STACK 
Of.' STACK 
ON STACK 
ON STACK 
ON STACK 
OF MAIN FLOW 
OF MAIN FLOW 
OF CALL 
Of CALL 



RESTORE PC Of CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
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BUiARV TO ASCII AND TVPE ROUTINE 
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K 

PAGE 



2 
20 



SEO 0?^" 



055016 
055020 
05502A 
055026 
05503A 
055036 
0550A0 
055044 
055050 
055052 
C5505A 
055056 
055064 
055066 
055070 



010146 
016601 
000261 
112737 
006101 
001406 
105537 
104401 
000241 
000765 
012601 
016666 
012616 
000002 
000 



000006 

000060 055070 



055070 
055070 



000002 000004 



000 



.S8TTL BINARY TO ASCII AND TYPE ROUTINE 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 16-81 T 
•8INARY-ASCII NUMBER AND TYPE IT. 
•CALL: 

.•NUMBER TO BE TYPED 
;TYPE IT 



MOV 
TYPBN 



NUMBER, -(SP) 



$TYP8N: 


MOV 


RI.-(SP) 
6(SP) ,R1 




MOV 




SEC 




1$: 


M0V8 


#'0,$8IN 




ROL 


R1 




BEO 


2$ 




ADC8 


seiN 




TYPE 


,S8IN 




CLC 






BR 


1$ 


2$: 


MOV 


(SP)+,R1 




MOV 


2(SP).4(SP) 




MOV 


(SP)*.(SP) 




RTI 




SeiN: 


.BYTE 


0.0 



SAVE Rl ON THE STACK 
GET THE INPUT NUMBER 

SET "C" SO CAN KEEP TRACK OF TH2 NUMBER OF BITS 
SET CHARACTER TO AN ASCII "0"- 
GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EQUAL TO THIS BIT 
GO TYPE THIS BIT 

CLEAR "C" SO CAN KEEP TRACK OF BITS 
GO DO THE NEXT BJT 
POP THE STACK INTO Rl 
ADJUST THE STACK 

.•RETURN TO USER 

.•STORAGE FOR ASCII CHAR. AND TERMINATOR 



I 
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SEQ 025. 



.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

iTHIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 



•CALL: 



MOV 
TYPDS 



055072 








^ ▼ w A^ C . 

»TYPDS : 




055072 


010046 








MOV 


055074 


010146 








MAt J 

MOV 


055076 


010246 








MQV 


0551(X) 


010346 








MAVi 

MOV 


055102 


010546 








MOV 


055104 


A^ T ^/ ^ 

012746 


A "lA lAA 

020200 






MOV 


0551 10 


A 1 ^ Z AC 

016605 


AA AA OA 

0C00<:0 






MOV 


0551 14 


1 AAAA/ 

100004 








orL 


0551 16 


AAC /AC 

005405 








Nto 


055120 


1 1 dfOO 


AAAACC 

000055 


AAAAA1 

000001 




PIUVo 


055126 


AAC AAA 

005000 






1 c . 




055130 


Ai "^^Al 


055300 






HUV 


055134 


nc/^c3 


AAAA/ A 
0000*»0 






Mnv/D 

nuvH 


ACC1 y A 


00500^ 






<:»: 


ri D 
LLK 


AC C1 / O 

055 lAi? 


A1 AA 1 
0 lOOOl 


055<:/^o 






Mn\i 

nUV 


AC C 1 / 

0551*»6 


1 ^A1 AC 

160105 






j» : 


CI o 


ACC1 CA 

0551 50 


AAOy AO 








Dl T 

dL 1 


AC C 1 CI 

055152 


AACOAO 








f lur 


AC C i C / 

055154 


000^^4 








QO 


/\C CI 


AZ. A1 AC 

060105 






H9 : 


fWV 


055160 


AAC TAO 








TCT 


ACC 1 "5 

055 16<: 


AA 1 A A O 
00100^ 










ACC 1 ^/ 

055164 


105 /^lo 










ACC1 Z.iL 

055 loo 


i AAy A7 

lOOsO^ 








DMT 


AC C 1 7 A 

0551 /^O 


1 A^ 71^ 

106316 






5*: 


ACI o 














055174 


116663 


000001 


1 77777 




M0V8 


055202 


052702 


000060 




6S: 


BJS 


C55206 


052702 


000040 




7$: 


BIS 


055212 


110223 








novB 


055214 


005720 








TST 


055216 


020027 


000010 






CMP 


055222 


002746 








BLT 


055224 


003002 








BGT 


055226 


010502 








MOV 


055230 


000764 








BR 


055232 


105726 






8$: 


TSTB 


055234 


100003 








BPL 


055236 


116663 


177777 


177776 




MOVB 


055244 


105013 






9$: 


CLRB 


055246 


012605 








nov 


055250 


012603 








MOV 


055252 


012602 








MOV 


055254 


012601 








MOV 



NUM.-(SP) 



RO.-(SP) 

Rl.-(SP) 

R2.-(SP) 

R3,-(SP) 

R5--(SP) 

*26200.-(SP) 

20<SP),R5 

1$ 

R5 

#'-J(SP) 
RO 

nDBLK,R3 
M' ,(R3)* 
R2 

$DT8L(R0).R1 

R1,R5 

4$ 

R2 

3$ 

R1,R5 

R2 

5$ 

(SPJ 

7$ 

(SP) 

6$ 

1 (SP) ,-1 (R3) 

*'0,fi2 
,R2 
\ R2.{R3)* 
\(R0) + 

\o.#io 

2$ 
8$ 

R5.R2 
6S 

(SP) + 
9$ 

-1(SP).-2(R3) 
(R3) 

(SP;+,R5 
(SP)*.R^ 
(SP)*,R2 
(SP)*,R1 



;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK- 
PUSH R5 ON STACK 
SET BLANK SWITCH AND SIGN 
GET THE INPUT NUMBER 
BR IF INPUT IS POS. 
MAKE THE BINARY NUMBER POS. 
MAKE THE ASCII NUMBER NEG. 
ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
GET THE CONSTANT 
FORM THIS BCD DIGIT 
BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

8R IF YES 

MSD? 

8R IF NO 

VES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

60 DO THE NEXT DIGIT 

60 TO EXIT 

GET THE LSD 

60 CHAN6E TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES—SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 



CZRMPBO RM05/3/2 DSKLS TST 1 
fONVERT BINARY TO DECII1AL AMD 



MACRO VGA. GO 
TYPE ROUTINE 



4-APR-81 01:24:25 



M 

PAGE 



2 

21-1 



0552*16 012600 MOV 

055260 104401 055306 TYPE 

055264 016666 000002 000004 MOV 

055272 012616 MOV 

055274 000002 . RTl „ 

055276 023420 tDTBL. 10000. 

055300 001750 1000. 

055302 000144 100. 

055304 000012 10. 
055506 SD8LK: .8LKW 



(SP)+,RO 
.$D8LK 
2(SP).4(SP) 
(SP)*.(SP) 



;;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
;;ADJUST THE STACK 

;; RE TURN TO USER 
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BINARY TO OCTAL (ASCII) AND TYPE 
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SEO 023A 



.S8TTL BINARY TO OCTA' vASCII) AND TYPE 



055310 
055322 
055330 
055334 
055340 
055342 
055350 
055356 
055364 
055366 
055370 
055372 
055376 
055400 
055404 
055410 
055414 
055420 
055422 
055424 
055426 
055430 
055432 
055434 
055436 
055440 
055444 
055446 
055452 
055454 
055456 
055460 



017646 
116637 

112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 

» MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOS ;;CALL FOR TYPEOUT 

» .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

• .BYTE M ;;M=1 OR 0 

• ;;1=TYPE LEADING ZEROS 

;;0=SUPPRESS LEADING ZEROS 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 
-YPON ;;CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) .-.-NUMBER TO BE TYPED 

• TYPOC .-.-CALL FOR TYPEOUT 



000000 

000001 055541 

055543 

000002 

000001 055541 
000006 055543 
000005 055540 



055543 

000006 
055542 
055541 
000012 



055542 
177770 



STYPOS: MOV 
MOVB 
M0V8 
ADD 
BR 

STYPOC: M0V8 
M0V8 

STYPON: MOVB 
MOV 
MOV 
MOV 
M0V8 
NEG 
ADD 
MOVB 
M0V8 
MOV 
CLR 

IS: ROL 
BR 

2S: ROL 
ROL 
ROL 
MOV 

3S: ROL 
DEC8 
BPL 
BIC 
BNE 
"ST 
BEO 

4S: INC 



a(SP),-<SP) 

1(SP).$0FILL 

(SP)+.$0MODE*1 

#2.(SP) 

STYPON 

*1,S0FILL 

*6.$0MODE*1 

*5,*0CNT 

R3.-(SP) 

R4.-(SP) 

R5,-(SP) 

SOMODE+1 .R4 

R4 

*6,R4 

R4,S0M0DE 

$0FJLL,R4 

12(SP),R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5.R3 
R3 

SOMODE 
7$ 

#1 77770. R3 

4S 

R4 

5S 

R4 



;; PICKUP THE MODE 
;;LOAD ZERO FILL SWITCH 
.-.•NUMBER OF DIGITS TO TYPE 
.-.-ADJUST RETURN ADDRESS 



;;SET THE 
;;SET FOR 
.-.-SET THE 
.-.-SAVE R3 
.-.-SAVE R4 
;;SAV£ R5 
;;GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUf«ER OF DIGITS TO TYPE 



; .-SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 
;;6ET THE ZERO FILL SWITCH 
.-.PICKUP THE INPUT NUMBER 
;; CLEAR THE OUTPUT WORD 
.-.•ROTATE MSB INTO "C" 
;;G0 DO MSB 
;;FORM THIS DIGIT 



;;GET LS8 OF THIS DIGIT 
;;TYPE THIS DIGIT? 
;;8R IF NO 
;;GET RID OF JUNK 
;;TEST FOR 0 
.•.•SUPPRESS THIS 0? 
• •BR IF YES 

■•DON'T SUPPRESS ANYMORE O'S 



C2RMPB0 RM05/5/2 DSKLS TST 1 rWCRO 
BINARY TO OCTAL (ASCII) AND TYPE 



V04.00 A-APR-81 01:24:?5 



B 

PAGE 
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055462 
055466 
055472 
055476 
055502 
055506 
055510 
055512 
055514 
055516 
055520 
055522 
055524 
055532 
055534 
055536 
055557 
055540 
055541 
055542 



052703 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
012616 
000002 
noo 
000 
000 
000 
000000 



000060 
000040 
055536 
055536 
055540 



000002 000004 





BIS 


#'0.R3 
#• .R3 


5$: 


BIS 




M0V8 


R3.8S 




TYPE 


,8$ 


7$: 


DECS 


tOCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


2$ 

(Sr-')*.R5 


6S: 


MOV 




MOV 


(SP)+,R4 




MOV 


(SP)*,R3 




MOV 


2(SP),4(SP) 




MOV 


(SP)*.(SP) 




RTI 




8S: 


.BYTE 


0 




.BYTE 


0 


tOCNT : 


.BYTE 


0 


SOMLL: 


.BYTE 


0 


$0M0DE : 


.WORD 


0 



S£0 0235 



MAKE THIS DIGIT A5CII 

MAKE ASCII If NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 

RE Turn 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 
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TYPE ROUTINE SEO 0236 

.S8TTL TYPE ROUTINE 

•^ROUTINE TO TYPE ASCI2 MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
.••THE ROUTINE WILL INSERT A NUmER OF NULL CHARACTERS AFTER A LINE FEED. 
;*N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

.••N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; •NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

• • 

••CALL: 

.••1) USING A TRAP INSTRUCTION 

;• TYPE .MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

.••OR 

TYPE 
MESADR 





105737 


001173 




STYPE: 


TST8 


$TPFLG 


;IS THERE A TERMINAL? 


055550 


100002 








BPL 


1$ 


;8R IF YES 


C5555? 


000000 








HALT 




.-HALF HERE IF NO TERMINAL 


05555't 


000430 








BR 


3$ 


.•LEAVE 


055556 


010046 






1$: 


MOV 


RO.-(SP) 


•;SAVE RO 


055560 


01 7600 


000002 






MOV 


a2(SP).R0 


•;GET ADDRESS OF ASCIZ STRING 


05556A 


122737 


000001 


001242 




CMP8 


#APTENV,$ENV 


'.•RUPfiJING IN APT MODE 


055572 


001011 








6NE 


62$ 


■;NO,GO CHECK FOR APT CONSOLE 


05557A 


132737 


000100 


001243 




BITS 


#APT SPOOL, $ENVM 


•; SPOOL MESSAGE TO APT 


055602 


001405 








BEQ 


62$ 


•;N0,60 CHECK FOR CONSOLE 


055604 


010037 


055614 






MOV 


R0.61$ 


•.•SETUP MESSAGE ADDRESS FOR APT 


055610 


004737 


062346 






JSR 


PC.$ATY3 


•;SPOa. MESSAGE TO APT 


0556U 


000000 






61$: 


.WORD 


0 


■.'MESSAGE ADDRESS 


055616 


132737 


000040 


001243 


62$: 


BITS 


#APTCSUP.$ENV« 


■;APT CONSOLE SUPPRESSED 


05562A 


001003 








BNE 


60$ 


•;VES.SKJP TYPE OUT 


055626 


1 1 2046 






2$: 


M0V8 


<RO;*.-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;8R IF IT ISN'T THE TERMINATOR 


055630 


001005 








BNE 


4$ 


055632 


005^26 








T C T 

TST 


(SP;* , 


,:lf TtRnlNATOR POP IT OFF THE STACK 


055634 


012600 






60$: 


MOV 


(SP)*.RO 


; .-RESTORE RO 


055636 


062716 


000002 




3$: 


ADD 


*2.(SP) 


; .-ADJUST RETURN PC 


055642 


000002 








RTI 


•.•RETURN 


055644 


122716 


000011 




4$: 


CMP8 


#HT,(SP) 


•;8RANCH IF <HT> 


055650 
055652 


001430 








BEO 


8$ 




122716 


000200 






CMPe 


#CRLF.(SP) 


■;8RANCH IF NOT <CRLF> 


055656 


001006 








BNE 


5$ 




055660 


005726 








TST 


(SP)* 


•;POP <CR><LF> EQUIV 


055662 


104401 








TYPE 




•;TYPE A CR AND LF 


055664 


001217 








$CRLF 






055666 


105037 


056074 






CLR8 


$CHARCNT 


•.CLEAR CHARACTER COUNT 


055672 


000755 








BR 


2$ 


•;GET NEXT CHARACTER 


055674 


004737 


055756 




5$: 


JSR 


PC.$TYPEC 


•;G0 TYPE THIS CHARACTER 


055700 


123726 


001172 




6$: 


CMP8 


$FJLLC,(SP)* 


•;IS IT TIME FOR FILLER CHARS.? 


055704 


001350 








BNE 


2$ 


•;1F NO GO GET NEXT CHAR. 


055706 


013746 


001170 






MOV 


$NULL,-(SP) 


•;GET # OF FILLER CHARS. NEEDED 














■;AND THE NULL CHAR. 


055712 


105366 


000001 




7$: 


DECS 


KSP) 


-.-DOES A NULL NEED TO BE TYPED? 


055716 


002770 








BLT 


6$ 


•;8R IF NO— GO POP THE NULL OFF CF STACK 


055720 


004/37 


055756 






JSR 


PC.$TYPEC 


■;G0 TYPE A NULL 


055724 


105337 


056074 






DEC8 


$CHARCNT 


•;D0 NOT COUNT AS A COUNT 


055730 


000770 








BR 


71 


■;LOOP 



^ZRWBO RHi5/^/2 DS<LS ^ST 
TYr^E RCXJTINE 



MACRO V04.00 4-APR-81 



.-HORIZONTAL TAIE 



055732 


112716 


000040 


055736 


004737 


055756 


055742 


132737 


000007 


055750 


001372 




055752 


005726 




05575A 


000724 




055756 






055756 


105777 


123176 


055762 


100022 




055764 


01 7746 


123172 


055770 


042716 


177600 


CS5774 


122716 


000023 


056000 


001012 




C 56002 






056002 


105777 


123152 


056006 


100375 




C56010 


117716 


123146 


0560U 


042716 


1 77600 


056020 


122716 


000021 


05602A 


001366 




056026 






056026 


005726 




056030 






056030 


105777 


123130 


05603A 


100375 




056036 


116677 


000002 


05604A 


122766 


00001 5 


056052 


001003 




05605A 


105037 


056074 


056060 


000406 




056062 


122766 


000012 


056070 


001402 




056072 


105227 




056074 


000000 




056076 


000207 





056074 



8S: 
9S: 



STYPEC: 



101$: 



102$: 
10$: 



123122 
000002 



000002 1$: 



MOVB 

JSR 

81 TB 

BNE 

TST 

BR 

TST8 

BPL 

MOV 

BiC 

CMP8 

BNE 

TST8 

BPL 

MOVB 

BJC 

CMP8 

BNE 

TST 



Tsre 

BPL 
MOVB 
CMP8 
BNE 
CLRB 
BR 
CMP8 
BEQ 
INC8 
$CHARCNT:,UORD 
$TYPEX: RTS 
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SEO 0257 



PROCESSOR 

#• ,(SP) ;; REPLACE TAB WITH SPACE 

PC.$TYPEC ;;TyPE A SPACE 

#7,SCHARCNT ; .-BRANCH If NOT AT 

9$ ;;TA8 STOP 

(SP)* ;;POP SPACE OFF STACK 

2$ ;;GET NEXT CHARACTER 

a$TKS ;;CHAR IN KYBD BUFFER? 

10$ ;;8R IF NOT 

a$TKB,-(SP) ;;GET CHAR 

#1 77600, C^P) ;; STRIP EXTRANEOUS BITS 

#$X0FF.(SP) ;;WAS CHAR XOFF 

102$ ;;8R IF NOT 

S$TKS ;;UAIT FOR CHAR 
101$ 

a$TKB,(SP) ;;GET CHAR 

#177600, (SP) ;; STRIP IT 

«$X0N,(SP) :;UAS IT XON? 

101$ ;;8R IF NOT 

(SP)* ;;FIX STACK 

a$TPS ;;JAIT UNTIL PRINTER IS READY 
10$ 

2(SP),a$TPB ;;L0AD CHAR TO BE TYPED INTO DATA REG. 

#CR,2(SP) ;;IS CHARACTER A CARRIAGE RETl^N? 

1$ ; .-BRANCH IF NO 

$CHARCNT ;; YES— CLEAR CHARACTER COUNT 

$TYPEX ;;EXIT 

#LF.2(SP) ;;IS CHARACTER A LINE FEED? 

$TyP£X .-.-BRANCH IF YES 

(PC)* ;; COUNT THE CHARACTER 

0 ;; CHARACTER COUNT STORAGE 

PC 
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SEO 0?5S 



,S8TTL SCOPE HANDLER ROUTINE 



056100 
056100 
056102 
056110 
056112 
C56116 



056120 
056124 
0561 32 
056136 
056K2 
056UA 
056146 
056152 
056154 
056154 
056162 
056164 
056166 
056172 
056174 
056200 
056202 
056206 
C56210 
056212 
056216 
056222 
056224 
056226 
056232 
056234 
056242 
056244 
056250 
056256 
056264 
056266 
056274 
056300 



104410 
032777 
001402 
000137 



056116 000416 



01 3746 
012737 
005737 
012637 
000561 
022626 
012637 
000521 

032777 
001421 
005046 
117716 
001414 
022716 
002411 
011637 
005316 
006316 
062716 
013637 
000547 
005726 
105737 
001502 
022737 
001455 
013746 
012737 
013737 
000406 
012737 
012716 
000002 



040000 
056542 



000004 
056144 
177060 
000004 



000004 

000400 

122762 
000120 
001116 



056560 
001122 



0011 1 7 

1 77777 

000004 
056266 
1 77766 

wm7 

056302 



•THIS ROUTINE CONTROLS THE LOOPING OF SUBfESTS. IT WILL INCREMENT 

•AND LOAD THE TEST NUM8ER($TSTNW) INTO THE DISPLAY REG. (DISPLAV«'7:0>) 

•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAV<15:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•SW09=1 LOOP ON ERROR 

•SW08=1 LOOP ON TEST JN SWR<7:0> 

•CALL 

• SCOPE ;;SCOPE=IOT 



123044 1$: 



000004 



M2772 



tSCOPE : 

CKSWR 
BIT 
BEQ 
JMP 

9$: 

TART OF 
$XTSTf<: BR 

MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;**#*/(fEN0 OF 
BIT 



8$: 
2$: 



057410 



000004 
057410 



057410 2000$: 



#8iT14,aSWR 
9$ 

SOVER 

CODE FOR THE XOR 
6$ 

»rERRVEC.-<SP) 
*5f,a#ERRVEC 
9*177060 
(SP) ♦,a#ERRVEC 
SSVLAD 
(SP) 

(SP)*,a#ERRVEC 
7$ 

CODE FOR THE XOR 
/IQIT08,aSWR 
BEO 2$ 
CLR -(SP) 
MOVS aSWR.CSP) 
BEQ 8$ 
CMP #120. (SP) 
BIT 8$ 
MOV (SP). STSTNM 
DEC (SP) 
ASL (SP) 
ADD mW08TBL,(SP) 
MOV a(SP)*,SLPADR 
BR SOVER 
TST (SP)* 
TST8 SERFLG 
BEO 3$ 
CMP #-1-CPSAVE 
BEO 2003$ 
MOV ERRVEC.-(SP) 
MOV #2000$.ERRVEC 
MOV 1 77766. CPSAVE 
BR 2001$ 
MOV *-1.CPSAVE 
MOV #2001$, (SP) 
RTI 



TEST FOR CHANGE IN SOFT-SWR 

LOOP ON PRESENT TEST? 

NO IF SW14=0 

JUMP OVER SCOPE ROUTINE 



TESTER##### 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A 'NOP" (NOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER##### 
LOOP ON SPEC. TEST? 
8R IF NO 

CLEAR A TEMP. LOCATION 
PICKUP THE DESIRED TEST NlHBER 
BRANCH IF BAD TEST NUMBER IN S(A 
CHECK THE NUMBER IN THE SWR 
BRANCH IF TEST NUMBER IS OUT OF RANGE 
UPDATE THE TEST NUMBER 
BACKUP BY ONE 

SCALE THE TEST NUMBER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON THE TEST 

CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
HAS AN ERROR OCCURRED? 
BR IF NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUTINE IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 
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056302 


012637 


000004 




2001$: 


MOV 


(SP)*.ERRVEC 


056306 


022737 


]77777 


057410 


2002$: 


CMP 


*-1 .CPSAVE 


0563U 


001430 








6EQ 


2003$ 


056316 


032737 


000001 


057410 




BIT 


*8IT00,CPSAVE 


056324 


001424 








BEQ 


2003$ 


056326 


042737 


000001 


1 77766 




BIG 


*8I TOO. 177766 


056334 


013746 


001 1 54 






MOV 


SWR.-(SP) 


056340 


01 7646 


000000 






MOV 


a(SP) .-(SP) 


056344 


012737 


0001 76 


001 1 54 




MOV 


*176,SWR 


056352 


011677 


122576 






MOV 


(SP) ,SSWR 


056356 


042777 


001000 


122570 




BIC 


M3I T09,aSW9 


056364 


104177 








EMT 


177 


056366 


01 2676 


000000 






MOV 


(SP)*,a(SP) 


056372 


012637 


001154 






MOV 


(SP)*.SWR 


056376 








2003$: 






056376 


123737 


001131 


001 117 




CMP8 


$£R«AX,$ERFLG 


056404 


101015 








BHI 


3$ 


056406 


032777 


001000 


122540 




BIT 


/yeno9.aswR 


C 564 14 


001 404 








BEQ 


4$ 


056416 


013737 


001124 


001122 


7$: 


MOV 


$LPERR,$LPADR 


056424 


000446 








BR 


$OVER 


056426 


105037 


001 1 1 7 




4$: 


CLRB 


$ERFLG 


056432 


005037 


001206 






CLR 


$TIMES 


056436 


000415 








BR 


1$ 


056440 


032777 


004000 


122506 


3$: 


BIT 


«3IT11 ,aswR 


056446 


001011 








BNE 


1$ 


05645C 


005737 


001230 






TST 


$PASS 


056454 


001406 








BEO 


1$ 


056456 


005237 


001120 






INC 


$ICNT 


056462 


023737 


001206 


001120 




CMP 


$TIftfS,$ICNT 


056470 


002024 








BGE 


$OVER 


056472 


012737 


000001 


001120 


1$: 


MOV 


#1.$ICNT 


056500 


013737 


056556 


001206 




nov 


$MXCNT,$TIMES 


056506 


105237 


001116 




$SVLAD : 


INCB 


$TSTNM 


056512 


113737 


001116 


001226 




nova 


$rSTNn«$TESTN 


056520 


011637 


001122 






MOV 


(SP),$LPAOR 


056524 


011637 


001124 






nov 


(SP).$LPERR 


056530 


005037 


001210 






CLR 


$E SCAPE 


056534 


112737 


000001 


001131 




MOVQ 


#1 ,$ERMAX 


056542 


013777 


001116 


1 22406 


$0VER: 


MOV 


$TSTNn.aDl SPLAY 


C56550 


013716 


001122 






MOV 


$LPADR,(SP) 


056554 


000002 








RTI 




056556 


000005 






$MXCNT : 


5. 




056560 








$SW08TBL: 






000120 






.REPT 


$TN-1 




056560 


007310 








.WORD 


TSTU2 


056562 


007620 








.WORD 


TST2*2 


056564 


010002 








.WORD 


TST3+2 


056566 


010152 








.WORD 


TST4+2 


056570 


01 0302 








.WORD 


TST5*2 




01 1 jOO 








.WORD 


TST6+2 


056574 


012436 








.WORD 


TST7>2 


056576 


012560 








.WORD 


TST10*2 


056600 


012644 








.WORD 


TST11»2 


056602 


013104 








.WORD 


TST12*2 


056604 


013452 








.WORD 


TST13*2 



RESTORE CONTENTS OF ERROR VECTOR 

SEE If CPSAVE HAS CPO ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 

BRANCH TO CONTINUE ROUTINE IF CLEAR 

CLEAR THE BIT FOUND TO BE SET 

SAVE SWR ADDRESS 

SAVE SWR VALUE 

GET SOFTWARE SWR ADDRESS 

GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
CALL SPECIAL POWER FAI. BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
RESTORE SWR ADDRESS 

MAX. ERRORS FOR THIS TEST OCCURRED? 

8R IF NO 

LOOP ON ERROR? 

' BR I F NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

: CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
:INHIBIT ITERATIONS? 
;8R IF YES 

;IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
; INCREMENT ITERATION COUNT 
; CHECK THE NLMBER OF ITERATIONS MADE 
;8R IF MORE ITERATION REQUIRED 
;R£INITIALIZE THE ITERATION COUNTER 
;SET NlfBfR OF ITERATIONS TO DO 
;COWT TEST NUMBERS 
;SET TEST NkTBER IN APT MAILBOX 
;SAVE SCOPE LOOP ADDRESS 
;SAVE ERROR LOOP ADDRESS 
; CLEAR THE ESCAPE FROM ERROR ADDRESS 
;ONLY ALLOW ONE(l) ERROR ON NEXT TEST 
;DISPLAY TEST NUMBER 
; FUDGE RETURN ADDRESS 
;FIXES PS 

;MAX. NUMBER OF ITERATIONS 



STARTING ADDRESS OF TEST 1 

STARTING ADDRESS OF TEST 2 

STARTING ADDRESS OF TEST 3 

STARTING ADDRESS OF TEST 4 

STARTING ADDRESS OF TEST 5 

STARTING ADDRESS OF TEST 6 

STARTING ADDRESS OF TEST 7 

STARTING ADDRESS OF TEST 10 

STARTING ADDRESS OF TEST 11 

STARTING ADDRESS OF TEST 12 

STARTING ADDRESS OF TEST 13 
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^fO 0240 



056606 


014234 


.WORD 


TST14*2 


.-STARTING ADDRESS 


OF 


TEST 


14 


056610 


014334 


.WORD 


rST15*2 


;STARTJNG ADDRESS 


OF 


TEST 


15 


056612 


014660 


.WORD 


TST16*2 


.-STARTING ADDRESS 


OF 


TEST 


16 


0566U 


015372 


.WORD 


TSTl 7*2 


.-STARTING ADDRESS 


OF 


TEST 


17 


056616 


015474 


.WORD 


TST20*2 


; STARTING ADDRESS 


OF 


TEST 


20 


056620 


015760 


.WORD 


TST21*2 


.-STARTING ADDRESS 


OF 


TEST 


21 


056622 


016076 


.WORD 


TST22*2 


.-STARTING ADDRESS 


OF 


TEST 


22 


05662A 


016224 


.WORD 


TST23*2 


.-STARTING ADDRESS 


OF 


TEST 


23 


056626 


016476 


.WORD 


TST24*2 


.-STARTING ADDRESS 


OF 


TEST 


24 


056630 


016776 


.WORD 


TST25*2 


.-STARTING ADDRESS 


OF 


TEST 


25 


056632 


01 7420 


.WORD 


TST26*2 


.-STARTING ADDRESS 


OF 


TEST 


26 


056634 


017514 


.WORD 


TST27*2 


.-STARTING ADDRESS 


OF 


TEST 


27 


056636 


020002 


.WORD 


TST30*2 


.-STARTING ADDRESS 


OF 


TEST 


30 


056640 


020316 


.WORD 


TST3U2 


.-STARTING ADDRESS 


OF 


TEST 


31 


056642 


020606 


.WORD 


TST32*2 


.-STARTING ADDRESS 


OF 


TEST 


32 


056644 


021 524 


.WORD 


TST33*2 


.-STARTING ADDRESS 


OF 


TEST 


33 


056646 


021636 


.WORD 


TST34*2 


.-STARTING ADDRESS 


OF 


TEST 


34 


056650 


022130 


.WORD 


TST35*2 


.-STARTING ADDRESS 


OF 


TEST 


35 


056652 


022452 


.WORD 


TST36*2 


.-STARTING ADDRESS 


OF 


TEST 


36 


056654 


023012 


.WORD 


TST37+2 


.-STARTING ADDRESS 


OF 


TEST 


37 


056656 


023466 


.WORD 


TST40*2 


; STARTING ADDRESS 


OF 


TEST 


40 


056660 


023752 


.WORD 


TST41*2 


.-STARTING ADDRESS 


OF 


TEST 


41 


056662 


024234 


.WORD 


TST42*2 


.-STARTING ADDRESS 


OF 


TEST 


42 


056664 


024636 


.WORD 


TST43*2 


.-STARTING ADDRESS 


OF 


TEST 


43 


056666 


025006 


.WORD 


TST44*2 


.-STARTING ADDRESS 


OF 


TEST 


44 


056670 


025366 


.WORD 


TST45*2 


; STARTING ADDRESS 


OF 


TEST 


45 


056672 


026076 


.WORD 


TST46*2 


.-STARTING ADDRESS 


OF 


TEST 


46 


056674 


026372 


.WORD 


TST47+2 


.'STARTING ADDRESS 


OF 


TEST 


47 


056676 


026774 


.WORD 


TST50*2 


.STARTING ADDRESS 


OF 


TEST 


50 


056700 


027230 


.WORD 


TST5U2 


; STARTING ADDRESS 


OF 


TEST 


51 


056702 


027436 


.WORD 


TST 52*2 


.STARTING ADDRESS 


OF 


TEST 


52 


056704 


030270 


.WORD 


TST53*2 


.STARTING ADDRESS 


OF 


TEST 


53 


056706 


030542 


.WORD 


TST54*2 


.•STARTING ADDRESS 


OF 


TEST 


54 


056710 


030744 


.WORD 


TST55*2 


.-STARTIfM ADDRESS 


OF 


TEST 


55 


056712 


031156 


.WORD 


TST56*2 


.STARTING ADDRESS 


OF 


TEST 


56 


056714 


031352 


.WORD 


TST57*2 


.■STARTING ADDRESS OF 


TEST 


57 


056716 


031532 


.WORD 


TST60*2 
TST6U2 


.-STARTING ADDRESS 


OF 


TEST 


60 


056720 


031750 


.WORD 


.-STARTING ADDRESS 


OF 


TEST 


61 


056722 


032116 


.WORD 


TST62+2 


.•STARTING ADDRESS 


Of 


TEST 


62 


056724 


032342 


.WORD 


TST63*2 


.STARTING ADDRESS 


OF 


TEST 


63 


056726 


032456 


.WORD 


TST64+2 


.-STARTING ADDRESS 


OF 


TEST 


64 


C567i0 


032644 


.WORD 


TST65*2 


.•STARTING ADDRESS 


Of 


TEST 


65 


056732 


033074 


.WORD 


TST66+2 


.STARTING ADDRESS 


OF 


TEST 


66 


056734 


033312 


.WORD 


TST67*2 


.STARTING ADDRESS 


OF 


TEST 


67 


056736 


033540 


.WORD 


TST 70*2 


.STARTING ADDRESS 


OF 


TEST 


70 


056740 


034010 


.WORD 


TST7U2 


.STARTING ADDRESS 


Of 


TEST 


71 


056742 


034216 


.WORD 


TST72*2 


.-STARTING ADDRESS 


OF 


TEST 


72 


056744 


034506 


.WORD 


TST73*2 


.STARTING ADDRESS 


OF 


TEST 


73 


056746 


034734 


.WORD 


TST74*2 


.-STARTING ADDRESS 


OF 


TEST 


74 


056750 


035042 


.WORD 


TST 75*2 


.-STARTING ADDRESS OF 


TEST 
TEST 


75 


056752 


035166 


.WORD 


TST 76*2 


.STARTING ADDRESS 


OF 


76 


056754 


035316 


.WORD 


TST77+2 


.STARTING ADDRESS OF 


TEST 


77 


056756 


035450 


.WORD 


TST100*2 


.-.-STARTING 


ADDRESS 


CF 


056760 


035602 


.WORD 


TST10U2 


.-.-STARTING 


ADDRESS 


OF 


056762 


035772 


.WORD 


TST102*2 


;; STARTING 


ADDRESS 


OF 


056764 


0361 74 


.WORD 


TST103'2 


;; STARTING 


ADDRESS 


OF 


056766 


036322 


.WORD 


TST104*2 


;; STARTING 


ADDRESS 


OF 



TEST TOO 

FES' 101 

TEST 102 

TEST 103 

TEST 104 
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056770 036526 .WORD 

056772 036656 .WORD 

05677^ 037052 .WORD 

056776 037250 .WORD 

057000 037526 .WORD 

057002 0A0032 .WORD 

057004 04K2A .WORD 

057006 043152 .WORD 

057010 045332 -WORD 

057012 045712 .WORD 

057014 C50072 .WORD 

057016 052360 -WORD 
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TSn05»2 
TST106*2 
TST107*? 
TST110*2 
TST11U2 
TST112*2 
TST113*2 
TST114*2 
TST115*2 
TS*116*2 
TST117*2 
TSn20*2 



STARTING ADDRESS Of TEST 105 

STARTING ADDRESS Of TEST 106 

STARTING ADDRESS Of TEST 107 

STARTING ADDRESS Of TEST 110 

STARTING ADDRESS Of TEST 111 

STARTING ADDRESS Of TEST 11? 

STARTING ADDRESS Of TEST 113 

STARTING ADDRESS Of TEST 114 

STARTING ADDRESS Of TEST 115 

STARTING ADDRESS Of TEST 116 

STARTING ADDRESS Of TEST 117 

; STARTING ADDRESS Of TEST 120 
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,S8TTL ERROR HANDLER ROUTINE 



THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
SAVE THE ERROR ITEM NUMBER AND THE ADDRESS Of THE ERROR CALL 
AND GO TO ERRTYP ON ERROR 

BY THIS ROUTINE ARC; 



THE SWITCH 
SU15=1 
SWT 3=1 
SW10=1 
SW09=1 
CALL 

ERROR 



OPTIONS 
HALT 
INHIBIT 
BEcL ON 
LOOP ON 

N 



PROVIDED 
ON ERROR 
ERROR 
ERROR 
ERROR 



TYPCOUTS 



QS7020 


105037 


05741? 




t ERROR- 


CLRB 


IBSAVE 


057024 


104410 








CKSWR 




057026 


105237 


001 117 




7$: 


INCB 


$ERFLG 


057032 


001775 








SFO 


7$ 


057034 


013777 


001 116 


1221 14 




MOV 


$TSTNM aOISPLAY 


C57042 


012777 


0C2000 


122104 




BI T 


»8IT10,aSWR 


05''050 


001402 








SEO 


1$ 


057052 


104401 


001212 






TYPE 


,S8ELL 


057056 


005237 


001126 




IS: 


INC 


$ERTTL 


057062 


011637 


001132 






MOV 


(SP) .$ERRPC 


057066 


^627Z7 


000002 


001132 




SUB 


#2.$ERRPC 


057074 


1 1 7737 


122032 


001 1 30 




MOVB 


aSERRPC,$ITEMB 


057102 


0Z2777 


001000 


122044 




BIT 


«8J T09,aSUR 


057110 


001060 








BNE 


1004$ 


057112 


^227Z7 


0001 77 


001 1 30 




CliPfi 


#177.$ITEMB 


057120 


001454 








BEQ 


1004$ 


057122 


105737 


057412 






TST8 


IBSAVE 


057126 


001047 








BNE 


1003$ 


057130 


022737 


177777 


057410 




CMP 


*-1.CPSAVE 


057136 


001445 








BEQ 


1004$ 


057140 


013746 


000004 






MOV 


ERRVEC--(SP) 


057144 


012737 


057162 


000004 




MOV 


#1000$.ERRVEC 


057152 


0^3737 


177766 


057410 




MOV 


1 77766. CPSAVE 


C57160 


000406 








BR 


1001$ 


057162 


012737 


177777 


057410 


1000$: 


MOV 


#-1.CPSAVE 


057170 


012716 


057176 






MOV 


#1001$. (SP) 


057174 


000002 








RT] 


057176 


012637 


000004 




lOOlS: 


MOV 


(SP)*.ERRVEC 


057202 


022737 


177777 


057410 


1002$: 


CMP 


#-l,CPSAVE 


057210 


001420 








BEO 


1004$ 


057212 


032737 


00000^ 


057410 




BIT 


#8IT00.CPSAVE 


057220 


001414 








BEQ 


1004$ 


057222 


042737 


000001 


1 77766 




8IC 


*8I TOO. 177766 


057230 


113737 


001130 


057412 




MOVB 


SI TEMB. IBSAVE 


057236 


112737 


0001 77 


001 1 30 




MOVB 


#177.$1TEMB 


057244 


000402 








BR 


1004$ 


057246 


105037 


057412 




1003$: 


CLRB 


IBSAVE 


057252 








1004$: 






057252 


032777 


020000 


121674 




BIT 


4r8ITl3.aSWR 


057260 


001004 








BNE 


20$ 


057262 


004737 


057414 






JSR 


PC. ERRTYP 



;;ERROR=EMT AND N=ERROR ITEM NUMBER 

CLEAR THE ITEM BYTE SAVE LOCATION 
TEST FOR CHANGE IN SOFT-SWK 
SET THE ERROR FLAG 
DCN'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRCWS 
GET ADDRESS OF ERROR INSTRUCTION 

STRIP AM> SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POUER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2N0 ERROR CALL IN THIS ROUTINE 
BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP* RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;: SETUP RETURN ADDRESS 

.-.•RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
BRANCH IF OK 
CLEAR THE BIT FOUND SET 
MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
SET $ITE« TO SPECIAL POWEP FAIL POINTER 
BRANCH OVER IBSAVE CLEARING 

;;CLcAR IBSAVE SO 2ND TIME THROUGH EXPS 

SKIP TYPEOUT IF SET 
SKIP TVPEOUTS 
GO TO USER ERROR ROUTINE 
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057266 


104401 


001 21 7 






TYPE 


057272 








20$: 




057272 




000001 

WWWWV ' 


001242 




CMP8 


057300 


001007 

WW ' WW ■ 








BNE 


057302 


113737 


001130 


057314 




PIOVS 


057310 


004737 


062356 






JSfi 


057314 


000 






21$: 


.8YTE 


057315 


000 








.8YTE 


057316 


000777 






22$: 


BR 


057320 


105737 


057412 




2$: 


TST8 


057324 
057326 


001005 








BNE 


005777 


121622 






TST 


057332 


1 00002 








BPL 


057334 


000000 








HALT 


057336 


104410 








CKSWR 


057340 








3$: 




057340 


032777 


001000 


121606 




BIT 


057346 


001402 








BEQ 


057350 


013716 


001124 






MOV 


C57354 


0OS737 


001210 




4$: 


TST 


057360 


001402 








BEQ 


057362 


013716 


001210 






MOV 


057366 








5$: 




057366 


022737 


054020 


000042 




CMP 


057374 


001001 








BNE 


057376 


000000 








HALT 


057400 








6$: 




057400 


105737 


057412 






TST8 


057404 


001210 








BNE 


057406 


000002 








RTI 


057410 


000000 






CPSAVE : 


• WORD 


037412 


UOOOOO 






I8SAVE : 


.yoRD 
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.$CRLF 

#APTENV.$£NV 
2$ 

$ITEMB.21$ 
PC.$ATy4 

0 

0 

22$ 

I8iAVF 

3$ 

9SWR 
3$ 



#8IT09,aSWR 
4$ 

$LPERR,(SP) 
$E SCAPE 
5$ 

$ESCAPE,(SP) 

*$ENDAD,a#42 
6S 



I8SAVE 
7$ 

0 
0 



SEO 0245 



RUNNING IN APT MODE 

NO. SKIP APT EkROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

SEE IF I8SAVE IS LOADED 

BRANCH IF NOr - NO HALT ON PWft MON BIT ERROR 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOf T-SWR 

LOOP ON ERROR SWITCH SET? 
8R IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
8R IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT-n AUTO-ACCEPT? 
BRANCH IF NO 

YES 

SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
BRANCH BACK TO CALL ORIGINAL ERROR 
RE TURN 

LOCATION TO SAVE CPU ERROR REG CONTENTS 
LOCATION TO SAVE ITEM BYTE 
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2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 

13 0574U 
K 057A16 

15 057A24 

16 057426 
17 

18 
19 

20 C57432 
2' 057436 
22 057442 
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057446 
057450 
057451 

23 
24 

25 057452 

26 057456 

27 057462 

28 057466 

29 057474 

30 057500 
31 

32 057502 

33 057510 
3^ 057514 
35 

36 057516 

37 057524 
33 057530 

39 057532 

40 057536 

41 057540 
42 

43 

44 057542 

45 057546 

46 057554 

47 057560 

057564 
057566 
057567 

48 057570 

49 057574 



104414 
032777 
001402 
000137 



104401 
104401 
013746 

104403 
003 
000 



013700 
016000 
042700 
012737 
022700 
001414 

012737 
022700 
001406 

012737 
022700 
001004 
104401 
104401 
000000 



005037 
013737 
104401 
013746 

104403 
003 
000 
005037 
113737 



020000 
060254 



0C1217 
060270 
001234 



001276 
000026 
1 77740 
063257 
000024 



063252 
000025 



063264 
000027 

060325 



060260 
001226 
060275 
060260 



060262 
001130 



SEO 0244 



.SBTTL ERROR TYPEOUT ROUTINE 

•THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

* .UNIT NUMBER. DRIVE TYPE, TEST NUMBER. ERROR NUMBER AND 
•PROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 

.ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

• .PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 



121530 



ERRTYP: 



SAVREG 
BIT 
BEQ 
JMP 



#SWl3.SSIii/R 

U 

27$ 



INHIBIT 
NO! ! 
YES!.' 



TYPE OUTS?? 



;TyPF UNIT NUMBER, 
; PROGRAM COUNTER 



DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND 



1$: 



;TVPE 



057540 
057540 
057540 



2$: 
3$: 



TYPE 
TYPE 
MOV 

TYPOS 
.BYTE 
•BYTE 

•DRIVE 
MOV 
MOV 
BIC 
MOV 
CMP 
BEO 

MOV 
CMP 
BEO 

MOV 
CMP 
BNE 
TYPE 
TYPE 
.WORD 



,$CRLF 
,ERTYOO 
$UNIT,-(SP) 



3 

0 



TYPE' RM05, 
SBASE.RO 
RMDT(R0),R0 
#177740.R0 
#$Rn03,3t 
#24,R0 
2% 

#$W02.3t 
*25.RO 
2S 

#$Rn05.3$ 
#27. RO 
4$ 

,ERTy05 



RM03 



;TYPE 't>RV#" 

;;SAVE SUNIT FOR TYPEOUT 

;;TYPE DRIVE NUMBER 

;;60 TYPE— OCTAL ASCII 

;;TYPE 3 DIGIT(S) 

;; SUPPRESS LEADING ZE^OS 

OR RM02 FOR UNIT UNDER TEST 
;GET RM BASE ADDRESS 
;G£T DRIVE TYPE REGISTER 
;SAVE DRIVE TYPE BITS AND 
;G£T ASCII DRIVE TYPE 
;IS DEVICE AN RM03 ? 
;VES !.' 

;SAVE ASCII DRIVE TYPE 
;1S DEVICE AN RM02 ? 
;VES \i 

;SAVE ASCII DRIVE TYPE 
;IS DEVICE AN RM05 ? 
;N0 I! 

;TYPE - " 
;TYPE DRIVE TYPE 

; DRIVE TYPE MESSAGE IS STORED HERE 



;TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 



060260 



060262 



4$: CLR TSTNMB 

KHV $TESTN,TSTNNB 

TYPE ,ERTV01 

MOV TSTNMB. -(SP) 

TYPOS 

.BYTE 3 

.BYTE 0 

CLR CRRNMB 

M0V8 SiTEMB,ERRNMB 



;LOAD TEST NUfCER FOR 
;TYPE "TST^r" 

;;SAVE TSTffO FOR TYPEOUT 
;;TYPE TEST NUMBER 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 3 DIGIT(S) 
;; SUPPRESS LEADIN( EROS 
;LOAD ERROR NUMBE OR 
; TYPEOUT 
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50 057602 

51 057604 

52 057610 

057614 
057616 
057617 

53 057620 

54 057624 

057630 
057632 
057633 

55 
56 

57 057634 

58 057640 

59 057642 
60 

61 C57646 

62 057652 

63 057656 

64 057662 

65 057666 

66 057672 

67 057674 

68 057700 

69 057702 

70 057704 

71 057706 

72 057710 

73 057714 
74 

75 057716 

76 

77 

78 057720 

79 057722 

80 057724 

81 057730 

82 057734 

83 057736 

84 057740 

85 057744 

86 057746 

87 057752 

88 057754 

89 057760 

90 057762 

91 057766 

92 057770 

93 057774 

94 060002 

95 060004 

96 060006 

97 060012 

98 060016 



001406 
104401 
013746 

104403 
003 
000 
104401 
013746 

104403 
006 
001 



005737 
001002 
000137 

104401 
105037 
105037 
013700 
122700 
001003 
012700 
000405 
006300 
006300 
006300 
062700 
011001 

001507 



012102 
001505 
010237 
005037 
112203 
001454 
122703 
001003 
105037 
000770 
122703 
001765 
122703 
001007 
105237 
132737 
001372 
000407 
105237 
122703 
001002 



060305 
060262 



060314 
001 1 32 



060262 

060254 

001217 
060266 
060267 
060262 
000177 

060332 



001532 



060072 
060264 



000015 

060267 

000012 

000011 

060267 
000007 



060267 
000040 



5$: 



BEQ 

TYPE 
MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 

TYPOS 
.BYTE 
.BYTE 



5t 

.ERTY02 
£RRNM8,-(SP) 



3 

0 

,ERTY03 
iERRPC,-(SP) 



6 

1 



;SK]P IF NO ERROR CALLED 
TYPE "ERR#" 

;;SAVE ERRNMB FOR TYPEOUT 
;;TVPE ERROR NUMBER 
;;G0 TYPE— OCTAL ASCII 
;;TyPE 3 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 
;TYPE 'T>C=" 

;;SAVE SERRPC FOR TYPEOUT 
;;TYPE PROGRAM COUNTER 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 6 DIGIT (S) 
;;TyPE LEADING ZEROS 



.•GENERATE POINTER TO ERROR TABLE UNlESS ERROR NUMBER IS 0 



6S: 



7$: 



8$: 



9$: 



060267 



.-TYPE 
10$: 



11$; 



12$: 



13$: 



14$: 



TST 
BNE 
JMP 

TYPE 

CLR8 

CLR8 

MOV 

CMPB 

BNE 

MOV 

BR 

ASL 

ASL 

ASL 

ADD 

nov 

BEQ 

THE ERROR 
MOV 
BEQ 
MOV 
CLR 
M0V8 
BEQ 
CHP8 
BNE 
CLRB 
BR 
CMPB 
BEO 
CMPB 
BNE 
INCB 
BITS 
BNE 
BR 
INCB 
CMPB 
BNE 



ERRNMB 
7$ 
27$ 

,$CRLf 

BOTFLG 

CHRCNT 

ERRNMB.RO 

#177, RO 

8$ 

#PF ECH,RO 

9$ 

RO 

RO 

RO 

nERRTB-S.^RO 
(RO).Rl 

19$ 

MESSAGE 

(R1)*,R2 

19$ 

R2,18$ 
BO T ADR 
(R2)*,R3 
17$ 

#CR,R3 
12$ 

CHRCNT 
11$ 

/Hf ,R3 
11$ 

#HT,R3 
14$ 

CHRCNT 
#7, CHRCNT 
13i 
15$ 

CHRCNT 
»' ,Rl 
15$ 



WAS AN ERROR CALLED? 
BR IF YES 
NO— EXIT 

YES-TYPE CRLF 

CLEAR BOT FLAG 

CLEAR CHARACTER COUNTER 

RO POINTS TO FIRST OF 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 

MOVE POWER FAIL ERROR CALL TABlE TO PO 

.FOUR ENTRIES IN ERROR 
.TABLE 



Rl POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 



R2=ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 
END OF STRING?? 
YES! ! 

CARRIAGE RETURN?? 
NO!! 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 

NO! ! 

ADJUST CHARACTER COUNT 



INCREMENT CHARACTER COUNT 

SPACE?? 

NO!! 
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SEQ Q2t*t 



99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
■■lO 
111 
112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12« 
125 
126 
127 
128 
129 
150 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
UO 
HI 
K2 
U3 
U4 
U5 
K6 
K7 
U8 
K9 
150 
151 
152 
153 
154 
155 



060020 
060024 
060032 
060034 
060040 
060042 
060046 
060052 
060056 
060060 
060062 
060070 
060072 
060074 
060100 
060102 
060106 
060112 
060116 
060122 
060126 
060132 
060134 



060136 
060K2 
060144 
060150 
060154 
060160 
060164 

060166 
060170 
060172 
060176 
06C200 
060202 
060204 
060206 
060210 
060212 
060214 
060216 
060220 
060222 
060224 
060226 
060230 
060232 
060234 
060236 
060240 
060244 
060246 
060252 



010237 


060264 






MOV 


RiT.BOTADR 


122737 


000100 


060267 


15J: 


CMPQ 


*64 . , CHRCNT 


103340 








BHl 5 


lis 


01 3704 


060264 






MOV 


BO 1 ADH,R*t 


001007 








BNE 


IXC 


104401 


00121 7 






T YPE 


,»CnLr 


105037 


060267 






CLR8 


r ijo r fci T 
C HH C N I 


01 3702 


rt/s 

060072 






MOV 


1 09, H2 


000726 








BR 


lift 


105044 






16$: 


r 1 no 

CLRB 




112737 


\77711 


060266 




ftAniiO 

WOvo 


1 ,801 FLu 


104401 






1 fi : 


T Yrt 




000000 






18>: 


1 innr\ 

.WORD 




105737 


060266 






T C TO 


80TFLG 


001 707 








DC A 


10$ 


104401 


00121 7 






T woe 






UOUcOO 










105037 


060267 






CLR8 


CHRCNT 


013702 


060264 






MOV 


B0TADR,R2 


010237 


060072 






MOV 


R2,18$ 
#• ,-(R2) 
(R2)* 


112742 


000040 






M0V8 


105722 








TST8 


000677 








BR 


11$ 



016001 
001444 
104401 
016002 
016003 
012137 
001433 

104401 
000000 
104401 
005702 
001767 
012204 
012305 
105725 
100407 
001403 
013446 
104405 
000405 
013446 
104402 
000402 
013446 
104406 
005714 
001403 
104401 
000760 
104401 
000742 



000002 

001217 
000004 
000006 
060170 



001217 



SAVE ADDRESS OF SPACE 
END OF LINE?' 
NO! ! 

GET ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
TYPE CRLF 

CLEAR CHARACTER COUNT 
SET UP R2 FOR TESTING 

.•REPLACE SPACE 
;SET BOT FLAG 

.-TYPE ERROR MESSAGE STRING 
: STRING ADDRESS GOES HER'' 
;WAS STRING TRUNCATED?? 
;N0! ! 

;YES-TVPE CRLF 

; CLEAR BOT FLAG 

; CLEAR CHARACTER COUNT 

.-SETUP R2 FOR TESTING 

; SETUP 18$ FOR TYPING 

.•RESTORE SPACE 

.RESTORE R2 

;TYPE REST OF STRING 



.TYPE ERROR HEADER AND ERROR 
19$: 



20$: 



DATA 



060322 
001217 



21$: 



22$: 



23$: 

24$: 
25$: 

26$: 



MOV 


2(R0),R1 


BEQ 


27$ 


TYPE 


.$CRLF 


nov 


4(ft0),R2 


MOV 


6(R0).R3 


MOV 


<R1)*,21$ 


BEO 


27$ 


TYPE 




.WORD 


0 


TYPE 


.$CRLf 


TST 


R2 


BEO 


20$ 


MOV 


(R2)*.R4 


MOV 


(R3)*.R5 


TST8 


(R5)* 


BMI 


24$ 


BEO 


23$ 


MOV 


a(R4)+,-(SP) 


TYPDS 




BR 


25$ 


MOV 


a(R4)*,-(SP> 


TYPOC 




BR 


25$ 


MOV 


a(R4)*,-(SP) 


TYP8N 




TST 


(R4) 


BEO 


26$ 


TYPE 


.ERTY04 


BR 


^2$ 


TYPE 


,$CRLF 


BR 


20$ 



RI POINTS TO ERROR HEADER TABLE 
BRANCH IF NO HEADER 
(ASSUME NO DATA) 
R2 POINTS TO DATA ADDRESS TABLE 
R3 POINTS TO FORMAT TABLE 
PUT HEADER ADDRESS FOR TYPE 
BRANCH IF END OF HEADERS 
(ASSUME END OF DATA) 

.'HEADER ADDRESS GOES HERE 

;DATA WITH HEADER?? 
;N0!: 

;R4 POINTS TO DATA ADDRESS 
;R5 POINTS TO FORMAT 
;UHAT KIND OF DATA 
.•BINARY 
; OCTAL 
.•DECIMAL 



7-> 



MORE DATA?? 

NO! : 

YES- TYPE 2 SPACES 
AND CONTINUE 
TYPE ONE BLANK LINE 
BEFORE NEXT HEADER 
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156 060254 


1044''5 




157 060256 


000207 




158 






159 060260 


000000 




16r> 060262 


000000 




16. 060264 


000000 




162 060266 


000 




165 060267 


000 




164 






165 060270 


104 


122 


166 060275 


054 


040 


1o7 060305 


054 


040 


168 060314 


054 


040 


169 060322 


040 


040 


170 060325 


040 


055 


171 






172 060332 


060342 


060430 


173 060342 


060346 


000000 


174 060346 


120 


117 


175 






176 060430 


060434 


UOUUUU 


177 060434 


103 


120 


178 






179 060446 


060450 




180 060450 


057410 


000000 


181 060454 


060456 




182 060456 


000 


000 
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27$: 




TSTNMB: 




ERRNMB: 




BOTADR: 




BOTFLG: 




CHRCNT : 


126 


ERTYOO: 


124 


ERTYOl : 


105 


ERTY02: 


120 


ERTy03; 


000 


ERTY04: 


040 


ERTY05: 




.EVEN 


060446 


PFECH: 




PFECHI : 


127 






PFECH2: 


125 






PFECH3: 




PFECH4: 



N 3 
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RESREG 
RTS PC 



.WORD 
.WORD 
.WORD 
.8YTE 
.BYTE 



0 
0 
0 
0 
0 



TEST NUMBER 
ERROR NUMBER 

BEGINNING OF TEXT ADDRESS 
80T FLAG 
CHARACTER COUNT 



.Asciz aor^v^a 
.Asciz a. TEST#a 

.ASCIZ a, ERR#a 

.ASCIZ a, pc=a 
.ASCIZ a a 
.ASCIZ a - a 

PFECHI ,PFECH2,PFECH3,PFECH4 .-WORDS DEFINING TABLES BELOW 
.+4,0 

.ASCIZ 7P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET 
.EVEN 
.♦4.0 
.ASCIZ 
.EVEN 
.♦2 
.WORD 
.+2 
.BYTE 



7CPUERREG? 

CPSAVE.O 
0.0 
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,S8TTL TTY INPUT ROUTINE 



5E0 0248 



060460 000000 
060462 OOOCOO 
060464 000000 
060466 

060467 



060470 
060474 
060502 
060510 
060516 
060524 
060550 
060536 



005037 
012737 
013737 
012737 
012737 
005777 
012777 
000207 



060460 
060466 
060462 
060540 
000200 
120432 
000100 



060462 
060464 
000060 
000062 

120422 



.ENABL LS8 
STKCNT; .WORD 0 
tTKQIN: .WORD 0 
STKQCUT: .WORD 0 
STKQSRT: .8LK8 1 
$TKQEND=. 
.EVEN 



;;NUr«ER OF TEMS IN QUEUE 
;; INPUT POINTER 
;; OUTPUT POINTER 
;;TTY KEVSOARD QUEUE 



.-•TK INITIALIZE ROUTINE 

.••THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
.••SETUP THE INTERRUPT VECTOR AND TURN ON THE KEV80ARD INTERRUPT 



;*CALL: 

JSR PC.STKINT 
RETURN 



STKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 



STKCNT 

#STKQSRT,STK0IN 

STKQIN.STKQOUT 

#STKSRV,a*TKV£C 

#200,*rTKVEC*2 

aSTKB 

#100,a$TKS 

PC 



;; CLEAR COUNT OF ITEMS IN QUEUE 
;;«OVE THE STARTING ADDRESS OF THE 
; .-QUEUE INTO THE IW^T % OUTPUT POINTERS. 
-- KEYBOARD VECTOR 
4 

FLAG 

KEYBOARD INTERRUPT 
CALLER 



INITIALIZE 
;;'8R" LEVEL 
.-.CLEAR DONE 
; .-ENABLE TTY 
;; RE TURN TO 



.-•TK SERVICE ROUTINE 

.-•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

.••BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

;*IT IN THE QUEUE. 

;*IF THE CHARACTER IS A "CONTROL-C" CO $TKINT IS CALLED AND 
.-•UPON REn«N EXIT IS MADE TO THE 'tONTROL-C* RESTART ADDRESS (SHUT) 



060540 


117746 


120416 




STKSRV: 


M0V8 


060544 


042716 


177600 






BIC 


060550 


021627 


000021 






CMP 


060554 


001002 








6NE 


060556 


005726 








TST 


060560 


000002 








RTl 


060562 








30$: 




060562 


021627 


000003 






CMP 


060566 


001007 








BNE 


060570 


104401 


061666 






TYPE 


060574 


004737 


060470 






JSR 


060600 


005726 








TST 


060602 


000137 


061730 






JMP 


060606 


021627 


000007 




1$: 


CW> 


060612 


001004 








BNE 


060614 


022737 


000176 


001154 




CW> 


060622 


001500 








BEQ 


060624 








2S: 




060624 


022737 


000001 


060460 




CMP 


060632 


001004 








BNE 


060634 


104401 


001212 






TYPE 



a$TK8,-<SP) 
#*C177,(SP) 
(SP) .#SX0N 
30S 
(SP)* 



(SP)./r3 
1$ 

,$CNTLC 

PC.$TKINT 

(SP)-> 

SHUT 

(SP).#7 

2$ 

#SUREG,jWR 
6S 



#1.$TKCNT 
3$ 

.$8ELL 



; .-PICKUP THE CHARACTER 
;; STRIP THE JUNK 
;;IS IT A RA^©OM XON? 
.-.•BRANCH IF NO 

.-.'CLEAN RANDOM XON OFF STACK 
; .-RETURN 

;;IS IT A CONTROL C? 

;. -BRANCH IF NO 

.-.-TYPE A CONTROL-C (*C) 

;;INIT THE KEYBOARD 

;; CLEAN UP STACK 

;; CONTROL C RESTART 

;;IS IT A CONTROL 6? 

.-.-BRANCH IF NO 

;;IS SOFT-SUR SELECTED? 

:;G0 to SUR CHANGE 



;.-IS THE QUEUE FUl L! 
; .-BRANCH IF NO 
;;RING 'HE TTY BELL 
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'TY INPUT ROUTINE 














0606A0 


005726 








T^T 






0606A2 


000A51 








RR 

on 


5S 




0606A4 


021627 


VVVVC J 




j# • 








060650 


001021 












•RPAMfU fF Kin 


060652 


005077 


t cvDyjc 






ri R 




• nrcAAiP TTv rPvRnAQrt rMTPDonoTc 


060656 


005726 








T^T 




•ClPAM rUAR nPF CTArr 


060660 


105777 








T^TR 






060664 


100375 








RPI 

Or L 




•innp INUTFI FTC TUPDP 


060666 


1177A6 


1 ?n?7n 










•CiFJ TUP rMAQAfTPQ 


060672 


0A2716 


1 77^00 






R r r 


99 \, t f f 0 \ Or / 0 


•MAIfP FT 7-nFT A^T F F 


060676 


022627 


\J\J\J\JC 1 






TMP 

L' I' 




•F^ FT A 'nwTRni -O"? 


060702 


001 366 








RNP 




•RRAMrM FF ND 


06070A 


012777 




1 ?nP4ft 








•RPPMARI P TTV ^PVRDAQr) FMTPDDllPTC 


060712 


000002 








RT r 




•RPTlIRM 


06071 A 


005237 






Jc « • 


J 


^ 1 FN « 1 0 


•rmiMT TMF^ fMARArTPR 


060720 


021627 












• F ^ IT 1 IPPPR TA^P "> 


06072A 


002A05 










A$ 


•RRANrM FF VF^ 


060726 


021627 


noni 7S 






CMP 


(^P) #17S 


■I^ FT A ^PPf'AI TMAR'' 


060732 


003002 










AS 


•RRANrM FF VF^ 


C6073A 


0A2716 


OCOOAO 

Www** w 








#A0 f^P) 


•MAKF IT tIPPFR TA^P 


0607A0 


112677 


1 77S1f> 








t^pi'f a&TKOiM 


•ANH PI IT FT IM Ol IPIIP 


0607AA 


005237 


OftOAft? 

WOWHUC 








# 1 i ni « 


•liPDATF THF POFNTFR 


060750 


023727 












•(^n DFF THF fM)'> 


060756 


001003 










5$ 


•RRAMrM IF MTI 


060^60 


012737 


060A66 


060A62 




nov 


#STKQSRT,$TKOJN ; 


.RESET THE POINTER 


060766 


000002 






5$: 


RTI 


.-RETURN 



SEO 02A9 



060770 022737 0001 76 

060776 001 12A 

061000 105777 12015A 

06100A 100121 

061006 1177A6 120150 

061012 0A2716 177600 

061016 021627 000007 

061022 001300 



001 15A SCKSUR: 



•SOFTWARE SWITCH REGISTER CHAW6E ROUTINE. 
^ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 
CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



TRAP 



CMP 

BN£ 

TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 



fSUREG.SWR 
15$ 
aSTKS 
15S 

a$Tic8--(SP) 

#*C177.<SP) 

<SP).#7 

2% 



IS THE SOFT-SWR SELECTED 
EXIT IF NOT 
IS A CHAR WAITING? 
IF NOT, EXIT 
VES 

MAKE IT 
IS IT A 
IF NOT. 
AND EXIT 



7-eiT ASCII 
CONTROL -6? 
PUT IT IN THE 



TTY QUEUE 



•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESLH.T OF 



061 02A 


123727 


001150 


000001 


6$: 


CMP8 


$AUT0B.#1 


;;ARE WE RUNNING IN AUTO-MODE? 


061032 


001 67A 








BEO 


2% 


; .-BRANCH IF YES 


061 03A 


005726 








TST 


(SP)* 


; .-CLEAR CONTROL -G OFF STACK 


061036 


00A737 


060A70 






JSR 


PC.STKINT 


; .-FLUSH THE TTY INPUT QUEUE 


0610A2 


005077 


120112 






CLR 


aSTKS 


; .-DISABLE TTY KEYBOARD INTERRUPTS 


061 0A6 


.112737 


000001 


001151 




M0V8 


#1,$INTAG 


;;SET INTERRUPT MODE INDICATOR 


061 05A 


lOAAOl 


061700 






TYPF 


.SCNTLG 


;;ECHO THE CONTROL-G CG^ 


061060 


lOAAOl 


061705 




SGTSWR: 


TYPE 


.SMSWR 


;;TYPE CURRENT CONTENTS 


06106A 


0137A6 


000176 






MOV 


SWREG.-(SP> 


;;SAVE SWREG FOR TYPE OUT 


061070 


10AA02 








TYPOC 


.•;G0 TYPE— OCTAL ASCI I (ALL DIGHS) 
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061072 


104401 


0617'6 






TYPE 


UO 1 U r O 


UU3U*»0 










061100 


005046 








CLR 


061102 


105777 


120052 




7$: 


TST8 




inn^7S 

1 KJKJJi J 








RPI 


n^i 1 in 


1 1 77C(\ 


1 ?ClClLf\ 

1 CWWMw 






' iwVu 


1 1 1 


nLP7^f\ 

VjMc ' 1 O 


1 ' f Oww 










fl?1ft27 

\JC 1 Oc 1 


noooo^ 

WWWWW J 








UO • 1 c*» 


nnini 5 










061126 


104401 


061666 






TYPE 


VO 1 1 JC 


wOC f v/o 


WWWWWO 






ADD 


061136 


123727 


001151 


000001 




CMPB 


n^>i M.C 

VO 1 I ••H 


WW 1 WW J 










WW 1 1 **o 


012777 


000100 


1 20004 

1 C www" 




MOV 


VJ 1 1 J** 


000137 

wW I J* 


061 730 




w* • 


JMP 


C61160 


021627 

1 wC ' 


0C0025 




9S: 


CMP 


061164 


001005 








BNE 


061 166 


104401 


061673 






TYPE 


061 1 7? 


062706 

WW^ ' WW 


000006 

WW WW WW 




20$- 

c w* « 


ADD 


0611 76 


000737 








BR 


061 POO 


021627 

w^ I w^ ' 


00001 5 

Www ' 




10$: 


CMP 


061204 


001022 

WW I w^ ^ 








BNE 


061206 


005766 

W W ^ ' WW 


000004 

WwwwwC 






TST 


061212 


001403 








BEO 

WL w 


0612K 


016677 

W 1 wU ' r 


000002 

WW wwwt 


1 1 7732 




MOV 

nw » 


061222 


062706 

wwt ' WW 


000006 

www www 




1 1$' 


ADD 


061226 

WW 1 ecu 


104401 

1 w^"f w 1 


001217 




14$- 


TYPE 


061232 

wVI 1 C -'b 


1 23727 


001151 


000001 

www I 




CMPB 


061240 

V/U 1 C"w 


001003 

WV 1 wV_l 








BNE 


061242 


012777 


000100 

w wV 1 WW 


117710 




MOV 


061250 


000002 

wwwwwC 






15$- 


RTI 


061252 


004737 


055756 




16$: 




061256 

wvi i ^ J 


021627 


000060 

wWwWw 






CMP 


061262 

WW 1 ^w^ 


002420 

wwt.~C w 








blt 


061264 

WW 1 ^\J^ 


021627 

W^ 1 WL ' 


000067 

WWW » 






CMP 


061 270 


003015 








BGT 


061272 

WW * C t C 


042726 

w^t ' LW 


000060 

W WW w W 






BIC 

WA V 


061276 

WW I C f w 


005766 

W W^ ( WW 


000002 

wW Wb 






TST 


061302 

WW 1 ^w^ 


001403 

Vw 1 ^w J 










061 304 


006316 

www^ 1 w 








ASL 


061306 


006316 

wW^ 1 w 








ASI 


061310 


006316 








ASL 


061312 


005266 


000002 




17$: 


INC 


061316 


056616 


-[7777^ 






BIS 


061322 


000667 








BR 


061324 


104401 


001216 




18$: 


TYPE 


061330 


000720 








BR 










.DSABL 


Lse 
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.$MNEW ;, -PROMPT FOR NEW SWR 

-(SP) ;; CLEAR COUNTER 

-(SP) ;;THE NEW SWR 

a$TKS ;;CHAR THERE? 

7$ ;;IF NOT TRY AGAIN 

a$T)C8.-(SP) ;;PICK UP CHAR 

#»C177.(SP) ;;MAKE IT 7-8IT ASCJJ 

(S?),#3 ;;IS IT A C0NTR0L-C7 

9$ ; .-BRANCH IF NOT 

,$CNTLC ;;YES, ECHO CONTROL-C {*C> 

#6,SP .-.-CLEAN UP STACK 

$INTAG,*1 ;;REENA8LE TTY KEYBOARD INTEf^RUPTS 

8$ - 'BRANCH IF NO 

#100,a$TKS ;;ALLOW TTY KEYBOARD INTERRUPTS 

SHUT ;; CONTROL-C RESTART 



CSP),#25 ;;IS IT A CONTROL -U? 

10$ .-.-BRANCH IF NOT 

,$CNTLU ;;YES. ECHO CONTRO' -U (*U) 

#6,SP ;; IGNORE PREVIOUS INPUT 

19$ .-.-LET'S TRY IT AGAIN 



(SP).#15 ;;IS IT A <CR>? 

16$ .-.-BRANCH IF NO 

4(SP) ;;YES, IS IT THE FIRST CHAR? 

11$ ; .-BRANCH IF YES 

2(SP).aSUR .-.SAVE NEW SUR 

#6,SP .-.CLEAR UP STACK 

.$CRLF ;;ECMO <CR> AND <LF> 

$INTA6.#1 ;;RE-ENABLE TTY K8D INTERRUPTS? 

15$ * 'BRANCH IF NOT 

#100.a$TKS ;;RE-ENA8LE TTY K8D INTERRUPTS 

.'.RETURN 

PC,$TYPEC ;;ECHO CHAR 

(SP) ,#60 ;;CHAR < 0? 

18$ .'.'BRANCH IF YES 

(SP).#67 ;;CHAR > 7? 

18$ ; .'BRANCH IF YES 

#60. (SP)* .'.STRJP-OFF ASCII 

2(SP) ;;IS THIS THE FIRST CHAR 

17$ ;;8RANCH IF YES 

(SP> ;;N0. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-2(SP).(SP) ;;SET IN NEW CHAR 

7$ ;;6ET THE NEXT ONE 

,$QUES .'.'TYPE ?<CR><LF> 

20$ .'.-SIMULATE CONTROL -U 
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SEO 0251 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 



RDCHR 

RETURN HERE 



GET A CHARACTER FROM THE QUEUE 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



UO 1 35c 


U 1 1 o*>o 








nuv 


(CP) .rcp) 
4(SP).2(SP) 


. ~U L/WWv I nc r L Will/ 


A/.1 XXJ. 
UO 1 J J*» 


U 1 DOOO 








nuv 


' THE PS 


HA 1 5 

UO 1 JMC 














'^C■,f^ RFADV FDR A rHARAfTFR 


\J\J ' VJ 


005046 








CLR 


-(SP) 


•PUT NEW PS ON STACK 


061350 


012746 


061356 






MOV 


#64$. -(SP^ 


;PUT NEW PC ON STACK 


061354 


000002 








RTI 




;POP NEW PC AND PS 


061 356 








64$: 








061 356 


005737 


060460 




1$: 


TST 


$TKCNT 


.-WAIT ON A CHARACTER 


061362 


001775 








BEQ 


IS 




061 364 


005337 


060460 






DEC 


STKCNT 


.•DECREMENT THE COUNTER 


061 370 


1 1 7766 


1 77070 


000004 




M0V8 


a$TK00UT,4(SP) ; 


:GET ONE CHARACTER 


061376 


005237 


060464 






INC 


$TK00UT 


.•UPDATE THE POINIER 


C61402 


023727 


060464 


060467 




CMP 


$TK00UT,#STK0END 


;;DID IT GO OFF OF THE END? 


061410 


001003 








BNE 


2$ 

#$TKQSRT,SrK00UT 


.•BRANCH IF NO 


061412 


012737 


060466 


060464 




MOV 


.-.RESET THE POINTER 


06U20 


000002 






2$: 


RTI 




.•RETURN 



•THIS ROUTINE WILL INPUT A STRING FROM THE TTV 
•CAI L: 

• RDLIN 

• RETURN HERE 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



061422 


010346 






SRDL IN: 


MOV 


R3,-(SP) 


;SAVE R3 


061424 


005046 








CLR 


-(SP) 


.-CLEAR THE RUBOUT KEY 


061426 


012703 


061656 




IS: 


MOV 


#STTyiN.R3 


;GET ADDRESS 


061432 


022703 


061666 




2S: 


CMP 


#STTY1N»8..R3 ; 


.-SUFFER FULL? 


061436 


101456 








BLOS 


4S 


'BR IF YES 


061440 


104411 








RDCHR 




•60 READ ONE CHARACTER FROM THE TTY 


061442 


112613 








M0V8 


(SP;*.(R3) ; 


.•GET CHARACTER 


061444 


122713 


000177 




10S: 


CMPB 


#177. (R3) ; 


;IS IT A RUBOUT 


061450 


001022 








BNE 


5S 


;8R IF NO 


061452 


005716 








TST 


(SP) 


.•IS THIS THE FIRST RUBOUT'' 


061454 


001007 








BNE 


6$ 

*'\.9$ 


;BR IF NO 


061 456 


112737 


000134 


061654 




M0V8 


.•TYPE A BACK SLASH 


061464 


104401 


061654 






TYPE 


,9$ 




061470 


012716 


1 77777 






MOV 


#-1,(SP) 


;SET THE RUBOUT KEY 


061474 


005303 






6$: 


DEC 


R3 


.•BACKUP BY ONE 


061476 


020327 


061656 






CMP 


R3,#STTYIN 


.STACK EMPTY? 


061502 


103434 








BLO 


4S 


.•BR IF YES 


061504 


111337 


061654 






M0V8 


(R3).9$ 


.•SETUP TO TYPEOUT THE DELETED CHAR. 


061510 


104401 


061654 






TYPE 


.9$ 


;60 TYPE 


061514 


000746 








BR 


2$ 


;G0 READ ANOTHER CHAR. 


061516 


005716 






5$: 


TST 


(SP) 


; RUBOUT KEY SET? 


061520 


001406 








BEQ 


7$ 

*'\.9$ 


;8R IF NO 


061522 


112737 


000134 


061654 




M0V8 


;TYPE A BACK SLASH 


061530 


104401 


061654 






TYPE 


,9$ 




061534 


005016 








CLR 


(SP) 


.•CLEAR THE RUBOUT KEY 


061536 


122713 
001003 


000025 




7$: 


CMP8 


#25.CR5) ; 


;IS CHARACTER A CTRL U? 


061542 








BNE 


8$ 


;8R IF NO 
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061544 
061550 
061552 
061556 
061560 
061562 
061566 
061572 
061 574 
061600 
061 602 
061606 
061612 
061616 
061620 
061624 
061630 
061632 
061634 
C61636 
061644 
061652 
061654 
061655 
061656 
061666 
061673 
061700 
061705 
061 716 



104401 
000726 
122713 
001011 
105013 
104401 
104401 
000717 
104401 
000712 
111337 
104401 
122723 
001 305 
105063 
104401 
005726 
01 2603 
011646 
016666 
012766 
000002 
000 
000 

136 
156 
136 
015 
040 



3 


061730 


005737 


4 


061734 


001002 


5 


061736 


000137 


6 


061742 


005037 


7 


061746 


000137 



061673 
000022 



001217 
061656 

001216 

061654 
061654 
000015 

Mini 

001220 



000004 
061656 



103 
125 
107 
012 
040 



000042 

004652 
001300 
053622 



000002 
000004 



015 
015 
015 
123 
116 





TrPE 


, SCNTLU 




BR 


1S 


8t: 


CMPS 


nil. (R3) 




BNE 


3$ 




CLR8 


(R3) 




TYPE 


.SCRLf 




TYPE 


,$TTY1N 




BR 


2$ 


4S: 


TYPE 


.lOUES 




BR 


1$ 


3$: 


MOVB 


(R3).9t 




TYPE 


.9$ 




CMP8 


#15, (R3)* 




BNE 


2$ 




CLR8 


-1 (R3) 




TYPE 


,$LF 




TST 


(SP)* 




MOV 


(SP)*,R3 




MOV 


(SP).-(SP) 




MOV 


4(SP),2(SP) 




MOV 


#$TTYIN.4(SP) 




RTl 




9t: 


.BYTE 


0 




.BYTE 


0 


$TTy]N: 


.BLKB 


8. 


SCNTLC: 


.ASCIZ 


/*C/<15><12> 


SCNTLU: 


ik c ^ r 7 

.ASCIZ 


/ U/<15>< lc> 


SCNTLG: 


.ASCIZ 


/•G/<15><12> 


SMSWR: 


.ASCIZ 


<15><12>/SUR 


SMNEW: 


.ASCIZ 


/ NEW = / 


.EVEN 






SHUT: 


TST 


»r42 




BNE 


1$ 




JMP 


START 


1$: 


CLR 


JDEVM 




jMP 


$EOP 



"*R"? 



= / 



;;TYPE A CONTROL 
;;G0 START OVER 
;;IS CHARACTER A 
;; BRANCH If NO 
;; CLEAR THE CHARACTER 
;;TYPE A "CR" I "Vr" 
;;TVPE THE INPUT STRING 
;;60 PICKUP ANOTHER CHACTER 

• • TYPE A 

); CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

;; CHECK FOR RETURN 

.-.-LOOP IF NOT RETURN 

;; CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;; CLEAN RUBOUT KEY FROM THE STACK 

' 'RESTORE R3 

;'; ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

* *RE TURN 

;; STORAGE FOR ASCII CHAR, TO TYPE 
.-.TERMINATOR 

; .RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL "C" 
;; CONTROL 'M" 
.-.•CONTROL "6" 



ANY MONITOR PRESENT ? 
BR IF YES 
GO TO START 

FUDGE NO DRIVES IN MAP 
RETURN TO IE OP 



CiFAD AN 



f<M0S/V2 DSKLS T3T 1 MACRO 
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G 

PAGE 



4 

?8 



.S8TTL READ AN OCTAL NUMBER FROM THE TTr 



;*THJS ROUTINE WJLL READ AN OCTAL (ASCJJ) NUMBER FROM THE TTV AND 
.■•CHANGE JT TO BINARY . 



06175? 
061754 
061762 
061 764 
061766 
061 770 
061772 
061774 
061 776 
062000 
062002 
062004 
062006 
062010 
062012 
062014 
062016 
062020 
062024 
062026 
062030 
062032 
062036 
062042 
062044 
062046 
062050 
062052 



011646 
016666 
010046 
010146 
010246 
104412 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
000000 



000004 000002 



'CALL; 



tRDOCT: 



It: 



2S: 



177770 



000012 
062052 



3$: 



RDOCT 

RETURN HERE 



SHIOCT; 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLJN 

MOV 

CLR 

CLR 

Move 

BEQ 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BJC 

ADD 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTJ 

.WORD 



(SP).-(SP) 

4fSP).2(SP) 

RO,-(SP) 

RI.-(SP) 

R2.-(SP) 

(SP)*.RO 

R1 

R2 

(ROM.-(SP) 
3$ 

R1 
R2 
R1 
R2 
R1 
R2 

#*C7,(SP) 

(SP)*.R1 

21 

(SP)* 

fl1J2(SP) 

R2,$H]0CT 

(SP)*,R2 

<SP)+.R1 

(SP)*,RO 



.•READ AN OCTAL NUMBER 

;LOW ORDER BITS ARE ON TOP Of THE STACK 

.-HIGH ORDER BITS ARE 'N $HlOCT 

..-PROVIDE SPACE FOR THE 

..•INPUT NUMBER 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;READ AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 

;; CLEAR DATA WORD 

; .-PICKUP THIS CHARACTER 
;;IF ZERO GET OUT 
.•.••2 

.•;»4 
;;»8 

;; STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 
;;LOOP 

;; CLEAN TERMINATOR fRW STACK 
.-.-SAVE THE RESULT 

;POP STACK INTO R2 
;POP STACK INTO R1 
;POP STACK INTO RO 
.•RETURN 

.-HIGH ORDER BITS GO HERE 



ZRMPBO DSKLS ^ST ' 

'RAP DECODER 



MACRO V04.00 



H 4 

4-APR-81 01:24:?5 PAGE ?9 



.S8TTL TRAP DECODER 



S£Q 



•THIS ROUTINE WILL PICKUP THE LOWER BVTE Of THE "TRAP" iNSTRUCTJON 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WJLl 
•GO TO THAT ROUTINE. 



06?054 


0166A6 


000002 


$TRAP: 


MOV 


2(SP),-(SP) 
#20, (SP) 


» * 


ASSUME THE STATUS Of 


062060 


0A2716 


000020 




BIC 


0 » 


THE CALLER— DO NOT AL 


06206A 


0127A6 


06207? 




MOV 


#1$.-(SP) 


» i 


T-BIT TRAPS 


062070 


000002 






RTI 




« t 


SET THE NEW STATUS 


062072 


0100A6 




IS: 


MOV 


RO.-(SP) 


0 t 


SAVE RO 


06207A 


016600 


000002 




MOV 


2(SP),R0 


0 


•GET TRAP ADDRESS 


062100 


005 7A0 






TST 


-(RO) 


0 


'BACKUP BY 2 


062102 


111000 






MOVB 


(RO) .RO 


0 


■GET RIGHT BYTE OF TRAP 


0621 OA 


006300 






ASL 


RO 


0 


•POSITION FOR INDEXING 


062106 


016000 


062126 




MOV 


$TRPAD(R0},R0 


m 


; INDEX TO TABLE 


062112 


000200 






RTS 


RO 


« 


•GO TO ROUTINE 



.-.-THIS IS USE TO HANDLE THE "GETPRI" MACRO 



0621 1 4 0116A6 

062116 CI 6666 OOOOOA 

062124 000002 



062126 
0621% 
062132 
062134 
062136 
062140 
062142 



062146 
062150 
062152 
062154 
062156 
062160 



062114 
055544 
055342 
055316 
055356 
055072 
055016 



062144 061060 



060770 
06133? 
061422 
061752 
054722 
054760 



000002 



$TRAP2: 



MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP),2(SP) 



;;M0VE THE PC DOWN 
;;MOVE THE PSW DOWN 
; .-RESTORE THE PSW 



.S8TTL TRAP TABLE 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*ay THE "TRAP" INSTRUCTION. 



ROUTINE 
STRPAD: .WORD STRAP2 



STyPE 

STYPOC 

STYPOS 

STYPON 

STYPOS 

STYPSN 



;;CALL=TVPE 

;;CALL=TYPOC 

;; CALL = TYPOS 

;;CALL=T¥PON 

;;CALL=TYPDS 

;;CALL=TYP8N 



TRAP*1 (104401) 
TRAP*2( 104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP+5( 104405) 
TRAP«6( 104406) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NlfBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL fAfBER (WITH SIGN) 
TYPE BINARY (ASCII) NUMBER 



SGTSUR ;;CALL=GTSWR TRAP^7( 104407) GET SOFT-SUR SETTING 



SCKSWR 

SRDCHR 

SRDLIN 

SRDOCT 

SSAVREG 

(RESREG 



; ; CALL=CKSWR 

;;CALL=RDCHR 

;;CALL=RDLIN 

;;CALL=RDOCT 

;;CALL=SAVREG 

;;CALL=RESREG 



TRAP*10(104410) TEST FOR CHANGE IN SOFT-SWR 

TRAP*! 1(104411) TTY TYPEIN CHARACTER ROUTINE 

TRAP*12(104412) TTY TYPEIN STRING ROUTINE 

TRAP*1 3(10441 3) READ AN OCTAL NUMBER FROM TTY 

TRAP*14( 104414) SAVE R0-R5 ROUTINE 

TRAP*^5(104415) RESTORE R0-R5 ROUTINE 
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.SBTTL POWER DOWN AND UP ROUTINES 



06? 16? 
0621 70 
062176 
062200 
062202 
06220A 
062206 
062210 
062212 
062216 
062222 
062230 
062232 



012737 
012737 
010C>6 
010U6 
010246 
010346 
010446 
010546 
01 7746 
010637 
012737 
000000 
000776 



062322 
000340 



000024 
000026 



116736 
062326 
062234 



000024 



.•POWER DOWN 
SPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



ROUTINE 

*$1LLUP.S#PWRVEC 
#340,a#PWRVEC*2 
RO.-(SP) 
RI.-(SP) 
R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
R5,-(SP) 
aSWR.-(SP) 
SP.SSAVR6 
#$PWRUP,a#PWRVEC 

.-2 ;;HANG UP 



;;SET FOR FAST UP 
;PRI0:7 

;PUSH RO ON STACK 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
;PUSH R3 ON STACK 
.-PUSH R4 ON STACK 
;PUSH R5 ON STACK 
.-PUSH aSWR ON STACK 
.SAVE SP 
;;SET UP VECTOR 



062234 


012737 


062322 


062242 


013706 


062326 


062246 


005037 


062326 


062252 


005237 


062326 


062256 


001375 




062260 


012677 


116670 


062264 


012605 




062266 


012604 




062270 


012603 




062272 


012602 




062274 


012601 




062276 


012600 




062300 


012737 


062162 


062306 


012737 


000340 


062314 


104401 




062316 


062330 




062320 


000002 




062322 


000000 




062324 


000776 




062326 


000000 




062330 


015 


012 



000024 



.•POWER 
SPWRUP; 



IS: 



000024 
000026 



120 



SPWRMG 

SILLUP 

$SAVR6 
SPOWER 



UP ROUT 
MOV 
MOV 
CLR 
INC 
BNE 

nov 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

RTI 

HALT 

BR 

0 

.ASCIZ 
.EVEN 



INE 

#lILLUP.a#PWRvEC 

$SAVR6.SP 

SSAVR6 

SSAVR6 

1$ 

(SP)^,SSWR 

(SP)*.R5 

(SP)*.R4 

(SP)*.R3 

(SP)*.R2 

(SP)*.R1 

(SP)*.R0 

«$PWRON.»rPWRVEC 
#340.8#PWRVEC*2 

SPOWER 



.-2 

<15><12>"P0WER' 



;;SeT FOR FAST DOWN 
;GET SP 

.-WAIT LOOP FOR THE TTY 
;WAIT FOR THE INC 
;0F WORD 

.-POP STACK INTO aSWR 

;POP STACK INTO R5 

;POP STACK INTO R4 

;POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO Rl 

;POP STACK INTO RO 

;;SET UP THE POWER DOWN VECTOR 

;PR]0:7 

REPORT THE POWER FAILURE 
;POWER FAIL MESSAGE POINTER 

;THE POWER UP SEQUENCE WAS SMARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 



J A 
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APT COMML'M CAT IONS ROUTINE S£0 0256 

.S8TTL APT CGWIUNI CAT IONS ROUTINE 



062340 


112737 


000001 


062604 


iATYl : 


MOVS 


*1. SFFLG 


; 


;T0 REPORT FATAL ERROR 


0623A6 


112737 


000001 


062602 


$ATY3: 


MOVB 


#1.SMFLG 


; 


;T0 TYPE A MESSAGE 


06235A 


000403 








BR 


SATYC 






062356 


112737 


000001 


062604 


$ATY4; 


MOVB 


*1, SFFLG 


# 


;T0 ONLY REPORT FATAL ERROR 


062364 








$ATYC: 










062364 


010046 








MOV 


RO.-(SP) 


# 


;PUSH RO ON STACK 


062366 


010146 








MOV 


RI.-(SP) 
SMFLG 


0 


.•PUSH R1 ON STACK 


062570 


105737 


062602 






TST8 


9 


.•SHOULD TYPE A MESSAGE? 


062374 


001450 








BEQ 


5$ 


» 


;IF NOT: BR 


062376 


122737 


000001 


001242 




CMP8 


#APTENV,SENV 


0 


; OPERATING UNDER APT? 


062404 


001031 








BNE 


3$ 


0 


;1F NOT: BR 


062406 


132737 


OOClOO 


001243 




81 T8 


*APT SPOOL, SENVM 


0 


.•SHOULD SPOOL MESSAGES? 


062414 


001425 








BEQ 


3$ 


0 


;IF NOT: BR 


062416 


01 7600 


000004 






MOV 


a4(Sp),R0 


0 


;6ET MESSAGE ADDR. 


062422 


062766 


C00002 


000004 




ADD 


*2.4(SP) 




;;8UMP RETURN ADDR. 
.-SEE IF DONE W/ LAST XMiSSION? 


062430 


005737 


001222 




IS: 


TST 


SMSGTVPE 


0 


062434 


001375 








BNE 


IS 


0 


;IF NOT: WAIT 


062436 


010037 


001236 






MOV 


RO,SMSGAD 


0 


.-PUT ADDR IN MAILBOX 


062442 


105720 






2$: 


TST8 


(RO)* 


0 


.-FIND END OF MESSAGE 


062444 


001 376 








BNE 


2S 






062446 


163700 


001236 






SUB 


S^^SGAD.RO 


0 


;SU8 START OF MESSAGE 


062452 


006200 








ASR 


RO 


0 


;GET MESSAGE LNGTH IN WORDS 


062454 


010037 


001240 






MOV 


RO.SMSGLGT 


0 


;PUT LENGTH IN MAILBOX 


062460 


012737 


000004 


001222 




MOV 


*4.$«SGTYPE 


0 


.-TELL APT TO TAKE MSG. 


062466 


000413 








BR 


5S 






062470 


017637 


000004 


062514 


3$: 


MOV 


84(SP).4» 


« 


;PUT MSG ADDR IN JSR LINKAGE 


062476 


062766 


000002 


000004 




ADD 


#2.4 (SP) 




;;8L*f> RETURN ADDRESS 


062504 


013746 


1 7777b 






MOV 


1 77776. -(SP) 


• 


.'PUSH 177776 ON STACK 


062510 


004737 


055544 






JSR 


PC.STYPE 


• 


.•CALL TYPE MACRO 


06£'514 


000000 






4S: 


.WORD 


0 




062516 








5$: 










062516 


105737 


062604 




lOS: 


TST8 


SFFLG 




.•SHOULD REPORT FATAL ERROR"* 


062522 


001416 








BEQ 


12S 




;IF NOT: BR 


062524 


005737 


001242 






TST 


SENV 




.•RUNNING UNDER APT? 


062530 


001413 








BEQ 


12S 




;IF NOT: BR 


062532 


005737 


001222 




US: 


TST 


SMSGTYPE 




.-FINISHED LAST MESSAGE? 


062536 


001375 








BNE 


IIS 




;iF NOT: WAIT 


:'62540 


01 7637 


000004 


001224 




MOV 


S4(SP).SFATAL 




;GET ERROR # 


C62546 


062766 


000002 


000004 




ADD 


#2,4 (SP) 




.•.-BUMP RETURN ADDR. 


062554 


005237 


00^222 






INC 


SMSGTYPC 




;TELL APT TO TAKE ERROR 


062560 


105037 


062604 




12$; 


CLR8 


SFFLG 




.•CLEAR FATAL FLAG 


062564 


105037 


062603 






CLR8 


SLFLG 




.-CLEAR LOG FLAG 


062570 


105037 


062602 






CLRB 


SMFLG 




.•CLEAR MESSAGE FLAG 


062574 


012601 








MOV 


(SP)*.R1 




;POP STACK INTO R1 


062576 


012600 








MOV 


(SP)»,RO 




;POP STACK INTO RO 


062600 


000207 








RTS 


PC 




.•RETURN 


062602 


000 






SMFLG: 


.BYTE 


0 




;MESSG. FLAG 


062603 


000 






SLFLG: 


.BYTE 


0 




.-LOG FLAG 


062604 


000 

000200 
000001 






SFFLG: 

APTSIZE 
APTENV 


.BYTE 
.EVEN 

= 200 
= 001 


0 




.•FATAL FLAG 




000100 






APT SPOOL = 100 










000040 






APT C SUP 


= 040 









CZRMPBO RM05/5/Z DSKLS 
CONSOLE MESSAGES 



•5 

c 

■7 

5 


UOiTOUO 


A7C 


y 


Uo<:oiU 


1 U 1 


c 


'JO<:o 1 5 


A/ A 


6 




AC/ 






•DAA 


0 


A^ 1^ C C 


'lAA 

<:00 


V 


A^ OZ.^ C 


A/ A 


1 U 


yjocr cf 


1 CC 


1 1 


Uo^f JO 


A/ A 


Ic 




DAA 


1 1 

1 b 




■3 A A 


1 *• 


UO J 1 


cUU 


1 3 


Uoj I J J 


A/ A 


lo 


UO J 1 JO 


DAA 


\ f 


vJojcUj 


1 1 A 
1 1 0 


lo 






1 Q 


U0J£C0 


1 u*« 




1>Ojc J'' 


cUU 


c 1 


UO-Jc Jc 


1 cc 


05 


UO-JC J f 


1 cc 


JX 
CJ 


UO-JCO** 


1 cc 


OL 

CH 


<V>7571 
UO-JCf 1 




TC 
CJ 


UO-J-J 1 c 




CO 


UOj Jc ' 




■37 


UOJ-J'»*t 




5H 
CO 


UO J-'O J 


Uhu 


cV 


vO J J f *♦ 




j\j 




1 > \J 


31 


063A06 


131 


3J^ 


063A10 


040 


33 


063An 


040 


3A 


063A12 


040 


35 


063413 


040 


36 
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COT Tl 


AAA 




CAl lAI C • 


1 1 H 


1 1 A 
1 1 H 


All • 

ALL : 


A77 

\JI f 


A/ A 


Al IC C ■ 


A/ A 


AAA 


TAMMA • 

LUmA . 


1 P/ 
1 CH 


1 71 


rlinCLr . 


1 05 
1 CC 


11c 

1 1 P 


/•MCI Al • 


11/ 


111 

1 1 1 


TMCi np ■ 


11c 

1 1 p 


1 PA 
1 cO 


TMCI 07 • 
LiXoLUP . 


1 1 A 


111 
1 1 1 


TMCI CSL • 
LWoLUh . 


1 P/. 
1 CH 


1 71 


TMCI 07- 


1 u 1 


11 A 
1 1 D 










n77 

u/ / 


111 

1 1 1 


rKiCI AO . 




1 PP 
1 CC 


T\D r l/P C • 


117 

1 1 / 


1 1 A 
1 1 0 


IMUiMC • 


1 (\L 


1 PP 


Mcnpuc • 


1 pp 

r cc 


111 

1 1 ! 


MCmQU • 
niVJl/n V . 


1 P^ 

1 C J 


1 1 A 
1 1 0 


C VCTAT • 


lis 


uou 


tOMOP • 
♦ronuc • 


it; 


UOU 


1;RM07 • 
*rv^u J • 


1 1 


nAO 
uou 




1 1 A 
1 1 0 


117 


MDTRM • 


11^ 


117 


1 nnFw • 

LUl/C V . 


1 1 0 


1 1 7 




1 1 A 


117 
1 1 f 


niU 1 MVL • 


117 

1 1 f 


1 DA 
1 UO 


\JkH I Ur r • 


117 


11^ 


1 ifUTDM • 
1 v,/ni ■ 






M ■ 


000 




y ; 






BLNKS4: 






BLNKS3: 






BLNKS?: 


000 




BLNKS1 : 






• EVEN 
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CONSOLE MESSAGES 

.Asciz a=a 

.ASCiZ aALLa<CRLF> 

, ASCIZ a ? a 

ASCIZ a a 

!aSC1Z <CRLF>aTYPE HELP TEXT <L) N ? 3 

.ASCIZ <CRLF>aRMCS1=a 

.ASCIZ a LIMITS - L0= 160000, HI= 17XXXXa<CRLF> 

.ASCIZ aR,'vivEc=a 

.ASCIZ a LIMITS - L0= 0, HI= 1000a<CRLF><LF> 

.ASCII <CRLF>aTYPE "A" TO TEST ALL DRIVES, OR TYPE DRIVE NU«B£R(S)a 

.ASCIZ <CRLF>aAND TERMINATE INPUT WITH A CARRIAGE RETURN. 3 

.ASCII <CRLF> 

.ASCIZ a 7ILLEGAL INPUTa<CRLF> 

.ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 

.ASCIZ /NONE/ 

.ASCIZ <CRLf>/DRIVE(S; : / 

.ASCIZ /DRIVE/ 

.ASCIZ <CRLF>/UNIT STATUS:/ 

.ASCIZ /RM02/ 

.ASCIZ /RM03/ 

.ASCIZ /R,M05/ 

.ASCIZ a NOT AN RM05/3/2a 

.ASCIZ / LOAD DEVICE/ 

.ASCIZ / NOT PRESENT/ 

.ASCIZ / NOT AVAILABLE/ 

.ASCIZ / OFFl "ME/ 

.ASCIZ / ONLi.../ 

.ASCIZ /N/ 

.ASCIZ /V/ 

.ASCII / / 

.ASCII / / 

.ASCII / / 

.ASCIZ / / 
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2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
15 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
45 
44 
45 
46 
*i7 
48 
49 
50 
51 
52 
53 
54 

55 063416 
56 

57 065416 020000 
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,S8TTL FUNCTION CODE TABLE 

THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 

WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

WLE - BIT n IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COWAND. 
THE WRITE ERRORS WHICH ARE ENABLED ARE 'V>LE", "VlCF", "DPE", "UPE". 

lAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
JF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
COMMAND. THE ERRORS ENABLED BY THIS BJT ARE ''TRE", "DLT", 'MEM", 
•MXF", 'IBT", AND "AOE". 

BIT 08 IS NOT USED. 

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
HEADER ERRORS INCLUDE "HCRC", '^^CE", 'TER". AND 'BSE". 

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIElD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
COMMAND. THESE ERRORS INCLUDE 'WDPE", "t>CK", AND "ECH". 

BIT 05 IS NOT USED. 

BIT 04 IS NOT USED. 

BIT 03 IS NOT USED. 

BIT 02 IS NOT USED. 

BIT 01 IS NOT USED. 

ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDT8: .'FUNCTION CODE TABLE 

.WORD OPI ;NOP 



SEO 0258 
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58 


063420 


130001 


.WORD 


OP I 


ATA. 


]LF . 


IVC 




ILLEGAL FUNCTION (2) 


59 


063422 


1 32000 


.WORD 


ATA 


OP] . 


]VC. 


]AE 




SEE< 


60 


063424 


1 30000 


.WORD 


ATA 


OPI! 


ive 






RECALIBRATE 


61 


063426 


020000 


.WORD 


OP] 










DRIVE CLEAR 


62 


063430 


030000 


.WORD 


OP J 


]VC 








RELEASE 


63 


063432 


1 30000 


.WORD 


OP] !ATA. 


IVC 






OFFSE T 


6A 


063454 


130000 


.WORD 


OP] 


ATA. JVC 






RETURN TO CcNTERL]NE 


65 


063436 


020000 


.WORD 


OP] 










READ ]N PRESET 


66 


063440 


020000 


.WORD 


OP] 










PACK ACKNOWLEDGE 


67 


063442 


130001 


.WORD 


OP] 


ATA 


]L' 


] VC 




]LLEGAL FUNCTION (24) 


68 


063444 


130001 


.WORD 


OP] 


ATA 


ILF 


f \ if 

]VC 




ILLEGAL FUNCTION (26) 


69 


063446 


1 32000 


.WORD 


ATA 


!OPI . 


IVC 


]AE 




SEARCH 


70 


063450 


1 30001 


.WORD 


OP I 


ATA. 


ILF 


IVC 




]LLEGAL FUNCTICN (52) 


71 


063452 


130001 


.WORD 


OPI 


ATA 


ILF 


IVC 




JLLcGAL rUNCrjON Kbh) 


72 


063454 


130001 


.WORD 


OP I 


!ATA 


ILF 


IVC 




JLLcGAL rUWCTJuN (36) 


73 


063456 


1 30001 


.WORD 


OP] 


ATA 


ILF 


]VC 




..til P* ^ A 1 PIIAirTf/%At //A\ 

; ILLEGAL rUNC'JON (40) 


74 


063460 


1 30001 


.WORD 


OP] 


ATA 


ILF 


]ve 




;ILLc(>AL FUNCTiCJN {.Uc) 


75 


063462 


1 30001 


.WORD 


OP] 


'ATA 


ILF 


]ve 




. fltf/*AI niAI^Tt /^l / / / \ 

;JLLcGAL FUNCTION (44) 


76 


063464 


1 30001 


.WORD 


OP] 


1 A T A 

. Ai A 


T 1 C 

JL^ 


]VC 




;ILLEGAL rUNCTJON (46) 


77 


063466 


073300 


.WORD 


WCc 


!0P] 


IVC 


]AE !AOc IHCc . 


C TLA 

ECH 


. 1 m T T C fl iC ft^ r\ AT A 

; WRITE CHECK DATA 


78 


063470 


073300 


.WORD 


WCE 


!0P] 


IVC 


I Ac ! AOE :HCc 


C r li 

ECH 


. 1 in TTP f Lie f LlC A np A A Am r\ A T A 

; WRITE CHECK HcADcR AND DATA 


79 


063472 


1 30001 


.WORD 


OP] 


!ATA 


ILF 


IVC 




. Tl 1 CfAt CilAlfTtnAt /C/ \ 

.ILLEGAL FUNCTION (!)4) 


80 


063474 


1 30001 


.WORD 


OP] 


!ATA 


ILF 


'IVC 




;iLLcGAL rLWCTJON (3o) 


81 


063476 


037200 


.WORD 


OP] 


!]VC 


WLE 


1 f A c 1 Anc 1 Lire 

• ]AE lAOc IHCt 




;WRjTc DATA 


82 


063500 


037000 


.WORD 


OP] 


live 


WLE 


1 T A c 1 Arte 

I lAE lAOc 




.IIOtTC UCAf^CD AAm r\ATA 

;WRllc HcADcR AND DA I A 


o5 




1 jUUU I 


uoort 
. Wunl/ 


OP] 


lATA 


ILF 








84 


063504 


130001 


.WORD 


OPJ 


J ATA 


ILF 


live 




.•ILLEGAL FUNCTION (66) 


85 


0635G6 


033300 


.WORD 


OPI 


ilVC 


lAE 


.'AOEIHCEIECH 




.-READ DATA 


86 


063510 


033300 


.WORD 


OPI 


five 


lAE 


lAOElHCElECH 




.READ HEADER AND DATA 


87 


063512 


130001 


.WORD 


OPI 


•ATA 


ILF 


live 




.ILLEGAL FUNCTION (74) 


88 


063514 


130001 


.WORD 


OPI 


.'ATA 


'ILF 


'IVC 




.ILLEGAL FUNCTION (76) 
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1 
? 
3 
4 
5 
6 
7 
8 
9 
10 



063516 
063517 
063520 
063521 
063522 
063523 
063524 
063525 



001 
002 
004 
010 
020 
040 
100 
200 



.S8TTL ATTENTION (ATA) TABLE 



ATNT8L: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



1. 

2. 

4. 

8. 

16. 

52. 

64. 

123. 
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DAT* PATTFRN TABLE 

1 
2 

3 0635c6 

4 063526 

5 063526 000000 

6 063530 000001 

7 063532 000003 

8 063554 000007 

9 063536 000017 

10 0635A0 000037 

11 0635A2 000077 

12 06354A 000177 

13 063546 000377 
U 063550 00077' 

15 063552 001777 

16 063554 003777 

17 063556 007777 

18 063560 017777 

19 063562 037777 

20 C63564 077777 

21 063566 ^77777 

22 063570 ^77777 

23 063572 077777 

24 063574 037777 

25 063576 017777 

26 063600 007777 

27 063602 003777 

28 063604 001777 

29 063606 000777 

30 063610 000377 

31 063612 000177 

32 063614 000077 

33 0O3616 000037 

34 063620 000017 

35 063622 000007 

36 063624 000003 

37 063626 000001 

38 063630 000000 

39 063632 000000 

40 063634 000001 

41 063636 000002 

42 063640 000004 

43 063642 000010 

44 063644 000020 
^5 063646 000040 

46 063650 000100 

47 063652 000200 

48 063654 000400 

49 063656 001000 

50 063660 002000 

51 063662 004000 

52 063664 010000 

53 063666 020000 

54 063670 040000 

55 063672 100000 

56 063674 100000 

57 063676 040000 
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.SBTTL DATA PATTERN TABLE 



RGDTPT : 
MIXED: 



.WORD 


0. 


.WORD 


1. 


.WORD 


3. 


.WORD 


7. 


.WORD 


15. 


.WORD 


31. 


.WORD 


63. 


.WORD 


127. 


.WORD 


255. 


.WORD 


511. 


.WORD 


1023. 


.WORD 


2047. 


.WORD 


4095. 


.WORD 


8191. 


.WORD 


16383. 


.WORD 


32767. 


ONES: .WORD 


65535. 


.WORD 


65535. 


.WORD 


32767. 


.WORD 


16383. 


.WORD 


8191. 


.WORD 


4095. 


.WORD 


2047. 


.WORD 


1023. 


.WORD 


511. 


.WORD 


255. 


.WORD 


127. 


.WORD 


63. 


.WORD 


31. 


.WORD 


15. 


.WORD 


7, 


.WORD 


3. 


.WORD 


1. 


ZEROS: .WORD 


0. 


.WORD 


0. 


.WORD 


1. 


.WORD 


2. 


.WORD 


4. 


.WORD 


8. 


.WORD 


16. 


.WORD 


32. 


.WORD 


64. 


.WORD 


128. 


.WORD 


256. 


.WORD 


512. 


.WORD 


1024. 


.WORD 


2048. 


.WORD 


4096. 


.WORD 


8192. 


.WORD 


16384. 


.WORD 


32768. 


.WORD 


32768. 


.WORD 


16384. 
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DATA PATTERN TABLE 






58 063700 


A T Ar\ AA 

020000 


.WORD 


8192. 


59 063702 


t\ 'i A Art A 

010000 


.WORD 


4096. 


60 06370A 


004000 


.WORD 


2048. 


61 063706 


002000 


.WORD 


102^. 


62 063710 


rtrt 1 AAA 

001000 


.WORD 


512. 


63 063712 


rtAA/ AA 

000400 


.WORD 


256. 


6A 065714 


AAA AA 

000200 


.WOPD 


128. 


65 063716 


AAAI A A 

0001 00 


.WORD 


64. 


66 063720 


A AAA/ A 

000040 


.WORD 


32. 


67 063722 


000020 


.WORD 


16. 


68 063724 


AAAA1 A 

000010 


.WORD 


8. 


o9 063726 


000004 


.WORD 


4. 


70 063730 


C' AAAA ■» 

000002 


.WORD 


2. 


71 063732 


AAAAA'I 

000001 


.WORD 


1. 




AAA "NA A 

000000 


.WORD 


0. 


73 063736 


1 fffff 


.WORD 


65535. 


74 063740 


1 777 7X 

1 77 f 7b 


.WORD 


65534. 


75 063742 


1 7777/ 

\ 7777** 


.WORD 


65532. 




1 777 7A 

1 7 77/0 


.WORD 


65528. 


77 7 7/ X 


1 777XA 

1 777b{j 


.WORD 


65520. 


70 AX77Crt 


1 777/ A 

1 777'*v 


.WORD 


65504. 




1 777AA 
1 7 7 7\}\) 


.WORD 


65472. 


OA AX7"7C/ 


1 77XAA 
1 7 7t>\)\J 


.WORD 


65408. 


O 1 AX 7 7C X 


1 77/ AA 
1 / /400 


.WORD 


65280. 


O AX 7 7X A 


1 77AAA 
1 7 '000 


.WORD 


65024. 


O 7 AX 7 7X O 


1 7XAAA 
, 1 76000 


.WORD 


64512. 


OH 063 /^6h 


1 7/ AAA 

1 74000 


.WORD 


63488. 


OC AX77XX 

CD 063/^66 


1 7AAAA 
1 70000 


.WORD 


61440. 


ox AX777A 

i>6 063/^ fyj 


1 XAAAA 
1 6000U 


.WORD 


57344. 


07 AX 7 


1 / AAAA 
1 40000 


.WORD 


49152. 


OO AX777/ 

OO 063/^/^** 


1 AAAAA 
1 00000 


.WORD 


32768. 


On AX 777X 

oV 063/^ ft 


/\AAAAA 
000000 


.WORD 


0. 


AA AX/ AAA 

90 064000 


AAAAAA 
000000 


.WORD 


0. 


91 Uc400<: 


1 AAAAA 
1 00000 


.WORD 


32768. 


9*? 064004 


1 / AAAA 
1 40UU0 


.WORD 


49152. 


93 064006 


1 XAAAA 
1 60U00 


.WORD 


57344. 


A/ OX / A1 A 

94 064010 


1 7AAAA 
1 70000 


.WORD 


61440. 


AC AX./ A1 O 

93 06401 (i 


1 7/ AAA 

1 74000 


.WORD 


63488. 


ox /\x/Aiy 
96 064014 


1 7XAAA 

1 7600U 


.WORD 


64512. 


9^ 064016 


1 77AAA 

1 7 /OOO 


.WORD 


65024. 


AX / A 1A 

98 0640*:0 


1 77/ AA 

1 7 7h\j\j 


.WORD 


65280. 


QQ AX/AOO 

9V 0640<:<: 


1 77XAA 


.WORD 


65408. 


i AA AX/ AO/ 

100 0640<;4 


1 777AA 

17' / 00 


.WORD 


65472. 


1 A1 AX/ AOX 

101 0640^:6 


1 777/ A 

\ 7 7 /4U 


.WORD 


65504. 


lAO AX/ A^A 

10<: 064030 


1 777XA 

\ 7 7 7o\j 


.WORD 


65520. 


1 A7 AX/AIO 

103 06403*: 


1 7777A 
\ 7 7 7 7\J 


.WORD 


65528. 


1 A/ AX/ A7/ 

1 04 064034 


1 7777/ 
\ f f f fH 


.WORD 


65532 


1AC AX/ A7X 

103 064036 


1 7777A 


.WORD 


65534. 


1 AX AX/ Ay A 

106 064040 


1 77777 

\ 7 7 1 1 f 


.WORD 


65535. 


1 A7 AAZ.A/ 0 

10^ 0o404<; 




.WORD 


43690. 


1 AO AX/ A/ / 

lOo 064044 


1 COC7C 


.WORD 


43690. /2 


1 AO AX/ A/ X 

lOV 064046 


1<:!><:5^ 


.WORD 


43690. 




1 77777 
\ 1 1 1 1 1 


.WORD 


65535. 


111 064052 


}7777t 


.WORD 


65534. 


112 064054 


^7777'i 


.WORD 


65533. 


113 064056 


1 77773 


.WORD 


65531. 


114 064060 


1 77767 


.WORD 


65527. 



SEO 0262 
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SCO 0263 



115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
KO 
HI 
iA2 
143 
144 
145 



064062 
064064 
064066 
064070 
064072 
064074 
064076 
064100 
064102 
064104 
064106 
064110 
064112 
064114 
064116 
064120 
064122 
064124 
064126 
C64130 
064132 
064134 
064136 
064140 
064142 
064144 
064146 
064150 
064152 
064154 



177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
077777 
M7777 
y^7777 
yt7777 
y7Z777 
}7S777 
1 7b777 
^77^77 
1 77577 
1 77677 
^777l7 
}777S7 
y777t7 
y7777l 
^7777S 
1 77776 
\77777 



ENRGDT: 
.EVEN 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



65519. 

65503. 

65471 . 

65407. 

65279. 

65023. 

64511. 

63487. 

61439. 

57343. 

49151. 

32767. 

32767. 

49151 . 

57343. 

61439. 

63487. 

64511. 

65023. 

65279. 

65407. 

65471. 

65503. 

65519. 

65527. 

65531. 

65533. 

65534. 

65535. 
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SEO 0?64 



1 
-} 

4. 

3 
4 
5 
6 
7 



,S8TTL ERROR MESSAGE TABLE 



11 
12 



064162 
064174 
064210 
06'. -16 

8 064230 

9 064240 
10 064252 

064260 
064272 

13 064276 

14 064504 

15 064320 

16 064326 

17 064342 

18 064350 

19 064360 

20 C64366 

21 064376 

22 064404 

23 064414 

24 064422 

25 064432 

26 064440 

27 064450 

28 064456 

29 064466 

30 064474 

31 064504 

32 064512 

33 064522 

34 064530 

35 064534 

36 064542 

37 064550 

38 064554 

39 064562 

40 064570 

41 064576 

42 C64604 

43 064610 

44 064616 

45 064624 

46 064630 

47 064636 

48 064644 

49 064652 

50 064666 

51 064676 

52 064704 

53 064710 

54 064716 

55 06^722 

56 064732 

57 064736 



077300 
077316 
102322 
077316 
102322 
077300 
102322 
077316 
102322 
077544 
077316 
102322 
077316 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077710 
102322 
077316 
102322 
077544 
077316 
102322 
077544 
077316 
102322 
077316 
102322 
077544 
077316 
102322 
077544 
077316 
102322 
077316 
102322 
100117 
077300 
102322 
077300 
102322 
077300 
102322 



072206 
077341 
101525 
077406 
102043 
077341 
101713 
077463 
101713 
000000 
077406 
101713 
077602 
101666 
077731 
101666 
077731 
101666 
077751 
101666 
077751 
101666 
0?7771 
101666 
07777 \ 
101666 
100011 
101666 
100011 
101666 
100050 
102010 
100101 
100031 
102010 
100070 
077602 
102010 
100050 
101666 
100101 
100031 
101666 
100070 
077602 
101666 
077406 
101763 
077633 
076670 
101666 
076670 
101666 
076670 
101666 



000000 
077366 
101666 
077341 
101666 
077422 
101666 
077500 
101666 

077500 
101666 
077341 
101713 
077633 
101713 
077662 
101713 
077633 
101713 
077662 
101713 
077633 
101713 
077662 
101713 
C77633 
101713 
077662 
101713 
076566 

000000 
076566 

000000 
076566 
000000 
076624 

000000 
076624 

000000 
076624 
000000 
076670 
101666 
000000 

000000 

102010 

101763 



EMTI : 
EMT2: 

EMT3: 

EMT4: 

EMT5: 

EMT6: 
EMT7: 
EMTIO 
EMT11 
EMT12 
EMT13 
EMTI 4 
EMTI 5 
EMT16 
EMTI 7 
EMT20 

EMT21: 

EMT22: 
EMr23: 

EMT24 : 

EMT25: 
EMT26: 

EMT27 
EMT30 
EMT31 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



EMS300 
EMS301 
EMS511 
EMS301 
EMS511 
EMS300 
EMS511 
EMS301 
EMS511 
EMS312 
EMS301 
EMS511 
EMS301 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMS511 
EMS316 
EMSSn 
EMS301 
ERS511 
EWS312 
EMS301 
E«S511 
E«S312 
EMS301 
E«S5n 
EnS301 
EW511 
EMS312 
EWS301 
EMS511 
ErtS312 
EMS301 
EMS511 
EMS301 
EMS511 
EMS330 
EMS300 
EMS511 
EMS300 
EMS511 
EMS300 
EMS511 



EMSI.O 
EMS302 
EMS500 
EMS306 
EMS505 
EMS302 
EMS502 
EMS310 
EMS502 
0 

EMS306 
EMS502 
EMS313 
fcMS501 
EMS317 
EMS501 
EMS317 
EHS501 
EHS320 
EHS501 
EMS320 
EMS501 
EMS321 
EMS501 
EHS321 
EHS501 
EHS322 
EHS501 
EHS322 
EMS501 
EMS324 
EMS504 
EHS326 
E«S323 
EMS504 
EHS325 
EMS313 
EHS504 
E«S324 
E«S501 
E«S326 
E«S323 
EHS501 
EW325 
EHS313 
EHS501 
Ens306 
EHS503 
EMS314 
EHS252 
EHS501 
EMS252 
EMS501 
EMS252 
EMS501 



.EMS303.EMS1,EMS304 
.EMS501.EMS502.EMS503,0 
,EMS302 

.EMS501,EMS502.0 
.EMS307,EMS2 
.EMS501,EMS503.0 
.EMS311 

.EMS501,EMS503.EMS504 
.EMS311 

,EMS501.EMS503,EMS504,0 
,EMS302 

,EMS502,EMS504,EMS503,0 
,EMS314 
, EMS 502,0 
.EMS315 
.EMS502,0 
.EMS314 
.EMS502,0 
,EMS315 
, EMS 502.0 
.EMS314 
,EMS502.0 
.EMS315 
,EMS502,0 
.EMS314 
, EMS 502,0 
,E«S315 
,EMS502.0 
.EMS250 

.0 

,EMS250 
.0 

.EMS250 
,0 

.EMS251 



,0 

,EnS251 
.0 

.EMS251 
,0 

.EMS252.EMS253.EMS327.EMS254 

,EMS501,EMS502 

.0 

.0 

,EMS504.0 

.EMS503.0 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



064746 

064754 

064762 

064770 

065000 

065006 

065016 

065024 

065032 

065040 

065046 

065054 

065062 

065070 

065074 

065102 

065110 

065116 

065130 

C65142 

065146 

06"; 154 

065^02 

065170 

065174 

065204 

065210 

065220 

065226 

065234 

065242 

065250 

065256 

065264 

065272 

065276 

065304 

065312 

065320 

065326 

065334 

065342 

065346 

065354 

065362 

065366 

065374 

065402 

065410 

065414 

065424 

065430 

065440 

065446 

065452 

065460 

065466 



0773^6 

102322 

077316 

102322 

077316 

102322 

077316 

102322 

077316 

102322 

077316 

077544 

077316 

102322 

077544 

077316 

102322 

077316 

102322 

077300 

102322 

100136 

102322 

077300 

102322 

077300 

102322 

077316 

102322 

077544 

077316 

102322 

077544 

077316 

102322 

077544 

077316 

102322 

100136 

102322 

077316 

102322 

077544 

077316 

102322 

077544 

077316 

102322 

077111 

102322 

072424 

102322 

077316 

102322 

077544 

077316 

102322 



100050 

101666 

100050 

101666 

100050 

101666 

100031 

101666 

077602 

101666 

100050 

100101 

100031 

102010 

100070 

077602 

102010 

100031 

102010 

072326 

101666 

072373 

101666 

076723 

101666 

076723 

101666 

100050 

101666 

100101 

100050 

101666 

100101 

100031 

101666 

100070 

077602 

101666 

072373 

101666 

100050 

101666 

100101 

100031 

101666 

100070 

077602 

101666 

100166 

102116 

100204 

102157 

100050 

101666 

lOOIOi 

100031 

101666 



076670 
000000 
076670 
102010 
076670 
101763 
076670 
000000 
076670 
000000 
077017 
000000 
07701 7 

000000 
077017 
000000 
076566 
101666 

000000 
076723 
000000 

101763 

102010 
076723 
101763 
000000 
076723 
102010 
000000 
076723 

000000 
076723 
000000 
077061 
000000 
077061 

000000 
077061 

000000 
077061 
000000 

101666 

101666 
077145 

000000 
077145 



BMT32 
EMT33 
EMT34 
EMT35 
EMT36 
EMT37 
EMT40 

EMT41 
EMT42 
EMT43 
EMT44 
EMT45 
EMT46 
EMT4r 

EMT50: 

E«T51 : 

EMT52 
EMT53 
EMT54 

EMT55: 

EMT56 
EMT57 
EMT60 

EMT61 

EMT62; 



.WORD BMS301 .EMS324,EMS252 

.WORD EMS511.EMS501.0 

.WORD EMS301 .EMS324.EMS252 

.WORD EMS511,EMS5C1,EMS504,0 

.WORD EMS301.EMS324.EMS252 

.WORD EMS511.EMS501.EMS503.0 

.WORD EMS301,EMS323,EMS252 

.WORD EriS511,EMS501,0 

• WORD EriS301,EMS313.EMS252 

.WORD EM3511.EMS501,0 

.WORD EMS301 .EMS324.EMS255 

.WORD EMS312.EMS326,0 

.WORD EMS301 .EMS323,EMS255 

.WORD EMS5n.EMS504 

.WORD EMS312.EMS325,0 

.WORD EMS301 .EMS313.EMS255 

.WORD EMS511,EMS504,0 

.WORD EMS301 ,EMS323,EMS250.EMS327.EMS255 

.WORD EMS51 1 ,EMS504,EMS501 ,EMS503,0 

.WORD EMS300,EMS3 

.WORD EMS511,E«S5O1.0 

.WORD EMS331.EHS4-EMS253 

.WORD EMS511.EMS501,0 

.WORD EMS300,EHS253 

.WORD EMS5n,EMS501,EMS503.0 

.WORD EMS300,EMS253 

.WORD EMS511,EMS501,EMS504.0 

.WORD EMS301,EMS324,EMS253 

.WORD EMS511,EMS501,EMS503 

.WORD EHS312,EMS326,0 

.WORD EMS301.EMS324.EMS253 

.WORD E«S511.E«S501,Ef1S504 

.WORD EMS312.EMS326.0 

.WORD EJiS301 .E«S323.E«S253 

.WORD ENSSIl.EnSSOl 

.WORD EnS312.EnS325.0 

.WORD EMS301,E«S313.EMS253 

.WORD EWSn.EMSSOI.O 

.WORD EMS331 .£«S4.EMS256 

.WORD EMS511.E«S501,0 

.WORD E«S301,E«S324.EMS256 

.WORD E«S511.E«S501 

.WORD EMS312.EHS326.0 

.WORD E«S301.E«S323,E«S256 

.WORD EMS511.EWS501 

.WORD EMS312,EHS325,0 

.WORD EMS30i,EHS313.EMS256 

.WORD Ens5ii.Enssoi,o 

.WORD EnS257,EMS332 

.WORD EMS511,EnS506,EMS501,0 

.WORD EMS5.EHS333 

.WORD EMS511,EMS507,fMSS01.0 

.WORD EMS301,E«S324,EMS260 

.WORD EMS511,E«S501 

.WORD EMS312,FHS326.0 

.WORD EMS301,EMS323.EMS260 

.WORD EMS511 .EMS501 
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S£0 0^66 





065472 


077544 


100070 


000000 




.WORD 


T '1 6 


065500 


077316 


C 77602 


077145 


EMT63: 


.WORD 




065506 


102322 


101666 


000000 




.WORD 


118 


065514 


077300 


072745 




EMT64: 


.WORD 


M9 


065520 


102322 


101666 


000000 




.WORD 


120 


065526 


072745 


100230 


100326 


EMT65: 


.WORD 


121 


065534 


102322 


101666 


000000 




.WORD 


122 


065542 


072745 


100253 


100326 


EMT66: 


.WORD 


^23 


065550 


102322 


101666 


000000 




.WORD 


12A 


065556 


077300 


072474 




EMT67: 


.WORD 


125 


065562 


102322 


101666 






.WORD 


126 


065566 


072540 


100204 


000000 




.WORD 


127 


065574 


077300 


072474 


100111 


EMT70: 


.WORD 


128 


065604 


102322 


101666 


102010 




.WORD 


129 


065614 


072474 


100230 


100306 


EMT71 : 


.WORD 


130 


065630 


102322 


101666 


101713 




.WORD 


131 


065640 


072474 


100253 


100306 


EMT72: 


.WORD 


132 


065654 


102322 


101666 


101713 




.WORD 


133 


065664 


077316 


077145 


077366 


EMT73: 


.WORD 


134 


065674 


102322 


101666 


101713 




.WORD 


13S 


065704 


100360 


100374 


100326 


EMT74: 


.WORD 


136 


065714 


077300 


073023 




EMT75: 


.WORD 


137 


065720 


102322 


101763 


000000 




.WORD 


138 


065726 


100451 


073023 


100423 


EMT76: 


.WORD 


159 


065734 


102322 


101763 


000000 




.WORD 


KG 


065742 


100272 


073023 


100423 


EMT 77 ; 


.WORD 


141 


065750 


102322 


101763 


000000 




.WORD 


142 


065756 


077316 


077602 


076756 


EMTIOO: 


.WORD 


143 


065770 


102322 


101763 


000000 




.WORD 


'44 


065776 


100451 


073072 


100317 


EMTIOI : 


.WORD 


145 


066006 


102322 


101763 


101666 




.WORD 


146 


066016 


100272 


073072 


100317 


EMn02: 


.WORD 


147 


066026 


102322 


101763 


101666 




.ywo 


148 


066036 


077316 


077602 


076756 


EMT 103; 


.WORD 


149 


066050 


102322 


101763 






.WORD 


150 


066054 


073072 


100166 


000000 




.WORD 


151 


066062 


100451 


073276 


100317 


EMT 104: 


.WORD 


152 


066072 


102322 


101763 


101666 




.WORD 


153 


066102 


100272 


073276 


100317 


EMn05; 


.WORD 


154 


066112 


102322 


101763 


101666 




.WORD 


155 


066122 


077316 


077602 


076756 


EMT 106 : 


.WORD 


156 


066134 


102322 


101763 






.WORD 


157 


066140 


073276 


100166 


000000 




.WORD 


158 


066146 


100451 


073337 


100317 


EMT107: 


.WORD 


159 


066156 


102322 


101763 


101666 




.WORD 


160 


066166 


073337 


100515 


073403 


EMT110: 


.WORD 


161 


066202 


102322 


101666 


000000 




.WORD 


162 


066210 


073337 


100220 


100510 


EMT111: 


.WORD 


163 


066222 


102322 


101666 


000000 




.WORD 


164 


066230 


100272 


073337 


100317 


EMT112: 


.WORD 


165 


066240 


102322 


101763 


101666 




.WORD 


166 


066250 


100272 


073337 


100317 


EMT113: 


.WORD 


167 


066266 


102322 


101666 


000000 




.WORD 


168 


066274 


073337 


100533 


073403 


EMT114: 


.WORD 


169 


066310 


102322 


101666 


000000 




.WORD 


UO 


066316 


077316 


077602 


076756 


EMT115: 


.WORD 


171 


066330 


102322 


101763 






.WORD 



EMS312.EMS325,0 

EMS301.EMS313.EMS260 

EMS511.EMS501.0 

EMS300.EMS 2 

EMS511.EMS501.0 

EMS12.EMS335,EMS342 

EMS511,EMS501.0 

EMS12.EMS336,EMS342 

EMS511.EMS5O1.0 

EMS300.EMS6 

EMS511,EMS501 

EMS7.EMS333,0 

EMS300 . EMS6 . EMS327 , EMS7 

EMS511.EMS501.EMS504,0 

EMS6.EMS335.EMS340.EMS10.EMS333.EMS342 

EMS511.EMS501,EMS502,0 

EMS6 . EMS336 . EMS340 , EMSl 0 , EMS334 . EMS 342 

EMS511,EMS501.EMS502.0 

EMS301 .EMS260.EMS303.EMS11 

EMS511.EMS501.EMS502.0 

EMS343.EMS344.EMS34ir.O 

EMS300.EMS13 

EMS511.EMS503,0 

EMS346,EMS13.EMS345 

EMS511,EMS503,0 

EMS337.EMS13,EMS345 

EMS511,EMS503.0 

EMS301,EMS313,EMS254.EMS347,EMS13 

EMS511.EMS5C3,0 

E«S346,EMS14.EMS341 .EMSl 5 

EMS511.EMS503.EMS501.0 

EMS337,EMSK,EMS341 .EMS15 

EMS511.EMS503.EMS501.0 

EMS301 . EMS31 3, EMS254 . EMS34 7. EMS 1 5 

EMS511.EMS503 

EMS14.EMS332.0 

E«S346.EMS17,EMS341 .EMS16 

EMS511,EMS503,EMS501.0 

EMS337 . EMS 1 7 . EMS34 1 . EMS 1 6 

EMS511,EMS50i.EMS501,0 

EMS301 , EMS31 3 . EMS254 . EMS34 7 . EMS 1 6 

EMS511,EMS503 

EMS)7.EMS332,0 

EMS346.EMS20,EMS341 .EMS21 

EMS511,EMS503.EMS501.0 

EMS20.EMS351 .EMS21 .EMS350.EMS22.EMS315 

EMS511.EMS501,0 

EMS20 , EMS334 , EMS350 . EMS22 . EMS333 
EMS511.EMS501.0 
EMS337.EMS20.EMS341 .EMS21 
EMS511,EHS503.EMS501.0 

EMS337.EMS20.EMS341 ,EMS21 .EMS350.EMS22.EMS334 
EMS511.EHS501.0 

EMS20,EMS352,EMS21.EMS350,EMS22.EMS333 
EMS511.EHS501.0 

EMS301.EMS313.EMS254,EMS347.EMS21 
EMS511.EMS503 



iZRMPfiO RM05/^/2 DSKLS TST 1 
ERROR MESSAGE TABLE 



MACRO ;04.00 



H 5 

4-APR-81 01:2A:if5 PAGE 36-3 



173 066334 

173 066342 

174 066352 
066362 

176 066372 

177 066402 

178 066414 

179 066420 

180 066426 

181 066436 

182 066446 
^33 066450 

184 066466 

185 066500 

186 066504 

187 066512 

188 066522 

189 066530 

190 066536 

191 066542 

192 066550 

193 066560 

194 066566 

195 066600 
1% 066604 

197 066612 

198 066620 

199 066630 

200 066636 

201 066646 

202 066660 

203 066666 

204 066700 

205 066706 

206 066714 

207 066722 

208 066732 

209 066740 

210 066744 

211 066752 

212 066762 

213 066770 

214 067002 

215 067010 

216 067016 

217 067024 

218 067034 

219 067042 

220 067050 

221 067056 

222 067072 

223 067100 

224 067114 

225 067122 

226 067130 

227 067140 
2^8 067144 



073337 

100451 

102322 

100272 

102322 

077316 

102322 

073527 

100451 

102322 

100272 

102322 

077316 

102322 

073664 

077300 

102322 

100136 

102322 

074065 

100272 

102322 

077316 

102322 

074021 

074145 

102322 

074216 

102322 

100626 

102322 

100626 

102322 

100136 

102322 

074355 

102322 

0771 76 

102322 

077300 

102322 

100626 

102322 

100451 

102322 

100272 

102322 

101007 

102322 

100272 

102322 

074557 

102322 

077316 

102122 

101052 

102122 



100166 
C73527 
101763 
073527 
101763 
077602 
101763 
100166 
073664 
101763 
073664 
101763 
077602 
101763 
100166 
074021 
101763 
074021 
101763 
077662 
074021 
101763 
077602 
101763 
100166 
100573 
102010 
100573 
102010 
074276 
102010 
074326 
102010 
072373 
102010 
100670 
101666 
100766 
101763 
074417 
101666 
074447 
102010 
074501 
102010 
074501 
102010 
077463 
101666 
074557 
101666 
100573 
101666 
077406 
101666 
074625 
101763 



000000 
100317 
101666 
100317 
101666 
076756 

000000 
100317 
101666 
100317 
101666 
076756 

000000 
077422 
000000 
100547 

000000 
100317 
000000 
076756 

000000 
076566 
101763 
076566 
101763 
076566 
000000 
076566 
000000 
077017 
000000 
100712 
000000 

000000 
077422 
000000 
07701 7 
000000 
100423 
000000 
100317 
000000 
074557 
000000 
100317 
000000 
101024 
000000 
074417 
101763 

000000 



EMT116 
EMT117 
E'^T120 

FMT121 
EMT122 
EWT123 

EMT124: 
EMT125: 

EMT126: 
EMT127: 

EMT130 
EMn3l 
EMn32 
EMT133 
EMT134 
EMT135 
EMT136 
EMT137 
EMT140 
EMT141 
EMT142 
EMT143 
EMT144 
EWT145 
EWT146 
EWT147 



.WORD EMS20.EMS332.0 

.WORD EMS346.EMS23.EMS341.EMS24 

.WORD EMS511.EMS503.EMS501.0 

.WORD EMS337,EMS23.EMS341 ,EMS24 

.WORD EMS511.EMS503,EMS501,0 

.WORD EMS301 .EMS313,EMS254.EMS347,EMS24 

.WORD EMS511.EMS503 

.WORD EMS23,EMS332.0 

.WORD EWS346.EMS25.EWS341,EMS26 

.WORD EWS511.EMS503.EMS501,0 

.WORD EMS337,EMS25,EWS341.EMS26 

.WORD EWS511.EMS503,EWS501,0 

.WORD EWS301.EMS313.EWS?54,EMS347.EMS26 

.WORD EMS511,EMS503 

.WORD EMS25,EMS332,0 

.WORD EMS300,EMS27,EMS307,EMS2 

.WORD EMS511.EMS503,0 

.WORD EMS331 ,EMS27,EMS353 

.WORD EMS511,EMS503 

.WORD EMS30.EMS315.0 

.WORD EMS337,EMS27,EMS341,EMS30 

.WORD EMS511,EMS503,0 

.WORD EMS301 ,EMS313,EMS254,EMS347,EMS30 

.WORD EMS511.EMS503 

.WORD EMS27,EMS332.0 

.WORD EMS31.EMS354.EMS250 

.WORD EMS511,E«S504,EMS503.0 

.WORD EMS32,E«S354,EMS250 

.WORD EMS511.EMS504.Ef1S503,0 

.WORD EMS355.EMS33,EMS250.EMS341 ,EMS30 

.WORD EMS511,EMS504.0 

.WORD EHS355,EHS34,EMS250,EMS341.EMS30 

.WORD EMS511,EMS504,0 

.WORD EMS331 ,EMS4-EMS255 

.WORD E«S511.EMS504,0 

.WORD EMS35,E«S357.EMS360.EMS15 

.WORD EMS511,EMS501,0 

.WORD EMS261,E«S362 

.WORD Ef1S511,EMS503.0 

.WORD EMS300.EMS36,EMS307,EMS2 

.WORD EMS511,E«S501,0 

.WORD EMS355,E«S37,EMS255,EMS541 .EMS30 

.WORD E«S511,E«S504,0 

.WORD EMS346.EHS40.EMS345 

.WORD ErtS511,EHS504.0 

• WORD E/1S337.E«S40,EMS341.EMS30 

•WORD EMS511,E«S504.0 

.WORD EriS363,EHS310,EMS41 

.WORD EMS511.EHS501,0 

.WORD EMS337,EMS41 ,EMS341 .EMS252.EMS327.EMS253 

.WORD EMS511,EMS501,0 

.WORD EMS41,EMS354.EMS364.EMS252.EMS365.EMS253 

.WORD EMS511.EMS501,0 

.WORD EMS301.EMS306.EWS36 

.WORD EMS511.EMS501.EMS503.0 

.WORD EMS366,EMS42 

.WORD EMS511.EMS503.0 



L. 



rZRMPBO «M05/^/2 DSKLS TST 1 
FRROa MESSAGE TA8LF 



mACRO VOA.OO A 



?29 067152 

230 067166 

231 067174 

232 067200 

233 067206 
25A 0672K 

235 067222 

236 06723A 

237 067242 

238 067254 

239 067262 
2-0 067272 

241 067300 

242 067314 

243 067322 

244 067332 

245 067340 

246 067354 

247 067362 

248 067370 

249 067400 

250 067406 

251 067414 

252 067424 

253 067440 

254 067446 

255 067462 

256 067470 

257 067500 

258 067504 

259 067514 

260 067524 
26'' 067534 

262 067546 

263 067556 

264 067562 

265 067570 

266 067576 

267 067604 

268 067612 

269 067622 

270 067636 

271 067644 

272 067660 

273 067664 

274 067672 

275 067702 

276 067710 

277 067720 

278 067726 

279 067726 

280 067736 

281 067744 

282 067754 

283 067762 

284 067772 

285 070000 



101075 
102322 
100272 
102322 
074707 
102322 
101075 
102322 
101075 
102522 
077300 
102322 
101075 
102322 
077300 
102322 
101075 
102322 
074355 
077300 
102322 
100272 
102322 
074355 
102322 
075160 
102322 
100272 
102322 
074557 
077300 
102322 
075220 
102322 
100272 
102322 
075220 
102322 
077316 
102322 
101075 
102322 
077300 
100317 
102322 
077300 
102322 
077300 
102322 

100272 

102322 
100451 
102322 
100451 
102322 
100451 



100547 
10^763 
074417 
101656 
100573 
101666 
100547 
101763 
100547 
101763 
074760 
101763 
100547 
101763 
075021 
101763 
100547 
101763 
100204 
075076 
101763 
075076 
101763 
100230 
101666 
100230 
101666 
074355 
101666 
100204 
075160 
101666 
100230 
IOI606 
074355 
101666 
074326 
101666 
077406 
101666 
100547 
101666 
076566 
102421 
101666 
077061 
101666 
076566 
102010 

075336 
101666 
075336 
101666 
075267 
101666 
075336 



101045 
000000 

000000 
074417 
000000 
101045 
000000 
101045 
000000 
077422 
000000 
101045 
000000 
077422 
000000 
101045 
101666 
000000 
077422 
000000 
100547 
101666 
100272 
000000 
100272 
000000 
100111 

101211 
077422 
101763 
100306 
101763 

000000 
072326 
000000 
075267 
102010 
101045 
000000 
100111 

000000 
100317 
000000 
100317 
000000 

100317 

000000 
100317 
000000 
100317 
000000 
100423 



EMTISO 
EMT151 
EMT152 
EMT153 
EMT154 
EMT155 
EMT156 
EMT157 
EMn60 

EMT161 
EMT162 
EMT163 
EMT164 
EMT165 

Ef1T166: 
EMT167: 
EMT170: 
EMT171: 
Efin72: 
Ef1T173: 
E«n74: 

EMT175 

EMT176 

EMTl 77 
EMT200 

EMT201 

EMT202 

EMT203 



I 5 

APR-81 01: 24 .£'5 PAGE 36-4 

SEO 0268 

.WORD EMS367,EMS353.EMS365,EMS42,fMS354,EMS3 

.WORD EMS511 ,EMS503,0 

.WORD EMS337.EMS36 

.WORD EMS511,EMS501.0 

.WORD EriS43.EMS354.E«Si6 

.UORb EMSSILE^fSSOLO 

.WORD EMS367.EMS353.EMS365.EMS36,EriS370 

.WORD EMS511.EMS503,0 

. WORD EMS 367. EMS353 , EMS365 . EMS36 , EMS371 

.WORD E«3511.EMS503,0 

.WORD EMS300,EMS44,EMS307,EMS2 

.WORD EMS511 .EMS503,0 

. WORD EMS367 . EMS353 . EMS365 . EMS44 . EMS354 ,EMS3 

.WORD EMS511.EMS503,0 

.WORD EMS300.EMS45,EMS307.EMS2 

.WORD EMS511.EMS503,0 

. WORD EMS 367 , EMS353 , EMS36 5 , EMS4 5 . EMS354 , EMS3 

.WORD EMS511,EMS503.EMS501 

.WORD EMS35.fMS333.0 

.WORD EMS300,EMS46.EMS307,EMS2 

.WORD EMS511,F«S503,0 

.WORD EMS337,EHS46,EMS353 

.WORD E«S511,EHS503,E«S501,0 

.WORD EMS35,E«S335,E«S337,EMS41 .EMS334,Ef1S372 

.WORD E«S511,EMS501.0 

.WORD EMS47.EMS335,EMS337,EMS41 ,EMS335,EMS372 

.WORD EMS511,EMS501,0 

.WORD EMS337.EMS35,Ef1S327,EMS47 

.WORD EMS511,E«S501 

.WORD EMS4K£MS333,£MS372.0 

.WORD EMS300,EMS47.EMS307,EMS2 

.WORD EMS511.EMS501,EMS503,0 

.WORD EMS50,E«S335,E«S340.Ef1S36.EMS333 

.WORD EHS511.EMS501.Ef1S503,0 

.WORD £MS337,E«S35 

.WORD Ens5ii,Enssouo 

.WORD EnS50,EnS34.Ens3 

.WORD EnSSmEMSSOnO 

.WORD E«S301,EMS306.EMS51 

.WORD EMS511,EMS501.EMS504.0 

. WORD EMS367 , EMS35 3 , EMS365 . EMS4 7 . EMS 354 . EMS 3 

.WORD EMS511,EHS501,0 

. WORD EMS300 , EMS250 , EMS327 , EMS25 5 , EMS327 , EMS256 

.WOl^D EMS341 ,EMS600 

.WORD EMS511,EMS501,0 

.WORD EMS300,EMS256,EMS341,EMS600 

.WORD EMS511,EMS501,0 

.WORD EMS300.EHS250.EMS341.EMS600 

.WORD EMS511.EnSS04,0 

.WORD EMS337,EHS52.EMS341.EMS601 

.WORD EMS511.EHS501.0 

.WORD EMS346.EMS52.EMS341.EMS602 

.WORD EMS511.EMS501,0 

.WORD EMS346,E«S51.EMS341,EMS602 

.WORD EMS5n,EMS501,0 

.WORD EMS346.EMS52.EMS345.EMS373.EMS255 



CZRMPBO RM05/3/? DSKLS TST 1 
FRROR MESSAGE TABLE 



MACRO V04.00 



J 5 

4-APR-81 01:24:25 PAGE 36-5 



?86 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3K 

315 

316 

318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
541 
542 



070012 
070022 
070032 
070042 
070050 
070062 
070076 
070102 
070112 
070120 
070126 
070136 
070144 
070154 
070162 
070166 
0701 74 
070212 
070216 
C70224 
070230 
070236 
070250 
070256 
070264 
070272 
070300 
070306 
070316 
070324 
070334 
070342 
070352 
070360 
070370 
070376 
070406 
070416 
070432 
070440 
070450 
070456 
070466 
070474 
070504 
070512 
070520 
070526 
070542 
070550 
070562 
070572 
070610 
070620 
070630 
070640 
070654 



102322 
100451 
102322 
075377 
102322 
100272 
100111 
102322 
075440 
102322 
075440 
102322 
075440 
102322 
100272 
102322 
075573 
102322 
075573 
100272 
102322 
075666 
102322 
101007 
102322 
101007 
102322 
076077 
102322 
076077 
102322 
076077 
102322 
100451 
102322 
100451 
102322 
076160 
102322 
076160 
102322 
076160 
102322 
076160 
102322 
076160 
102322 
074557 
102322 
101075 
102322 
073215 
102322 
077300 
102322 
075573 
076270 



102010 
C75336 
102010 
100573 
101763 
075440 
072326 
102010 
100573 
101666 
100573 
102010 
100573 
102010 
075515 
102010 
100220 
101666 
100230 
075573 
101666 
100204 
101666 
077406 
101666 
077406 
101666 
100204 
101666 
100204 
101666 
100204 
101666 
076077 
101666 
076160 
101666 
100204 
101666 
100670 
101666 
100650 
101666 
100650 
101666 
100650 
101666 
101330 
101666 
100547 
101763 
101330 
101763 
076270 
101713 
101330 
101356 



101666 
100317 
101666 
072326 
101713 
101247 

101666 

072326 
000000 
101024 
000000 
101024 
000000 

000000 
100423 

000000 

000000 
100510 
000000 
072424 
000000 
076024 
000000 
101300 
000000 
101314 
000000 
101314 
000000 
100317 
000000 
101314 
101763 
100510 
000000 
074417 
000000 
100712 
000000 
100740 
000000 
074557 
000000 
100326 
000000 
101045 
101666 
101211 
101666 
077422 
101763 
1013^4 



EMT204 
EMT205 
EMT206 

EriT207 
EMT210 
EMT211 
EMT212 
EMT213 

EMT2U 
EMT215 
EMT216 
EWT217 
EMT220 
EWT221 
EMT222 
EMT223 
EMT224 
EMT225 
EMT226 
EMT227 
EMT230 
EMT231 
EMT232 
Ef1T233 
FMT234 
E:1T235 
EMT236 



.WORD EMS511 .EMS50/..EMS501.0 

•WORD EMS346.EMS52.EMS341,EMS27 

.WORD EMS511 .EMS504.EMS501.0 

.WORD EMS53,EMS554.EMS3 

.WORD EMS51 1 .EMS503.EMS502.EMS510.0 

.WORD EMS337,EMS54.EMS374.EMS250,EMS327.EMS255 

.WORD EMS327.EMS3 

.WORD EMS511,EMS504.EMS501,0 

.WORD EMS54,EMS354,EriS3 

.WORD EMS5 11. EMS 501,0 

.WORD EMS54.EMS354,EMS364.EMS250 

.WORD EMS511,EMS504,0 

.WORD EMS54.EMS354.EMS364,EMS255 

.WORD EMS511,EMS504,0 

.WORD EMS337.EMS55 

.WORD EMS5 11. EMS 504.0 

. WORD EMS 56 . EMS334 . EMS34 5 . EMS373 , EMS262 . EMS327, EMS25 1 

.WORD EMS511 .EMS501 

.WORD EMS56.EMS335,0 

.WORD EMS337.EMS56 

.WORD E«S511.EMS501,0 

. WORD EriS57. EHS333. EMS350 . EMS60 , EMS334 

.WORD EnS511,EnS501,0 

.WORD EnS363,EMS306,EnS5 

.WORD EMS511,EHS501.0 

.WORD EMS363.EMS306.EMS61 

.WORD EMS511.£HS501,0 

.WORD EMS62,EMS333,EMS375,EMS251 

.WORD EMS511,EMS501.0 

.WORD EMS62,EMS333.EMS376,EMS262 

.WORD EMS511,EHS501.0 

.WORD EM-S62,EMS333.EMS376,E«S250 

•WORD EMS5 11. EMS 501.0 

.WORD EMS346.EMS62.EMS341.EMS603 

.WORD EMS511.EMS501.0 

.WORD EnS346.Ens63,EMS376.EnS262 

.WORD EnS511,EMS501.EnS503,0 

. WORD Ef1S63 , EMS333 . EMSSSO . EnS363 , EnS31 0 , EnS262 

.WORD EMS511.EMS501.0 

.WORD E«S63.EnS357.EMS36.EMS372 

.WORD E«S511.EMS501,0 

.WORD E«S63.EMS356,EMS360,EMS15 

.WORD ErtS511.EMS501.0 

.WORD EnS63,E«S356,EMS361.EMSl5 

.WORD EMS511.EMS5O1.0 

.WORD E«S63.E«S356,E«S41 

•WORD EWS511.EMS501.0 

.WORD EMS41 ,EHS377.EMS342.EMS365.EMS63.EMS332 

.WORD EMS511,EHS501.0 

. WORD EMS367 . EHS353 . EMS365 . EMS63 . EMS401 

.WORD EMS511.EHS503.EMS501.0 

. WORD EMS1 6 , EMS377, EMS372 .EMS365 ,EMS64 .EMS354 .EMS3 

.WORD EMSSn .EMS503.EMS501.0 

•WORD E«S300,EMS65.EMS307.EMS2 

.WORD EMS511 ,FMS502.E«S503.0 

.WORD EMS56,EMS377.EMS376.EMS252.FMS372.EMS350 

.WORD EMS65.EMS401 



CZRMP80 RM05/3/2 DSKLS 
FRROR MESSAGE TABLE 

543 070660 102322 

3AA 070672 077300 

345 070702 102322 

346 070712 073137 

347 070726 102322 

348 070736 076331 

549 070754 102322 

550 070762 101402 

351 070774 102322 

352 071000 074417 

353 071006 076331 

354 071024 102322 

555 071052 076160 

556 071042 102322 

557 071050 074417 

558 071060 102322 

559 071066 101402 

560 071100 102322 

361 071104 074417 

362 C71112 076406 

363 071122 102322 

364 071130 076331 

365 071146 102322 

366 071154 101402 

367 071166 102322 

368 071172 074417 
569 071200 076331 

370 071216 102322 

371 071224 076160 

372 071234 102322 

373 071242 074417 
37/. 071252 102322 

375 071260 101402 

376 071272 102322 

377 071276 074417 

378 071304 076406 

379 071314 102322 

380 071322 076331 

381 071340 102322 

382 071346 101402 

383 071360 102322 

384 071364 074417 

385 071372 076331 

386 071410 102322 

387 071416 076160 

388 071426 102322 

389 071434 074417 

390 071444 102322 

391 071452 101402 

392 071464 102322 

393 071470 074417 

394 071476 076520 

395 071506 102322 

396 071514 076406 

397 071524 102322 

398 ^71532 076331 

399 071540 1C2322 



TST 1 MACRO 



101715 101763 

076551 077422 

101666 101765 

101541 101211 

101763 101666 

100253 100306 

101765 000000 

102555 101373 
101763 

100230 000000 

100253 100306 

101763 000000 

101356 101462 

101763 000000 

101145 101462 

101763 000000 

102553 101373 
101763 

100230 000000 

100166 101462 

101763 000000 

100253 100306 

101763 000000 

102600 101373 
101763 

100230 000000 

100253 100306 

101763 000000 

101356 101462 

101763 000000 

101145 101462 

101763 000000 

102600 101373 
101763 

100230 000000 

100166 101462 

101763 000000 

100253 100306 

101763 000000 

102616 101373 
101763 

100230 000000 

100253 100306 

101763 000000 

101356 101462 

101763 000000 

101145 101462 

101763 000000 

102616 101373 
101763 

100230 000000 

101356 101462 

101763 000000 

100166 101462 

101763 000000 

100650 101505 

101763 000000 



,00 4-APR-81 



.WORD 
EMT237: .WORD 

.WORD 
EMT240: .WORD 

.WORD 
EMT241: .WORD 

.WORD 
EMT242: .WORD 

.WORD 

.WORD 
EMT243: .WORD 

.WORD 
EMT244: .WORD 

.WORD 
EM T 24 5: .WOR'^ 

.WORD 
EMT246: .WORD 

.WORD 

.WORD 
EM T 24 7: .WORD 

.WORD 
EMT250: .WORD 

.WORD 
EMT251: .WORD 

.WORD 

.WORD 
EMT252: .WORD 

.WORD 
EMT253: .WORD 

.WORD 
EMT254: .WORD 

.WORD 
EriT255; .WORD 

.WORD 

.WORD 
EMT256: .WORD 

.WORD 
EMT257: .WORD 

.WORD 
EriT260: .WORD 

.WORD 

.WORD 
Enr261: .WORD 

.WORD 
EMT262; .WORD 

.WORD 
EMT263; .WORD 

.WORD 
EMT264: .WORD 

.WORD 

.WORD 
EMT265: .WORD 

.WORD 
EMT266: .WORD 

.WORD 
EM T 26 7: .WORD 

.WORD 



K 5 

01:24:25 PAGE 36-6 

SEQ 0270 

EMS51 1 .EMS502,EMS505.EMS501 ,0 

EMS300 , EMS66 . EMS307 . EMS2 

EMS511.EMS501.EMS503,0 

EMS1 5 , EMS400. EMS372 . EMS350 , EW'. 66 . EMS401 

EMS511.EMS503.EMS501,0 

EMS66 . EMS336 . EMS340 . EMS1 5 . EMS406 , EMS405 . EMS604 
EMS511,EMS503,0 

EMS405.EMS604,EMS402.EMS21.fMS377 

EMS511.EMS503 

EMS36,EMS335.0 

EMS66 , EMS336 . EMS340 , EMS26 . EMS404 , EMS405 , EMS604 

EMS511,EMS503.0 

EMS63 , EMS401 , EMS405 . EMS604 

EMS511,EMS503.0 

EMS36 , EMS370 . EMS405 . EMS604 

EMS511.EMS503,0 

EMS403 . EMS604 . EMS402 . EMS24 , EMS377 

EMS511.EMS503 

EMS36.EMS335,0 

EMS67 , EMS332 . EMS405 , EMS604 

EMS511,EMS503,0 

EMS66 , EMS336 , EMS340 . EMS 1 5 , EMS406 , EMS405 . EMS605 
EMS511,EMS503,0 

EMS403 . EHS605 . EMS402 . EMS21 , EMS377 

E«S511,EHS503 

EMS36.EHS335,0 

EMS66 , EMS336 , EMS340 , EMS26 , EMS404 . EMS405 ,EMS605 

E«S511,EHS503,0 

Ef1S63 , EMS401 , EMS405 . EMS605 

EMS511.EHS503,0 

EMS36 . EHS370 , EMS405 . EMS605 

EMS511.EMS503.0 

EMS403 , EMS605 . EMS402 . EMS24 . EMS377 

Ef1S511,EHS503 

EHS36.EMS335.0 

EMS67,EMS332.EMS405 ,EMS605 

EMS511.EMS503.0 

EMS66 . EMS336 , E«S340 . EMS 1 5 . EMS406 . EMS405 , EMS606 
EMS511,EHS503.0 

EMS403,EMS606,EMS402.EMS21 .EMS377 

E«S511,EMS503 

EMS36.E«S335,0 

Ef1S66 , EMS336 . EMS340 . EMS26 . EMS404 . EMS405 , EMS606 

EMS511.EHS503,0 

EMS63 . EMS401 , EMS405 . EMS606 

EMS511.EMS503,0 

EMS36 . EMS370 . EMS405 . EMS606 

EMS511.EMS503.0 

EMS403 , EHS606 . EMS402 . EMS24 , EMS377 

EMS511.EMS503 

EMS36,EMS335,0 

EMS70-EM$401.EMS405.EMS606 

EMS511,EMS503,0 

EMS67,EMS332.EMS405,EMS606 

EMS511,EMS503.0 

EMS66,EMS356.EMS407 

EMS511,EMS503.0 



CZRMPBO RM05/3/2 OSKLS TST 
ERROR MESSAGE TABLE 



MACRO V04.00 



L 5 

4-APR-81 01:24:25 PAGE 36-7 



SEO 0271 



AOO 
AOl 
m02 
A03 
40A 
AOS 
A06 
A07 
A08 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 



071546 
071564 
071572 
071604 
071610 
071616 
071626 
071634 
071644 
071652 
071662 
071670 
071 700 
071710 
071720 
071 726 
071744 
071752 
071764 
071 770 
071 776 
072006 
072014 
072024 



076331 
102322 
101402 
102322 
074021 
074021 
102322 
074021 
102322 
074417 
102322 
075377 
102322 
076406 
102322 
076331 
102322 
101402 
102322 
074021 
076520 
102322 
077300 
102322 



100253 
101763 
102636 
101763 
100253 
101145 
101763 
101162 
101 763 
101443 
101763 
101356 
101763 
100166 
101763 
100253 
101763 
102636 
101763 
100253 
101356 
101763 
077017 
102010 



100306 EMT270: .WORD EMS66,EMS336,EMS340,EMS1 5.EMS406.E«S405,EMS607 

000000 .WORD EMS511,EMS503.0 

101373 EMT271: .WORD EMS403.EMS607,E«S402,EMS21 .EMS377 

.WORD EMS511,EMS503 

000000 .WORD EMS27.EMS336,0 

101462 EMT272: .WORD EMS27,EMS370,EMS405 .EMS607 

000000 .WORD EMS511 ,EMS503.0 

101462 EMT273: .WORD EMS27,EMS371 ,EMS405.EMS607 

000000 . WORD EMS5 1 1 , EMS503 , 0 

101462 EMT274: .WORD EMS36.EMS404.EMS405,EMS607 

000000 . WORD EMS5 1 1 , EMS 503 , 0 

101462 EMT275: .WORD EMS53.EMS401 ,EMS405.£MS607 

101713 .WORD EMS511,EMS503,EMS502,0 

101462 EMT276: .WORD EMS67.EMS332,EMS405,£MS607 

000000 .WORD EMS511 ,EMS503.0 

100306 EMT277: .WORD E«S66,EMS336,£MS340,EMS26,EMS404,eMS405,EMS607 

000000 .WORD EMS511.EMS503,0 

101373 EMT300: .WORD EMS403,EMS607.£MS402,EMS24,EMS377 

.WORD EMS511,EMS503 

000000 .WORD EMS27.EMS336,0 

101462 EMT301: .WORD EMS70,EMS401 ,EMS405.EMS607 

000000 .WORD EMS511.EMS503,0 

100317 EMT302: .WORD EMS300.EMS255,EMS341 ,EMS600 

000000 .WORD EnS5mEMS504,0 



CZRMPBO OSKLS TST 

MESSAGE TABLE 
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M 5 
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SEO 0272 



1 
2 
3 
A 
5 
6 
7 
8 
9 

n 

12 
13 
U 
15 
16 



072032 
072036 
0720A2 
072046 
072052 
072056 
072062 
072066 
072072 
072076 
072102 
072106 
072112 
072116 
072122 
072126 



102654 
102732 
102747 
103005 
103024 
103062 
103136 
102740 
103213 
103310 
103426 
103524 
103622 
103737 
104035 
104132 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
GOOOOO 



EHTl 
EHT2 
EHT5 
EHT7. 
EHT57 
EHT65 
EHT71 
EHT74 
EHTn5 
EHT130 
EHT132 
EHTU2 
EHT145 
EHT150 
EHT213 
EHT220 



.WORD 


EHl ,0 


.WORD 


EH2.0 


.WORD 


EH5,0 


.WORD 


EH7-0 
EH57,0 


.WORD 


.WORD 


EH65 ,0 


.WORD 


EHri ,0 


.WORD 


r i iT A 

EH3,0 


.WORD 


r Lj 1 1 C A 

EHl 15,0 


.WORD 


r- 1 1 * T A A 

EH 1 30,0 


. WUHU 


tn 1 jc ,\J 


.WORD 


EH142,0 


.WORD 


EH145.0 


.WORD 


EH150,0 


.WORD 


EH213.0 


.WORD 


EH220,0 



C7RMP80 RM05/3/2 DSKLS TST 1 
ERROR MESSAGE TABLE 

1 072132 10^170 

2 072134 104200 

3 072136 104204 

4 072140 104212 

5 072142 104220 

6 072144 104230 

7 072146 104200 

8 072150 104240 

9 072152 104252 

10 072154 104240 

11 072156 104266 



N 5 
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EDT1: .WORD EDI 

EDT2: .WORD ED2 

EDT5: .WORD ED5 

EDT57: .WORD ED57 

EDT65: .WORD ED65 

EDT71 : .WORD ED71 

EDT74: .WORD ED2 

EDT115: .WORD ED1 15 

EDT130: .WORD ED130 

EDT132: .WORD ED' 15 

EDT220: .WORD ED220 



Z«W>eO «M05/^/? DSKLS TST 1 
FPRO« MESSAGE T^aiE 

' 072160 10427? 

2 072162 104275 

3 072164 104276 

4 072166 104300 

5 072170 104272 

6 072172 104272 

7 072174 104275 

8 072176 104300 

9 072200 104304 
10 072202 104300 
n 072204 104276 
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EFT1: 


.WORD 


EF1 


Ef:2: 


.WORD 


EF2 


EFT5: 


.WORD 


EF5 


EFT57: 


.WORD 


EF57 


EFT65: 


.WORD 


EF1 


EFT71 : 


.WORD 


EF1 


EFT74: 


.WORD 


EF2 


EFT115: 


.WORD 


EF57 


EFT 130: 


.WORD 


EF130 


Ern32: 


.WORD 


EF57 


EFT220: 


.WORD 


EF5 



CZRMPBO RMOS/3/2 DS<LS 
ERROR MESSAGE SPRINGS 



1 
? 

3 


072206 


116 


k 


072257 


103 


5 


072326 


106 


6 


072373 


125 


7 


072424 


104 


8 


072474 


120 


9 


072540 


104 


10 


07261 1 


120 


11 


072654 


115 


12 


072724 


050 


13 


0727A5 


111 


U 


073023 


104 


15 


073072 


115 


16 


073137 


115 


17 


073215 


115 


18 


073276 


127 


19 


073337 


104 


20 


073403 


115 


21 


073462 


125 


22 


073527 


123 


23 


073605 


115 


24 


073664 


120 


25 


073742 


115 


26 


074021 


105 


27 


074065 


104 


28 


074145 


114 


29 


074216 


1U 


30 


074276 


123 


31 


074326 


124 


32 
35 


074355 


126 


074417 


107 


3A 


074447 


103 


35 


074501 


114 


36 


074557 


103 


37 


074625 


103 


38 


074707 


104 


39 


074760 


103 


40 


075021 


111 


41 


075076 


114 


42 


075 160 


117 


43 


075220 


111 


44 


075267 


117 


45 


075336 


117 


46 


075377 


122 


47 


075440 


111 


48 


075515 


101 


49 


075573 


122 


50 


075637 


042 


51 


075666 


104 


52 


075752 


120 


53 


076024 


104 


54 


076077 


120 


55 


076160 


101 


56 


076220 


127 


57 


076270 


1C5 



TST 1 MACRO V04.00 4-APR-81 







.S8TTL ERROR 


117 


116 


EMS1 : 


.ASCIZ 


117 


116 


EMS2: 


.ASCIZ 


125 


116 


EMS3: 


.ASCIZ 


116 


125 


EMS4 : 


.ASCIZ 


105 


126 


EMS5: 


.ASCIZ 


101 


122 


EMS6: 


.ASCIZ 


101 


124 


EMS7: 


•ASCIZ 


101 


122 


EMS10: .ASCIZ 


101 


123 


EMS11 


.ASCII 


122 


115 




.ASCIZ 


114 


114 


EMS12 


.ASCIZ 


111 


101 


EMS13 


.ASCIZ 


105 


104 


EMS14 


.ASCIZ 


101 


111 


EMS 15 


.ASCIZ 


101 


111 


EMS 16 


•ASCIZ 


122 


111 


EMS 17 


.ASCIZ 


105 


126 


EMS20 


•ASCIZ 


101 


111 


EMS21 


•ASCIZ 


116 


123 


EMS22 


•ASCIZ 


105 


105 


EMS23 


•ASCIZ 


101 


111 


EMS24 


•ASCIZ 


117 


123 


EMS25 


.ASCIZ 


101 


111 


EMS26 


•ASCIZ 


116 


104 


EMS27 


.ASCIZ 


111 


101 


EMS30 


.ASCIZ 


101 


123 


EMS31 


•ASCIZ 


101 


123 


EMS32 


•ASCIZ 


105 


103 


EMS33 


•ASCIZ 


122 


101 


EMS34 


•ASCIZ 


117 


114 


EMS35 


■ .ASCIZ 


117 


040 


EMS36 


•ASCIZ 


131 


114 


EMS37 


•ASCIZ 


101 


123 


EMS40 


•ASCIZ 


117 


115 


EMS41 


• .ASCIZ 


117 


115 


EMS42 


.ASCIZ 


122 


111 


EMS43 


.ASCIZ 


117 


M6 


EMS44 


.ASCIZ 


116 


126 


EMS45 


.ASCIZ 


117 


123 


EMS46 


•ASCIZ 


103 


103 


EMS47 


•ASCIZ 


114 


114 


EMS50 


•ASCIZ 


106 


106 


EMS 51 


•ASCIZ 


106 


106 


EMS52 


•ASCIZ 


125 


116 


EMS53 


•ASCIZ 


116 


126 


EMS 54 


•ASCIZ 


104 


104 


EMS55 


•ASCIZ 


105 


107 


EMS56 


• .ASCII 


122 


115 




•ASCIZ 


122 


111 


EMS57 


•ASCIZ 


122 


117 


EMS60 


•ASCIZ 


122 


111 


EMS61 


•ASCIZ 


117 


122 


EMS62 


•ASCIZ 


124 


124 


EMS63 


•ASCIZ 


122 


111 


EMS64 


•ASCIZ 


150 


103 


EMS65 


•ASCIZ 
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SSAGE STRINGS 

SNONEXISTENT DEVICE 'NED" (RMCS2,8]r 12) a 
aCONTROLLER CLEAR "CLR" (RMCS2,8IT 05) S 
aFUNCTION CODE (RMCS1, BITS 01 - 05) a 
aUNUSED BIT POSITIONS OF a 
aOEVICE AVAILABLE "DVA" (RMCSl , BIT 11) a 
8PARTIY ERROR "PAR" (RMERl. BIT 03) a 
aOATA PARITY ERROR '^PE" (RMER2, BIT 03) a 
aPARITY TEST 'PAT" (R;'1CS2, BIT 04) a 
aWASSBUS CONTROL BUS PARITY ERROR 'WCPE" a 
a(RMCS1. BIT 13) a 

aiLLEGAL REGISTER ERROR "ILR" (RMERl, BIT 01) a 

aDIAGNOSTIC MODE "DMD" (RMMRl , BIT 00) a 

aWEDlUM ON LINE 'MOL" (RMDS. BIT 12) a 

aWAJNTENANCE UNIT READY 'WUR" (RMMR1 , BIT 09) a 

aWAINTENANCE WRITE PROTECT 'MWP" (RMMRl. BIT 03) a 

aWRITE LOCK 'VJRL" (RMDS, BIT 11) a 

aDEVICE CHECK 'DVC" (RMER2, BIT 07) a 

aMAINTENANCE DRIVE FAULT 'MOF" (RMMR1 . BIT 06) a 

aUNSAFE STATUS 'DNS" (RMERl. BIT 14) a 

aSEEK INCOWPLETE STATUS "SKI" (RMER2, BIT 14) a 

anAINTENANCE SEEK ERROR 'TISER" (RMMRI , BIT 07) a 

aPOSITIONING IN PROGRESS 'T>IP" (RMDS, BIT 13) a 

aPIAINTENANCE ON CYLINDER '>K)C" (RMMRI , BIT 08) a 

aENO OF BLOCK 'tBL" (RMMR1 , BIT 13) a 

aDIAGNOSTIC END OF BLOCK "DEBL" (RMMR1 , BIT 13) a 

BLAST SECTOR STATUS 'IS" (RWR1 , BIT 02) a 

BLAST SECTOR/TRACK STATUS *1.ST" (RMMRl , BIT 01) a 

aSECTOR ADDRESS BITS OF a 

aTRACK ADDRESS BITS OF a 

avOLUME VALID "VV" (RMDS, BIT 06) a 

iGO BIT (RMCSI, BIT 00) a 

aCYLINDER ADDRESS BITS OF a 

BLAST BLOCK TRANSFERRED, 'IBT" (RMDS, BIT 10) a 

aCOMPOSITE ERROR '^RR" (RMDS. BIT 14) a 

8C0MMAND SEQUENCER TEST BIT '^IST" (RMMR2. BIT 12) a 

aDRIVE READY STATUS 'DRY" (RMDS. BIT 07) a 

aCONTINUE "CONT" (RMMR1. BIT 06) a 

aiNVALID COmAND ERROR '^'IVC" (RMER2, BIT 12) a 

atOSS OF SYSTEM CLOCK ERROR 'ISC" (RMER2. BIT 11) a 

aOCCUPIED "tjCC" (RMMR1. BIT 15) a 

aiLLEGAL FUNCTION "ILF'^* (RMERl, BIT 0) a 

aOfFSET DIRECTION •t)FD" (RMOF. BIT 07) a 

aOFFSET MODE 'W (RMDS, BIT 00) a 

aRUN AND GO "Wa' (RMMR1. BIT 14) a 

aiNVALID ADDRESS ERROR '^'lAE" (RMERl, BIT 10) a 

aADDRESS OVERFLOW ERROR "AOE" (RMER1 , BIT 09) a 

aREGISTER MODIFICATION REFUSED ERROR a 

a"RMR" (RMERl, BIT 02) a 

aDRIVE REQUEST REQUIRED STATUS 'DRQ" (RMDT. BIT 11) a 

aPROGRAMMABLE STATUS 'PGM" (RMDS, BIT 09) a 

aDRIVE PRESENT STATUS 'DPR" (RMDS, BIT 08) a 

aPORT REQUEST FLOP 'T?QA,RQB" (RMMR2, BITS 15.14) a 

aATTENTION "ATA" (RMDS. BIT 15) S 

aWRITE LOCK ERROR 'V/LE (RMERl. BIT 11) a 

BEXCEPTION "REX" (RMMR1 . BIT 12) a 



CZRW«0 RM05/3/2 DSKLS TST 
FRROR MESSAGE STRINGS 
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SEO 0276 



58 076531 

59 076406 

60 076462 

61 076520 
62 

63 076566 

64 076624 

65 076670 

66 076723 

67 076756 

68 077017 
o9 077061 

70 077111 

71 077145 

72 077176 

73 077235 
74 

75 077300 

76 077316 

77 077341 

78 077366 

79 077377 

80 077406 

81 077422 

82 077463 

83 077500 

84 077544 

85 077602 

86 077633 

87 077662 

88 077710 

89 077731 

90 077751 

91 077771 

92 100011 

93 100031 

94 100050 

95 100070 

96 100101 

97 100111 

98 100117 

99 100136 

100 100166 

101 100204 

102 100220 

103 100230 

104 100253 

105 100272 

106 100306 

107 100317 

108 100326 

109 100360 

110 100374 

111 100423 

112 100451 

113 100467 

114 100510 



n 

124 
114 
123 

104 
103 
105 
105 
115 
104 
117 
104 
110 
123 
101 

103 
103 
101 
127 
105 
101 
125 
101 
105 
124 
101 
101 
101 
122 
061 
062 
064 
070 
101 
101 
101 
101 
054 
015 
103 

m 
111 
111 

123 
123 
103 
102 
125 
104 
125 
102 
102 
103 
127 
102 



116 
101 
111 
105 

111 
117 
122 
122 
101 
105 
106 
122 
117 
105 
124 

101 
101 
116 
I-"-" 
122 
040 
123 
040 
126 
110 
040 
120 
120 
105 
040 
040 
040 
040 
114 
114 
124 
124 
040 
012 
101 
123 
123 
123 
110 
110 
101 
105 
123 
125 
116 
125 
131 
101 
111 
125 



126 
107 
116 
101 

123 
116 
122 
122 
111 
123 
106 
111 
114 
122 
124 

116 
116 
131 
124 
122 
117 
111 
132 
105 
105 
123 
120 
120 
107 
050 
050 
050 
050 
114 
114 
040 
040 
117 
103 
116 
040 
040 
040 
117 
117 
116 
103 
111 
122 
105 
123 
040 
116 
124 
124 



EMS66: 
EMS67: 

EMS70; 

EMS250 
EMS251 
EMS252 
EMS253 
EMS254 
EMS255 
EMS256 
EMS257 
EnS260 
EMS261 
EMS262 

EMS300 
EMS301 
EriS302 
EMS303 
EMS304 
EMS306 
EMS307 
EMS310 
EMS31 1 
EMS312 
EMS313 
EMS314 
EMS315 
EMS316 
EMS317 
EMS320 
EMS321 
EMS322 
EMS323 
EMS324 
EMS325 
EMS326 
EMS327 
EMS330 
EMS331 
EM5;332 
EMS333 
EMS334 
EMS335 
EMS336 
EMS337 
EMS340 
EMS341 
EWS342 
EMS343 
EMS 344 
EMS345 
EMS346 
EMS347 
EMS350 



.ASCI 
.ASCI 
.ASCI 
.ASCI 

.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
• ASCI 
.ASCI 



aiNVALID COMMAND ERROR "IVC" (RMER2. BIT 12) S 
STAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL 8 
SLINES (RMMR2, BITS 10J1.13) a 
aSEARCH ENABLE "ESRC" (RMMR1 , BIT 11) a 

aDISK ADDRESS REGISTER (RMDA) a 
aCONTROL STATUS REGISTER #1 (RMCS1) a 
aERROR REGISTER #1 (RMER1) a 
aERROR REGISTER #2 (RMER2) a 
aMMNTENANCE REGISTER #1 (RMMR1) a 
aDESIRED CYLINDER REGISTER (RMDC) a 
aOFFSET REGISTER (RMOF) a 
aDRIVE TYPE REGISTER (RMDT) a 
aHOLDING REGISTER (RMHR) a 
aSERIAL NUMBER REGISTER (RMSN) a 
iATTENTION SUMMARY REGISTER (RMAS) a 

aCANNOT CLEAR a 
aCANNOT WRITE/READ a 
aANY DEVICE REGISTER a 

awiTHOuT a 
aERROR a 

aA ONE FROM a 

aUSING MASSBUS INITIALIZE. I.E., a 
aA ZERO FROM 3 

aEVERY DEVICE REGISTER BIT POSITION a 
aTHE FOLLOWING BITS ARE STUCK a 
aA SHIFTING ONE BIT FROM a 
aAPPEARS STUCK AT ZERO a 
aAPPEARS STUCK AT ONE a 
aREGISTER SELECT a 

ai (U2,4,8J6) a 

a2 (1,2,4,8,16) a 
34 (1,2,4,8,16) a 

as (1,2,4,8,16) a 

aALL ONES FROM 3 
aALL ZEROS FROM 3 
aAT ZERO 3 
aAT ONE 3 
3. OR a 

<CR><LF>3CS ^BA CLRL a 
3CANN0T READ ZEROS FROM 3 
aiS INCORRECT a 
aiS NOT SET a 

ais SET a 

aSHOULD NOT BE SET 3 
aSHOULD BE SET 3 
3CANN0T SET a 
aBE CAUSE a 

3USING a 

3DURING REGISTER TRANSFER 3 

3UNEXPECTED 3 

aBUS TIMEOUT (04 TRAP) 3 

SBY REGISTER TRANSFER 3 

3CANN0T RESET 3 

3WirH0UT SETTING 3 

3BUT a 



CZRMPBO RM05/3/2 DS<LS TST 1 MACRO VOA.OO 4-APR-81 
ERROR MESSAGE STRINGS 



115 


100515 


127 


101 


125 


EMS351 


.ASCIZ 


116 


100533 


127 


101 


123 


EMS352 


•ASCIZ 


117 


100547 


111 


116 


040 


EMS353. 


, ASCIZ 


118 


100573 


111 


123 


040 


EMS354 


.ASCIZ 


119 


100626 


103 


101 


116 


EMS355. 


.ASCIZ 


120 


100650 


127 
127 


101 


123 


EMS356. 


.ASCJZ 


121 


1006 70 


101 


123 


EMS357. 


.ASCJZ 


122 


100712 


060 


040 


124 


EMS360. 


.ASCIZ 


123 


100740 


061 


040 


124 


EMS 361 . 


•ASCIZ 


12A 


100766 


111 


123 


040 


EMS362: 


.ASCIZ 


125 


101007 


103 


101 


116 


EMS363. 


.ASCIZ 


126 


101024 


124 


105 


123 


EMS364 . 


.ASCIZ 


127 


101045 
101052 


101 


116 


104 


EMS365 . 


.ASCIZ 


128 


103 


101 


116 


EMS366. 
EMS367. 


.ASCIZ 


129 


101075 


124 


110 


105 


.ASCIZ 


130 


101145 


122 


105 


123 


EMS570. 


.ASCIZ 


131 


101162 


104 


111 


104 


EMS371 . 


.ASCIZ 


132 


101211 


104 


125 


122 


EMS372, 
EMSi73. 


.ASCIZ 


133 


101243 


124 


117 


040 


.ASCIZ 


134 


101247 


127 


111 


124 


EMS374. 


.ASCIZ 


135 


101300 


102 


131 


040 


EMS375. 


.ASCIZ 


136 


101314 


102 


131 


040 


EMS376. 


.ASCIZ 


137 


101330 


127 


101 


123 


EMS377. 


.ASCIZ 


138 


101341 


127 


101 


123 


EMS400. 


.ASCIZ 


139 


101356 


104 


111 


104 


EMS401 . 


.ASCIZ 


UO 


101373 


127 


110 


111 


EMS402 


.ASCIZ 


141 


101402 


103 


117 


115 


EMS403 


.ASCIZ 


142 


101443 


127 


101 


123 


EMS404 


.ASCIZ 


143 


101462 


104 


125 


122 


EMS405 


.ASCIZ 


144 


101472 


127 


101 


123 


EMS406 


.ASCIZ 


145 


101505 


123 


105 


101 


EMS407 


.ASCIZ 


146 














147 


101525 


Oil 


104 


105 


EMS500 


.ASCII 


148 


101557 


Oil 


104 


105 




.ASCII 


149 


101622 


Oil 


124 


122 




.ASCIZ 


■•50 


101666 


Oil 


111 


106 


EMS501 


.ASCIZ 


151 


101713 


Oil 


115 


101 


EMS502 


■ .ASCIZ 


152 


101763 


Oil 


103 


123 


EMS503 


• .ASCIZ 


153 


102010 


Oil 


104 


123 


EMS504 


.ASCIZ 


154 


102043 


Oil 


104 


105 


EMS505 


.ASCIZ 


155 


102116 


Oil 


104 


105 


EMS506 


■ .ASCIZ 


156 


102157 


Oil 


104 


105 


EMS507 


• .ASCIZ 


157 


102247 


Oil 


101 


123 


EMS510 


■ .ASCIZ 


158 


102322 


015 


012 


Oil 


EMS511 


• .ASCII 


159 


102351 


on 


050 


116 




.ASCIZ 


160 














161 


102421 


122 


105 


101 


EMS600 


• -ASCIZ 


162 


102451 


117 


106 


106 


EMS601 


• .ASCIZ 


163 


102471 


122 


105 


124 


EMS602 


' .ASCIZ 


164 


102532 


122 


105 


114 


EMS603 


■ .ASCIZ 


165 


102553 


122 


105 


103 


EMS604 


: .ASCIZ 


166 


102600 


123 


105 


105 


EMS605 


r .ASCIZ 


767 


102616 


123 


105 


101 


EMS606 


■ .ASCIZ 


168 


102636 


104 


101 


124 


EMS607 


■ .ASCIZ 



E 6 

01:24:25 PAGE 40-2 

SEO 0277 

3WAS RESET BY a 

aWAS SET BY a 

aiN DIAGNOSTIC MODE a 

aiS INCORRECT ACCORDING TO a 

aCANNOT INCREMENT a 

auAS NOT SET BY a 

aWAS NOT RESET BY 3 

aO TO 1 TRANSITION OF a 

ai TO 0 TRANSITION OF a 

aiS INCONSISTENT a 

aCANNOT READ a 

aTEST PATTERN IN a 

aAND a 

aCANNOT INITIALIZE a 

aTHE COMMAND SEQUENCER HAS BEEN CLOCKED a 

aRESET EARLY a 

aDID NOT RESET ON TIME a 

aDURING COMMAND EXECUTION a 

aTO a 

aUITH ANY COMBINATION OF 3 
aBY READING a 
aBY WRITING a 

auAs SET a 

aUAS NOT SET a 
aOID NOT SET a 

auHiLE a 

aCOMMANO SEQUENCER DID NOT ABORT a 
aUAS NOT RESET a 

aDURING a 

aWAS RESET a 
aSEARCH TIMEOUT a 

a DEVICE IS NON-EXI STENT. a<CR><LF> 

a DEVICE IS SWITCHED TO OTHER PORTa<CR><LF> 

a TRANSCEIVER ENABLE SWITCH IS OFFa<CR><LF> 

a IF MODULE, M7686,a<CR><LF> 

a HASS8US TRANSCEIVER, M5922 OR M5923 a<CR><LF> 

a CS MODULE, M7684,a<CR><LF> 

a DS MODULE, H8685/M7685,a<CR><LF> 

a DEVICE IS SWITCHED TO A/8 PORT POSITIONa<CR><LF> 

a DEVICE IS NOT AN RM05/3/2. ORa<CR><LF> 

a DEVICE IS SWITCHED TO PROGRAAtlABLE PORT POSITION. ORa<CR><LF> 

a ASSUMING THE RH CONTROLLER HAS NO FAULTd<CR><LF> 

<CR><LF>a PROBABLE FAULT (S) :a<CR><LF> 

a (NOT INCLUDING CABLES OR CONNECTORS)a<CR><LF> 

aREAD IN PRESET COMMAND a 
aOFFSET COMMAND a 

aRETURN TO CENTER CENTER COMMAND a 

aRELEASE COMMAND a 

aRECALlBRATE COMMAND a 

aSEEK COMMAND a 

aSEARCH COMMAND a 

aDATA COMMAND a 



CZRMPBO RM05/3/2 DSMS TST 1 
FRROR MESSAGE STRINGS 



1 


1 0265A 


105 


130 


2 


102703 


123 


124 


3 


102732 


040 


102 


A 


1027A0 


101 


104 


5 


1027A7 


105 


130 


6 


102766 


122 


105 


7 


103005 


105 


130 


8 


10302<. 


122 


105 


9 


103043 


104 


122 


10 


103062 


105 


130 


11 


103107 


123 


124 


12 


103136 


105 


130 


13 


10316A 


123 


124 


1A 


103213 


105 


130 


15 


103251 


123 


124 


16 


103310 


105 


130 


17 


103357 


123 


124 


18 


103A26 


105 


130 


19 


103A65 


103 


117 


20 


10352A 


105 


130 


21 


103563 


123 


124 


22 


105622 


105 


150 


23 


105670 


103 


115 


2U 








25 


105757 


105 


150 


26 


103777 


122 


105 


27 


104055 


105 


150 


28 


104073 


122 


105 


29 


104152 


101 


105 
105 


50 


104151 


122 


31 









MACRO V04.00 4 



120 


EHI : 


101 




101 


EH2: 


122 


EH5: 


120 


EH5: 


125 




120 


EH7: 


105 


EH57: 


126 




120 


EH65: 


101 




120 


EH71 : 


101 




120 


EHI 15: 


101 




120 


EHI 50 : 


101 




120 


EHI 32: 






120 


EHI 42: 


101 




• 20 


EHU5: 


120 




120 


EHI 50; 


125 




120 


EH213: 


125 




124 


EH220: 


125 






.EVEN 



F 6 

-APR-81 01:24:25 PAGE 41 



SEO 0278 



.ASCII 
.ASCIZ 
•ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCJZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
•ASCIZ 

•ASCIJ 
•ASCJZ 
•ASCII 
•ASCJZ 
.ASCII 
•ASCIZ 



aEXPCTD RECEVD REGSTRa<CRLr > 

aSTATUS STATUS ADRESSB 
a BASEa<CRLF> 
aADRESSa 

aEXPCTD STUCKa<CRLF> 

aRESULT BIT(S)a 

aEXPCTD RECEVDa 

aRECEVD DRVTyP9<CRLF> 

SDRVTyP REGADRa 

aEXPCTD RECEVD TESTa<CRLF> 

aSTATUS STATUS REGSTRB 

aEXPCTD RECEVD TESTa<CRLF> 

aSTATUS STATUS PATTRNa 

aEXPCTD RECEVD REGSTR TESTa<CRLF> 

SSTATUS STATUS ADRESS PATTRNa 

aEXPCTD RECEVD REGSTR 

aSTATUS STATUS ADRESS PATTRN REGSTRi 

aEXPCTD ACTUAL REGSTR OFFSETa<CRLF> 

aCOUNT COUNT ADRESS REGSTRB 

aEXPCTD RECEVD REGSTR OFFSETa<CRLF> 

aSTATUS STATUS ADRESS REGSTRa 

aEXPCTD ACTUAL REGSTR RMERI 



TEST OFFSETa<CRLF> 



RMER2a<CRLF> 



aCfiPERR CW>ERR ADRESS PATTRN PATTRNa 

aEXPCTD ACTUAL REGSTR FUNCT IONa<CRLF> 

aRESULT RESULT ADRESS CODEa 

aeXPCTD ACTUAL STATUS TESTa<CRLF> 

aRESULT RESULT ADRESS REGSTRa 

aACruAL REGSTRa<CRLF> 

aRESULT ADRESSa 



ZRMPBO DSKLS 
PRROR MfSSAGE STRINGS 

' 10A170 001 KO 

2 W200 001156 

5 10A204 001 UO 

A 104212 001K2 

5 104220 001 UO 

6 104230 001140 

7 104240 001140 

8 104252 001140 

9 104266 001142 
10 

n 104272 000 

'2 104275 000 

^3 104276 000 

14 104300 000 

15 '04304 000 



rST 1 flACRO V04.00 



001142 001136 EDI: 

GOOOOO ED2: 

001142 000000 ED5: 

001136 000000 EDS 7: 

001142 001174 ED65: 

001142 001450 ED71: 

001142 001136 ED115: 

001142 001136 ED130: 

001136 ED22G: 

000 000 EF1: 
EF2: 

000 EF5: 

000 000 EF57: 

000 000 EF130: 
.EVEN 



G 6 

-APR-81 01:24.V5 PAGE 42 



.WORD 


SGDDA T . tBDDA T . $8DADR . 0 


.WORD 


$8DADR,0 


.WORD 


IGDDAT ,$BDDAT.0 


.WORD 


J8DDAT,$BDADR,0 


Lino Pi 




.WORD 


SGDDAT , tBDDAT . RMHRO . 0 


.UORD 


$GDDAT.$8DDAT.$8DADR.$TMP0,0 


.UORD 


$GDDAT,$BDDAr,$8DADR.$TMP0,$TMP1,0 


.WORD 


SBDDAT.SBDADR 


.8YTE 


0.0.0 


.8VTE 


0 


.8VTE 


0.0 


.8YTE 


0.0.0.0 


.8VTE 


0.0.0,0.0 



rinfVBO RM05/5/2 DSkLS 
FRROR MESSAGE STRINGS 

1 1CK31? 

2 10431? 

3 105316 
4 

5 104312 
6 

7 104312 

8 ^04312 200 

9 104313 200 

10 104314 114 

11 104332 055 

12 104350 124 

13 104371 124 

14 104406 124 

15 104441 124 

16 104474 124 

17 104526 124 

18 104556 124 

19 104601 124 

20 104633 124 

21 104676 124 

22 104742 124 

23 '05006 124 

24 105051 124 

25 105113 124 

26 105157 124 

27 105206 124 

28 105254 124 

29 105323 124 

30 105354 124 

31 105413 124 

32 105456 124 

33 105510 124 

34 105542 124 

35 105573 124 

36 105610 124 

37 105634 124 

38 105661 124 

39 105705 124 

40 105722 124 

41 105737 124 

42 106000 124 

43 106024 124 

44 106050 124 

45 106065 124 

46 106116 124 

47 106140 124 

48 106174 124 

49 106222 124 

50 106252 124 

51 106275 124 

52 106324 124 

53 106345 124 

54 106365 124 

55 106425 124 

56 106457 124 

57 706501 124 



ST 1 K1ACRC V04.00 4 



BUFFER 
BUFONE 
BUF TWO 

.=8UFFI 

HELP: 

.ASCII 

.ASCII 

111 123 .ASCII 

055 055 .ASCII 

061 Oil .ASCII 

062 Oil .ASCII 

063 Oil .ASCII 

064 Oil .ASCII 

065 Oil .ASCII 

066 Oil .ASCII 

067 Oil .ASCII 
061 060 .ASCII 
061 061 .ASCII 
061 062 .ASCII 
061 063 .ASCII 
061 064 .ASCII 
061 065 .ASCII 
061 066 .ASCII 

061 067 .ASCII 

062 060 .ASCII 
062 061 .ASCII 
062 062 .ASCII 
062 063 .ASCII 
062 064 .ASCII 
062 065 .ASCII 
062 066 .ASCII 

062 067 .ASCII 

063 060 .ASCII 
063 061 .ASCII 
063 062 .ASCII 
063 063 .ASCII 
063 064 .ASCII 
063 065 .ASCII 
063 066 .ASCII 

063 067 .ASCII 

064 060 .ASCII 
064 061 .ASCII 
064 062 .ASCII 
064 063 .ASCII 
064 064 .ASCII 
064 065 .ASCII 
064 066 .ASCII 

064 067 .ASCII 

065 060 .ASCII 
065 061 .ASCII 
065 062 .ASCII 
065 063 .ASCII 
065 064 .ASCII 
065 065 .ASCII 
065 066 .ASCII 



H 6 

•APR-81 01:24:25 PAGE 43 



.,E0 0280 



.8LKW 258. 
.8LKW 258. 



<CRLF> 
<CRLF> 

ailST OF T£STSa<CRlF> 

a a<CRLF> 

aTl TRANSFER TESTa<CRLF> 

aT2 CTOD TESTa<CRLF> 

aT3 MASS8US INITIALIZE TESTa<CRLF> 

aT4 CLEAR STUCK ACTIVE TEoTa<CRLF> 

aT5 TRISTATE TRANSFER TESTa<CRLF> 

aT6 REGISTER SELECT TESTa<CRLF> 

aT7 DRIVE TYPE TESTa<CRLF> 

aTlO DEVICE AVAILABLE TESTa<CRLF> 

aTll HOLDING REGISTER TRANSFER TESTa<CRLF> 

aT12 CONTROL STATUS #1 TRANSFER TESTa<CRLF> 

aT13 ERROR REGISTER ^^^ TRANSFER TESTa<CRLF> 

aT14 CLEAR OFFSET STUCK ACTIVE TESTa<CRLf> 

aTl 5 OFFSET REGISTER TRANSFER TESTa<CRLF> 

aT16 ERROR REGISTER »2 TRANSFER TESTa<CRLF> 

an 7 SERIAL NUMBER TESTa<CRLF> 

aT20 CONTROL BUS PARITY DETECTION TESTa<CRLF> 

aT21 CONTROL BUS PARITY GENERATION TESTa<CRLF> 

aT22 RMDA.RMOC FAULT TESTa<CRLF> 

aT23 DISK ADDRESS TRANSFER TESTa<CRLF> 

aT24 DESIRED CYLINDER TRANSFER TESTa<CRLF> 

aT25 ILLEGAL REGISTER TESTa<CRLF> 

aT26 RESET GO BY INIT TESTa<CRLF> 

aT27 DIAGNOSTIC MODE TESTa<CRLF> 

aT30 MOL TESTa<CRLF> 

aT31 WRITE LOCK TESTa<CRLf> 

aT32 DRIVE FAULT TESTa<CRLF> 

aT33 SEEK ERROR TESTa<CRLF> 

aT34 PIP TESTa<CRLF> 

aT35 E8L TESTa<CRLF> 

aT36 LAST SECTOR. LAST TRACK TESTa<CRLF> 

aT37 RMOA COUNT TESTa<CRLF> 

aT40 RMDC COUNT TESTa<CRLF> 

aT41 L8T TESTa<CRLF> 

aT42 C0rV>0SITE ERROR TESTa<CRLF> 

aT43 WRITE GO TESTa<CRLF> 

aT44 BRANCH MULTIPLEXOR TESTa<CRLF> 

aT45 SET/RESET GO TESTa<CRLF> 

aT46 END 1 RESET GO TESTa<CRLF> 

aT47 SET PULSE TESTa<CRLF> 

aT50 SET/RESET IVC TESTa<CRLF> 

aT51 SET LSC TESI<i<CRLF> 

aT52 DECODE TESTa<CRLF> 

aT53 SET/RESET VOLUME VALID TESTa<CRLF> 

aT54 ILLEGAL FUNCTION TESTa<CRLF> 

ar55 OCCUPIED TESTS<CRLF> 

aT56 READ IN PRESET TESTa<CRLF> 



:RMPeO RM05/V2 DSKLS TST 1 MAC«0 V04.00 
RPfOR MESSAGE STRINGS 



58 


106531 


124 


065 


067 


.ASCI] 


59 


106553 




066 


060 


.ASCI. 


60 


1 06602 




066 


061 


.ASCI. 


61 


106632 


124 


066 


062 


.ASCI 


62 


106664 


124 


066 


063 


.ASCI 


63 


106717 


124 


066 


064 


• ASCI 


64 


106751 


124 


066 


065 


.ASCI, 


65 


106775 


124 


066 


066 


.ASCI. 


66 


107016 


124 


066 


067 


.ASCI. 


67 


107061 


124 


067 


060 


.ASCI. 


68 


107117 


124 


067 


061 


.ASCI. 


o9 


107151 


124 


067 


062 


.ASCIJ 


70 


1071/2 


124 


067 


063 


.ASCIJ 


71 


107213 


124 


067 


064 


.ASCI. 


72 


107240 


124 


067 


065 


.ASCIJ 


73 


107271 


124 


067 


066 


.ASCIJ 


74 


107327 


124 


067 


067 


•ASCIJ 


75 


107365 


124 


061 


060 


.ASCIJ 


76 


107424 


124 


061 


060 


.ASCIJ 


77 


107446 


124 


061 


060 


.ASCIJ 


78 


107472 


124 


061 


060 


•ASCI. 


r9 


107524 


124 


061 


060 


.ASCIJ 


80 


107555 


124 


061 


060 


.ASCIJ 


81 


107601 


124 


061 


060 


.ASCIJ 


82 


107641 


124 


061 


060 


•ASCIJ 


83 


107665 


124 


061 


061 


•ASCIJ 


84 


107707 


124 


061 


061 


.ASCIJ 


85 


107733 


124 


061 


061 


.ASCIJ 


86 


107761 


124 


061 


061 


.ASCIJ 


87 


110000 


124 


061 


061 


.ASCIJ 


88 


110021 


124 


061 


061 


.ASCIJ 


89 


110052 


124 


061 


061 


.ASCIJ 


90 


110106 


124 


061 


061 


•ASCIJ 


91 


110142 


124 


061 


062 


.ASCIJ 


9? 


n 01 76 


200 






•ASCIJ 


93 


M 01 77 


117 


120 


105 


•ASCIJ 


94 


110233 


055 


055 


055 


•ASCIJ 


95 


110267 


123 


127 


111 


•ASCIJ 


96 


110304 


055 


055 


055 


•ASCIJ 


97 


110341 


040 


040 


061 


•ASCIJ 


98 


110365 


040 


040 


061 


•ASCIJ 


99 


110410 


040 


040 


061 


•ASCIJ 


100 


110445 


040 


040 


061 


•ASCIJ 


1 ; 


10454 


040 


040 


061 


•ASCIJ 


'Oc 


■10505 


040 


040 


061 


•ASCIJ 


03 


• 10531 


040 


040 


040 


•ASCIJ 


1 


10555 


040 


040 


040 


•ASCIJ 




110614 


040 


040 


040 


•ASCIJ 


106 


110630 


040 


040 


040 


•ASCIJ 


107 


110643 


040 


060 


040 


•ASCIJ 


1 AO 


MUCj6 


A/ A 

U4U 


A/ A 

040 


Ay A 

040 


• ASCI . 


109 


110671 


040 


040 


040 


•ASCIJ 


110 


110703 


040 


040 


040 


•ASCIJ 


111 


110715 


040 


040 


040 


•ASCIJ 


112 
113 


110727 


040 


040 


040 


.ASCi; 


^14 




000200 






.END 
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aT57 RIP/RMOF TESTa<CRLF> 

aT60 RMDA/RMDC/RIP TESTa<CRLF> 

aT61 OFFSET COMMAND TESTa<CRLF> 

aT62 RETURN TO CENTER TESTa<CRLF> 

aT63 RMDC CLEAR OFFSET TESra<CRLF> 

aT64 E8L CLEAR OFFSET TESTa<CRLF> 

aT65 RUN AND GO TESTa<CRLF> 

aT66 SET lAE TESTa<CRLF> 

aT67 SEARCH, SEEK, READ, WRITE TESTa<CRLF> 

aT70 INVALID TRACK/SECTOR TESTa<CRLF> 

aT71 INVALID CYLINDER TESTa<CRLF> 

aT72 SET AGE TESTa<CRLF> 

aT73 SET RMR TESTa<CRLF> 

aT74 PGM STATUS CHECKa<CRLF> 

aT75 DVA/DPR STATUS CHECKa<CRLF> 

aT76 PORT REQUEST TEST, PART ia<CRLF> 

aT77 PORT REQUEST TEST, PART 2a<CRLF> 



aTlOO PORT REQUEST TEST, PART 3a<CRLF> 

aTlOl RELEASE TESTa<CRLF> 

aT102 WRITE ATA TESTa<CRLF> 

aT103 RESET ATA BY 60 TESTa<CRLF> 

aT104 UNIT READY ATA TESTa<CRLF> 

aTlOS ERROR ATA TESTa<CRLF> 

aT106 REGISTER TRANSFER ATA TESTa<CRLF> 

aT107 P SET ATA TESTa<CRLF> 

aTllO SET WLE TESTa<CRLF> 

aTin EXCEPTION TESTa<CRLF> 

aT112 RECALIBRATE TESTa<CRLF> 

aT113 SEEK TESTa<CRLF> 

aTn4 SEARCH TESTa<CRLF> 

aT115 SEARCH TIMEOUT TESTa<CRLF> 

aT116 DATA COMMAND TESTS (1)a<CRLF> 

aT117 DATA COMMAND TESTS (2)a<CRLF> 

aT120 DATA COMMAND TESTS (3)a<CRLF> 
<CRLF> 

aOPERATIONAL SWITCH S£TTINGSa<CRLF> 



a a<CRLF> 

aSWITCH USEa<CRLF> 

a a<CRLF> 

a 15 HALT ON ERRORa<CRLF> 

a 14 LOOP ON TESTa<CRLF> 

a 13 INHIBIT ERROR TYP£OUTSa<CRLF> 

a 12 a<CRLF> 

a 11 INHIBIT ITERATIONSa<CRLF> 

a 10 BELL ON ERRORa<CRLF> 

a 9 LOOP ON ERRORa<CRLF> 

a 8 LOOP ON TEST IN SWR<7:0>a<CRLF> 

a 7 TNl28a<CRlF> 

a 6 TN64a<CRLF> 

a 5 TN32a<CRLF> 

a 4 TNl6a<CRLF> 

a 3 TN8a<CRLF> 

a 2 TN4a<CRLF> 

a 1 TN2a<CRLF> 

a 0 TNla<CRLF> 
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AP^SE = 
ACDW1 = 
ACDW2 = 
ACPUOP= 
AOOWO = 
ADDU1 = 
ADDW10= 
ADDU1 1 = 
ADDWI 2= 
ADDU1 3= 
ADDUK= 
ADDWI 5= 
ADDW2 = 
ADDU3 = 
ADDUA = 
ADDW5 = 
ADDW6 = 
ADDW7 = 
ADDU8 = 
ADDW9 = 
ADEVCT= 
ADEVM = 
ADR 

AENV = 
AENVM 
AFATAL= 
ALL 

AMADR1= 
AMADR2= 
AMADR3= 
A«ADR4= 
AMAMS1 = 
AAMMS2= 
AriA«S3= 
ArW1S4= 
AMSGAD= 
AMSGLG= 
AMSGTY= 
AMTYP1- 
AriTYP2= 
AMTYP3= 
A«TYP4= 
AOE 

APASS = 
APE 

APRIOR= 
APTCSU= 
APTENV= 
APTSI2= 
APrSPO= 
ASWREG= 
ATA = 
ATESTN= 
ATfy#1SK= 
ATNTBL 
AUMIT r 
AUSWP 
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1 76700 


AUTSIZ 


001 326 


CHRCNT 


060267 


EDI 


1041^0 


EH71 


103136 


000000 

WWW 


AVE C 11- 


120254 


CKSWR = 


104410 


ED115 


104240 


EMS1 


072206 


000000 


AVECT2= 


000000 


COCK 


001536 


ED130 


104252 


EMS10 


072611 


000000 


A16 = 


000400 


CLR = 


000040 


ED2 


104200 


EMS11 


072654 


000000 


A17 


001 000 


CWSTA 


006724 


ED220 


104266 


EMS12 


072745 


000000 


BADTMO 


004562 


CNSL01 


062655 


ED5 


104204 


EMS13 


073023 


000000 


BAI = 


000010 


CNSL02 


062665 


ED57 


104212 


EMS14 


073072 


000000 


8800 = 


000001 


CNSL03 


062727 


ED65 


104220 


EMS 15 


073137 


000000 

w W Ww 


8801 = 


000002 


CNSL04 


062736 


ED71 


104230 


EMS16 


073215 


000000 

www WW w 


8802 - 


000004 


CNSL07 


062772 


EECC = 


000020 


EMS 17 


073276 


000000 


8803 = 


000010 


CNSL08 


063134 


EFT1 


072160 


EMS2 


072257 


000000 


8804 = 


000020 


CNSl 09 


063135 


EFT115 


072176 


EMS20 


073337 


000000 


8805 = 


000040 


CNTClR 


054674 


EFT130 


072200 


EMS21 


073403 


000000 

w w w w \^ V 


8806 = 


000100 


COMMA 


062621 


EFT132 


072202 


EMS22 


073462 


000000 


B807 = 


000200 


CONT = 


000100 


EFT2 


072162 


EMS23 


073527 


000000 


8808 = 


000400 


CPSAVE 


057410 


EFT220 


072204 


EMS24 


073605 


000000 


8809 - 


001000 


CR 


00001 5 


EFTS 


072164 


EM525 


073664 


000000 


BiTO = 


000001 


CRLF = 


000200 


EFT57 


072166 


EMS250 


076566 


000000 


81 TOO - 


000001 


CYLMSK= 


001777 


EFT65 


072170 


EMS251 


076624 


oooooc 


BIT01 - 


000002 


D8CK = 


100000 


EFT71 


072172 


EMS252 


076670 


000000 


BIT02 - 


000004 


D8EN = 


040000 


EFT74 


072174 


EMS253 


076723 


000000 


BIT03 = 


000010 


DSL = 


002000 


EF1 


104272 


EMS254 


076756 


000001 


BIT04 = 


000020 


DCK = 


100000 


EF130 


104304 


EMS255 


07701 7 


000000 


8IT05 


000040 


DDJSP = 


177570 


EF2 


104275 


EMS256 


077061 


000000 


BIT06 = 


000100 


DE8L = 


020000 


tr5 


104276 


EMS257 


077111 


000000 


BIT07 = 


000200 


DISPLA 


001 1 56 


EF57 


104300 


EMS26 


073742 


062610 


BIT08 = 


000400 


DISPRE 


0001 74 


EHTI 


072032 


EMS260 


077145 


000000 


BIT09 = 


001000 


DLT = 


100000 


EHT115 


072072 


EMS261 


077176 


000000 


BIT1 = 


000002 


DMD = 


000001 


EHT130 


072076 


EMS262 


077235 


000000 


BIT10 = 


002000 


DPE = 


000010 


EHT132 


072102 


EMS27 


074021 


000000 


8IT11 = 


004000 


DPEHJ = 


040000 


EHT142 


072106 


CMS3 


072326 


000000 


BIT12 = 


010000 


DPELO = 


020000 


EHT145 


072112 


EMS30 


074065 


000000 


8IT13 = 


020000 


DPR = 


000400 


EHTI 50 


072116 


EMS300 


077300 


000000 


8ITK - 


040000 


DRIVES 


0631 56 


EHT2 


072036 


EMS 301 


077316 


000000 


BIT15 = 


100000 


DRQ = 


004000 


EHT213 


072122 


EMS302 


077341 


000000 


BIT2 = 


000004 


DRVCLR= 


000010 


EHT220 


072126 


EMS303 


077366 


000000 


81 T3 - 


000010 


DRY = 


000200 


EHT5 


072042 


EnS304 


077177 


000000 


81 TA - 


000020 


DShM - 


177570 


EHT57 


072052 


EMS306 


077406 


000000 


BIT5 = 


000040 


DTE = 


010000 


EHT65 


072056 


EMS307 


077i*22 


000000 


81 T6 = 


000100 


DULPRT= 


024024 


EHT7 


072046 


EMS31 


074145 


000000 


BJT7 = 


000200 


DVA = 


004000 


EHT71 


072062 


EMS310 


077463 


000000 


BITS = 


000400 


DVC 


000200 


EHT74 


072066 


fcMS311 


077500 


001000 


BIT9 = 


001000 


E8L 


020000 


EH1 


102654 


EMS312 


077544 


000000 


8LNKS1 


063413 


ECH = 


000100 


EH115 


103213 


EMS313 


077602 


100000 


8LNKS2 


063412 


ECI = 


004000 


EH130 
EHl3r 


103310 


EMS314 


077633 


000000 


8LNX:S3 


063411 


ECRC = 


001000 


103426 


EMS315 


077662 


000040 


BLNKS4 


063410 


EDT1 


072132 


EH142 


103524 


EMS316 


077710 


000001 


80TADR 


060264 


EDT115 


072150 


EH145 


103622 


EMS317 


077731 


000200 


BOTFLG 


060266 


EDT130 


072152 


EH150 


103737 


EMS32 


074216 


000100 


8PTVEC- 


000014 


E0T132 


072154 


EH2 


102732 


EMS320 


077751 


000000 


BSE = 


100000 


EDT2 


072134 


EH213 


104035 


EMS321 


07777} 


100000 


BUFFER 


104312 


EDT220 


072156 


EH220 


104132 


EMS322 


100011 


000000 


BUFONE 


104312 


EDT5 


072136 


EH3 


102?40 


EM3323 


100031 


000377 


BUFTWO 


105316 


EDT57 


072140 


EH5 


102747 


EMS324 


100050 


063516 


CC 


004000 


EDT65 


072142 


EH57 


103024 


EMS325 


100070 


000000 


CH 


002000 


fDT71 


072144 


EH65 


103062 


EMS326 


100101 


oooooc 


CHGADR 


001330 


EDT74 


072146 


EH7 


103005 


EMS527 


loom 
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SYMBOL 


TABLE 




















EMS33 


07A276 


EMS43 




EMT' 


12 


066230 


EMT175 


067672 


EMT257 


071322 


EMS330 


1001 17 


EMS44 


074760 


EMT' 


13 


066250 


EMT176 


067710 


EMT26 


064652 


EMS331 


100136 


EMS45 


075021 


EMT' 


14 


066274 


EMT1 77 


067726 


EMT260 


071346 


EMS332 


100166 


EMS46 


075076 


EMT' 


15 


066316 


EMT2 


064162 


EMT261 


071572 


EMS333 


10020A 


EMS47 


075160 


EMT' 


16 


066342 


EMT20 


064522 


EMT262 


071416 


PMS33A 


100220 


EMS5 


072424 


EMT' 


17 


066362 


EMT200 


067726 


EMT263 


071454 


EMS335 


100^30 


EMS50 


075220 


EMT' 


2 


064376 


EMT201 


067744 


EMT264 


071452 


EI1S336 


100253 


EMS500 


101525 


EMT' 


20 


066402 


EMT202 


067762 


EMT265 


071476 


EMS337 


100272 


EMS501 


101666 


EMT' 


21 


066426 


EMT203 


070000 


EMT266 


071514 


EMS3A 


07A326 


EMS502 


101713 


EMT1 


22 


066446 


EMT204 


070022 


EMT267 


071532 


EMS3A0 


100306 


tMS503 


101763 


EMT1 


23 


066466 


EMT205 


070042 


EMT27 


064704 


EMS3A1 


100317 


EMS504 


102010 


EMT' 


24 


066512 


EMT206 


070062 


EMT270 


071546 


EMS3A2 


1 00326 


EMS505 


102043 


EMT' 


25 


066530 


EMT207 


070112 


CMT271 


071572 


EMS5A3 


1 00360 


EMS506 


102116 


EMT' 


26 


066550 


EMT21 


064542 


EMT272 


071616 


EMS3AA 


10037A 


EMS507 


102157 


EMT' 


27 


066566 


EMT210 


070126 


EMT273 


071634 


EMS3A5 


100A23 


EMS51 


075267 


EMT' 


3 


064414 


EMT211 


070144 


EMT274 


071652 


EWS3A6 


100A51 


EMS510 


102247 


EMT' 


30 


066612 


EMT212 


070162 


EMT275 


071670 


EMS3A7 


100A67 


EMS511 


102322 


EMT' 


31 


066630 


EMT213 


0701 74 


EMT276 


071710 


EMS35 


074355 


EMS52 


075336 


EMT' 


32 


066646 


EMT214 


070224 


EMT277 


071726 


EMS350 


100510 


EMS53 


075377 


EMT' 


33 


066666 


EMT215 


070236 


EMT3 


064210 


EWS351 


100515 


EMS54 


075440 


EMT' 


34 


066706 


EMT216 


070256 


EMT 30 


064716 


EMS352 


100533 


EMS55 


075515 


EMT' 


35 


066722 


EMT217 


070272 


EMT300 


071752 


EMS353 


1005A7 


EMS56 


075573 


EMT' 


36 


066740 


EMT22 


064562 


EMT301 


071 776 


EMS35A 


100573 


EMS57 


075666 


EMT' 


137 


066752 


EMT220 


070306 


EMT 302 


072014 


EMS355 


100626 


EMS6 


072474 


EMT' 


/, 


064432 


EMT221 


070324 


EMT31 


064732 


EMS356 


100650 


EMS60 


075752 


EMT' 


140 


066770 


EMT222 


070342 


EMT32 


064746 


EMS357 


100670 


EMS600 


102421 


EMT' 


141 


067010 


EMT223 


070360 


EMT33 


064762 


EMS36 


07AA17 


EMS601 


102451 


EMT' 


142 


067024 


EMT224 


070376 


EMT34 


065000 


EnS360 


100712 


EMS602 


102471 


EMT 


143 


067042 


EMT225 


070416 


EMT35 


065016 


EMS 361 


1007A0 


EMS603 


102532 


EMT' 


144 


067056 


EMT226 


070440 


EMT36 


065032 


EMS362 


100766 


EMS604 


102553 


EMT' 


145 


067100 


EMT227 


070456 


EMT37 


065046 


EMS 363 


101007 


EMS605 


102600 


EMT' 


146 


067122 


EMT23 


064576 


EMT4 


064230 


EMS36^ 


10102A 


EMS606 


102616 


EMT' 


47 


067140 


EMT230 


070474 


EMT40 


065062 


EMS365 


1010A5 


EMS607 


1^^2636 


EMT 


5 


064450 


EMT231 


070512 


EMT41 


065102 


EMS 366 


101052 


EMS61 


0/6024 


EMT' 


ISO 


067152 


EMT232 


070526 


EMT42 


065116 


EMS 367 


101075 


EMS62 


076077 


EMT' 


151 


067174 


EMT233 


070550 


EMT43 


065142 


EMS37 


07AA47 


EMS63 


076160 


EMT' 


152 


067206 


EMT234 


070572 


EMT44 


065154 


EMS 3 70 


101K5 


EMS64 


076220 


EMT' 


153 


067222 


EMT235 


070620 


EMT45 


065170 


FMS371 


101162 


EMS65 


076270 


EMT 


54 


067242 


EMT236 


070640 


EMT46 


065204 


EMS372 


101211 


EMS66 


076331 


EMT' 


155 


067262 


EMT237 


070672 


EMT47 


065220 


EMS 373 


1012A3 


EMS67 


076406 


EMT' 


156 


067300 


EMT24 


064616 


EMT 5 


064252 


EMS374 


1012A7 


EMS7 


072540 


EMT' 


157 


067322 


EMT240 


070712 


EMT50 


065242 


EMS375 


101300 


EMS70 


076520 


EMT' 


16 


064466 


EMT241 


070736 


EMT51 


065264 


EMS376 


101 3U 


EMTVEC= 


000030 


EMT' 


160 


067340 


EMT242 


070762 


EMT52 


065304 


EMS377 


101330 


EMT1 


064154 


EMT' 


161 


067370 


EMr243 


071006 


EMT53 


065320 


EMSA 


072373 


EMTIO 


064342 


EMT' 


162 


067406 


EMT244 


071032 


EMT54 


065334 


EMSAO 


07A501 


EMT100 


065756 


EMT' 


163 


067424 


EMT245 


071050 


EMT55 


065354 


EMSAOO 


101 3A1 


EMTlOl 


065776 


EMT' 


164 


067446 


EMT246 


071066 


EMT56 


065374 


EMSAOl 


101356 


EMT102 


066016 


EMT' 


165 


067470 


EMT247 


071112 


EMT57 


065410 


EMSA02 


101373 


EMT103 


066036 


EMT' 


166 


067514 


EMT25 


064636 


EMT6 


064276 


EMS403 


101402 


EMT104 


066062 


EMT' 


167 


067534 


EMT250 


071130 


EMT60 


065424 


EMSACK 


101443 


EMT105 


066102 


EMT 


17 


064504 


EMT251 


071154 


EMT61 


065440 


EMSA05 


101462 


EMT106 


066122 


EMT 


!70 


067556 


EMT252 


071200 


EMT62 


065460 


EMSA06 


101472 


EMT107 


066146 


EMT 


171 


067570 


EMr253 


071224 


EMT63 


065500 


EMSA07 


101505 


EMT11 


064360 


EMT 


172 


067604 


EMT254 


071242 


EMT64 


065514 


FMSAI 


074557 


EMT110 


066166 


EMT 


173 


067622 


EMT255 


071260 


EMT65 


065526 


EMSA2 


074625 


EMT111 


066210 


EMT 


174 


067644 


EMT256 


071304 


EMT66 


065542 
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EMT67 


065556 


ILF54 = 


000054 


MUD - 


000010 


DO 


000070 


RMER10 


001426 


EMT7 


064320 


ILF56 = 


000056 

W W W W a' w 


MUP = 


000010 


kDCHR = 


10441 1 


RMER2 = 


000042 


EMT70 


065574 


ILF64 = 


000064 


MXF = 


001000 


RDLIN - 


104412 


RMER2I 


001 400 

WW ~ WW 


EMT71 


065614 


ILF 66 = 


000066 


N 


063404 


RDOCT = 


104413 


RMER20 


001454 


EMT72 


065640 


ILF 74 = 


000074 


NDTMSK= 


115760 


RDY = 


000200 

W via V V 


RMHR = 


000036 

W WW 


EMT73 


065664 


ILF 76 = 


000076 


NED = 


010000 


READY 


007120 


RMHRI 


001 574 


EMT74 


065704 


ILR = 


000002 

V V V W W ifc. 


NEM = 


004000 


READYl 


007146 


RMHRO 


001450 


EMT75 


065714 


ILRG50= 


000050 


NONE 


063205 


RECAL = 


000006 


RMLA = 


000020 

W W W Wk w 


EMT76 


065726 


ILRG52= 


000052 


NOP = 


000000 


RESREG= 


104415 


RMLA] 


001556 


EMT77 


065742 


ILR654= 


000054 


NOTAVL 


063344 


RESVEC= 


000010 


RMLAO 


00143i:' 


ENRGOT 


064154 


ILRG56= 


000056 


NOTPRS 


063327 


REX = 


010000 


RMMR1 - 


000024 

W W Wb ~ 


EQUALS 


062606 


ILRG60= 


OOC 60 


NOTRM 


063271 


RG = 


040000 


RMMR1 I 


001362 


ERR = 


040000 


ILRG62= 


000062 
Ot' 064 


NSA = 


100000 


RGDTPT 


063526 


RJilRlO 


001436 


ERRNff) 


060262 


ILRG64= 


OCC = 


100000 


RH = 


000072 


RMMR2 - 


000040 


ERROR = 


104000 


ILRG66= 


00u066 


OFD = 


000200 


RIP = 


000020 


RMMR2I 


001376 


ERRTYP 


057414 


ILRG70= 


000070 


OFFSET= 


000014 


RLEASE= 


000012 


RMMR20 


001452 


ERRVEC= 


000004 


ILRG72= 


000072 


OM = 


000001 


RMAS = 


000016 


RMOF = 


000032 


ERTYOO 


060270 


ILRG74= 


000074 


ONES 


063566 


RMASI 


001354 


RMOFI 


001370 


ERTY01 


060275 


ILRG76= 


000076 
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13-U58 
l3-q77 
6-wr 
13-657* 
15-728* 
13-977* 
13-=05* 
1 3-?65* 
15-C82* 
15-H73* 
15-L61* 
15-055* 
15-P71* 
15-T65* 
15-V48* 
15-X94* 
15-\47* 
15-15* 
13-C68* 
13-f30* 
13-133* 
13-lH* 
42-7 



14- 20* 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1 
24-1* 
24-1* 
24-1* 
24-1* 
24-1* 

24- 1* 
22-1* 

25- 1 
5-8* 

51-1 

51-1* 
51-1* 
51-1* 

9-28* 

9-76 

15- 610 
l5-=77 
15-H70 
15-P59 
15-U95 
15-k51 
15-14* 
15-650* 
15-756* 
15-:15* 
13-=21* 
15-788* 
15-D55* 
15-147* 
15-L75* 
15-045* 
15-R21* 
15-T94* 
15-V67* 
15-y25* 
15-\48» 
15-16* 
13-dl1* 
13-f31* 
13-162* 
13-144* 
42-8 



24- i 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

22-1* 



27-1 

10-55 

15-677 

15->42 

15-145 

15-P66 

15-V55 

18-9 

15-15* 

15-651* 

15-757* 

13-:14* 

13-=22* 

13-789* 

13-D34* 

15-148* 

15-L76* 

15-044* 

15-R22* 

15-T95* 

15-V68* 

15-Y24* 

15-\88* 

15- 78* 

15-d12* 

15-f64* 

15-165* 

13-145* 

42-9 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

22-1* 



27-1 

10-42* 

15-781 

15-705 

15-J84 

15-010 

15-V53 

26-25 

13-55* 

15-670* 

13-749* 

13-; 09* 

l3-=80* 

13-a09* 

13-D87* 

13-J86* 

15-L87* 

15-050* 

15-R65* 

15-U25* 

15-V79* 

15-y80* 

15-J21* 

15-79* 

l5-d60* 

15-f65* 

15-i94* 

15-mOl* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



27-1 

11-56 

15-794 

15-a05 

15-K50 

13-087 

13-V86 

13-36* 
13-671 
13-750 
13-; 10 
15-=81 
15-ai0 
15-D88 
15-J87 
15-L88 
13-051 
13-R66 
15-U24 
15-V80 
15-y81 
15-J22 
15-a25 
15-d61 
15-q50 
13-195 
13-m02 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

?4-l* 



15-1 

15-864 

13-a66 

13-K64 

13-R35 

13-W07 

13-67* 

13-690* 

13-773* 

13-; 20* 

13->45* 

13-870* 

13-E66* 

13-K32* 

13-L98* 

13-076* 

13-S09* 

13-U52* 

13-wOl* 

13-Z18* 

13-J67* 

13-a38* 

13-d88* 

13-g31* 

13-J51* 

13-»n33* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



13-67 

15-975 

15-A26 

13-L96 

13-R85 

13-U56 

13-540 
13-691 
13-774 
13-; 21 
13->46 
13-971 
13-F01 
13-IC33 
13-L99 
13-077 
13-SlO 
13-iJ53 
13-W02 
13-Z48 
13-D68 
13-a93 
15-d89 
15-h02 
l3-j52 
13-fn34 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



5-75 

5-996 

5-e08 

3-«56 

3-S22 

3-X01 

3-541 
3-698 
3-789 
3-; 34 
3-707 
3-A29 
3-F02 
3-K84 
3-M79 
3-P13 
3-S59 
3-U90 
3-W28 
3-249 
3--12 
3-a94 
3-e04 
3-h03 
3-i80 



6-23* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



5-106 
5-: 49 
5-676 

5- «92 
3-S72 
3-X71 

3-553* 
3-699* 
3-790* 
3-; 35* 
3-708* 
3-A30* 
3-G43* 
3-K85* 
3-«80* 
3-PU* 
3-S60* 
3-U91* 
3-W29* 
3-Z91* 
3-*27* 
3-blO* 
3-e35* 
3>h18* 
3-i81* 

6- 24* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



13-137 
15-: 77 
13-C78 
13-N40 
13-T29 
13-V48 

13-561 

13-706 

13-797 

13-; 46 

13-729 

13-611 

13-G57 

13-L05 

13-N26 

13-P20 

13-S74 

15-V15 

13-W80 

15-Z92 

15--57 

i5-b54 

13-e36 

15-hl9 

13-k16 

17-22* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



13-159 
l3-:97 
15-051 
13-N79 
1J-T47 
13-\10 

13-562 
13-707 
13-798 
13-; 47 
15-730 
13-612 
13-G58 
13-L06 
l3-fl27 
13-P21 
15-S75 
15-V16 
15-y81 
15-C33 
13-*58 
15-b55 
13-e62 
15-h46 
13-k17 
17-23* 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



15-529 
15-; 41 
13-084 
13-009 
13-T70 
13-.01 

13-623 
13-719 
13-867 
13-<15 
15-746 
13-678 
13-G70 
13-L26 
15-N81 
15-P45 
15-T42 
15-V28 
15-X52 
15-C48 
13- 38 
15-C51 
13-e63 
13-h47 
13-k45 
42-1 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



SEO 028' 



24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 

24-1* 



15-521 
15-<05 
13-E64 
13-048 
15-T99 
13-C07 

13-624* 
15-720* 
15-868* 
15-<16* 
15-747* 
13-679* 
13-G95* 
13-L27* 
13-W82* 
15-P44* 
15-T55* 
1 5-V29* 
15-X55* 
15-C75* 
15- 59* 
15-^52* 
13-«92* 
15-h98* 
1 5-k46* 
42-2 



15-546 
13-=02 
13-E99 
13-074 
15-028 
13-C75 

13-656* 
13-727- 
15-976* 
15-<42* 
15-762* 
15-C81*» 
13-G96*» 
15-L60* 
1 3-054 «• 
15-P70^ 
15-T64W 
15-V47* 
15-X95«« 
13-C74* 
15- 79« 
15-C67* 
1 3-e93* 
15-h99« 
15-115* 
42-4 



CZRMPBO RM05/3/2 DSKLS TST 1 HACRO V04.00 
."ROSS REFERENCE TABLE (CREF VOI-05 ) 



C 7 

4-APR-81 01:24:25 PAGE S-2 



SEQ 0288 



tBDDAT 



SBELL 

SBIN 

tCDWl 

scoy2 

SCHARC 
SCKSWR 
$CM3 

tern 

$C«TAG 
SCNTLC 
$CNTLG 
tCNTLU 
SCPUOP 
$CRLF 

tOBLK 
SODWO 
SDDWI 
SD0W2 
S0DW3 
SDDW4 
$0DW5 
S0DW6 



6-(Vr 
13-582* 
13-667 
13-747 
13-837* 
13-930* 
13-: 27* 
13-;71* 
13-=37* 
13->24 
1 3-?44* 
^3-876* 
13-A74* 
13-C57 
13-E22* 
13-G39 
13-H89* 
13-K12* 
1 3-L63* 
13-N17* 
13-P10* 
13-506* 
13-U20* 
13-V64* 
13-X90* 
13-C45* 
13--09* 
13-a19* 
13-C61* 
13-e85* 
13-h40* 
l3-k10* 
l3-ffl22* 

6-OM 

20- 1 
6'0» 
6-OM 

23-1 

6-0 

6-0 

6-0* 

6-0# 
27-1 
27-1 
27-1 

6-0# 

6-0# 
25-1 

21- 1 
6-Ojr 
6-0# 
6-0* 
6-0* 
6-0* 
6-0* 
6-0* 



13-8* 


13-9 


13-29* 


13-30 


13-208* 


13-252* 


13-313* 


13-539* 


13-584 


13-597* 


13-598* 


13-599 


13-619* 


13-620* 


13-632* 


13-633* 


13-686* 


13-687* 


13-694* 


13-695* 


13-702* 


13-703* 


13-715* 


13-716* 


13-763* 


1 3-766* 


13-769* 


13-770 


13-785* 


13-786* 


13-807* 


13-808* 


13-839 


13-852* 


13-855 


13-881* 


13-882* 


1 3-889* 


13-890* 


13-897* 


13-931* 


13-938* 


13-939* 


13-941 


13-955* 


13-958* 


13-961* 


1 3-964 


13-: 28 


13-:65* 


13-: 66* 


13-; 05* 


13-; 06 


13-; 16* 


13-; 17 


13-; 30* 


13-; 72* 


13-; 74 


13-; 91* 


13-; 92 


13-<11* 


13-<12* 


13-<46* 


13-<47* 


13-=38* 


13-=48* 


13-=49* 


13-=63* 


l3-=64» 


13-=86* 


13-=87* 


13-=97* 


13->52* 


13->53* 


13->62* 


13->63* 


13->79* 


1 3->80* 


13->85 


13-716* 


13-?58* 


13-759* 


13-750 


13-780* 


13-781* 


13-786 


13-ai5* 


13-ai6* 


13-377* 


13-986* 


13-987* 


13-A03* 


13-A04* 


13-A09 


13-A35* 


13-A36* 


13-A77 


13-822* 


13-823* 


13-834 


13-840* 


13-841* 


13-852 


13-C06* 


13-C60 


13-D08* 


13-D09 


13-D20 


13-D52* 


13-D53* 


1 3-D 70* 


13-D71* 


13-E46* 


13-E:47* 


13-E52 


13-E81* 


13-E82 


13-E86* 


13-F15* 


13-F16 


13-G41* 


13-G50 


13-G53* 


13-654* 


13-G55 


1 3-G68* 


13-G69* 


13-676 


13-H90 


13-H92* 


13-105* 


13-106* 


13- J 09 


13-116 


13-160* 


13-161* 


13-K13* 


13-K16 


13-K41* 


1 3-K42* 


13-K56* 


13-K57* 


13-K78* 


13-K79* 


13-L67* 


13-L68* 


13-L 72* 


13-L 73* 


13-L84* 


13-L85* 


13-f109* 


13-M10* 


13-N18* 


13-N23 


13-002* 


13-003* 


13-031* 


13-032 


13-040* 


13-041* 


13-P31* 


13-P32* 


13-P59* 


13-P601 


13-P86* 


13-P87* 


13-P88 


13-R15* 


13-S56* 


13-557* 


13-593* 


13-S94* 


13-596 


13-T34* 


13-T39* 


13-T51* 


13-U21* 


13-U49* 


13-U50* 


13-U77* 


13-U78* 


1 3-U82 


13-U84 


13-V12* 


13-V65» 


13-V76* 


13-V77* 


1 3-V97* 


13-V98* 


13-U22* 


13-W23* 


13-W25 


13-X91* 


13-yi6* 


13-Y17* 


13-Y76* 


13-y 77* 


13-Z15* 


13-Z16* 


13-Z45* 


13-C46* 


13-C68* 
13-*25* 


13-C69* 
13-*51* 


13-C70 
13-*52* 


l3-\43» 
13-*55 


13-\44* 


13-\85* 


13-\86* 


13--24* 


13-34* 


13-35* 


13-,76» 


13-a20* 


13-a35* 


13-a36* 


13-a84* 


13-a85* 


13-B06* 


13-B07* 


13-548* 


13-d07* 


13-d08* 


13-d53* 


13-d54* 


13-d84* 


13-d85* 


13-eOO* 


13-eOl* 


13-€86* 


13-f23* 


13-f24* 


13-f57* 


13-f58* 


l3-f99* 


1 3-gOO* 
13-187* 


13-g05 
13-1 88* 


13-h91* 


13-h92* 


13-i25* 


13-1 26* 


13-i58* 


13-159* 


13-k38* 


13-k39* 


13-106* 


13-107* 


13-122* 


13-125 


13-133* 


13-136 


13-fn26 


16-20* 


16-21* 


17-18* 


17-19* 


42-1 


42-3 


42-4 


25-1 


25-1 


25-1 


27-1 


27-1 


27-1 






20-1* 


20-1* 


20-1* 













23-1* 

29-1 
6-0* 
6-0 
6-0* 
9-23 

27-1 

27-1* 

27-1 

9-48 
25-1 
21-1 



23-1* 
29-1 

6-0 

9-23 
27-1 

27-1* 

9-81 
25-1 
21-1* 



23-1* 23-1* 



6-0 

9-23 
27-1 



9-142 
26-20 



6-0 

9-23 
27- U 



10-20 
26-61 



6-0 
9-23 



10-28 
26-104 



6-0 
9-23 



10-62 
26-114 



6-0 
9-23 



10-101 
26-126 



6-0 



11-25 
26-134 



13-5^9* 

13-645* 

13-723* 

13-815* 

13-898* 

13-985* 

13-; 31 

13-<48 

13-=98* 

13-717* 

13-327* 

13-A46* 

13-C07 

13-D95* 

13-F18* 

13-683 

13- J 86* 

13-K99* 

13-M27* 

13-068* 

13-R16* 

13-T52* 

13-V13* 

13-W77* 

13-Z46* 

13-318* 

13-^77* 

13-B49* 

13-e31* 

13-g95* 

13- J 44* 

13-157* 

42-5 



6-0 



11-67 
26-154 



3-550* 

3-646* 

3-724* 

3-816* 

3-910* 

3-936 

3-; 51* 

3-=n* 

3->09* 
3-725* 
3-328* 
3-A47* 
3-C16 
3-D96* 
3-F41* 
3-690 
3-J87* 
3-LOO* 
3-f128* 
3-069* 
3-R19 
3-T60* 
3-V23* 
3-W78* 
3-Z87* 
3-319* 
3-12* 
3-b52 
3-e32* 
3-g96* 
3-J45* 
3-160 
42-6 



6-0* 



14-20 
27-1 



13-570* 

13-648 

13-732* 

13-828* 

13-911* 

13-: 09* 

13-; 52* 

13-= 12* 

13->10* 

13-726* 

13-343* 

13-A56* 

13-C20 

13-E05* 

13-F42* 

13-693* 

13-192 

13-L20* 

13-M73* 

13-P01* 

13-R61* 

13-T61* 

13-V25* 

13-X27* 

13-Z88* 

13-363* 

13-- 13* 

13-C44* 

13-e47* 

13-hl4* 

13-j73* 

13-171* 

42-7 



6-0* 



23-1 
27-1 



15-571* 

13-665* 

13-733* 

1 3-829* 

13-918* 

13-:11* 

13-; 61* 

13-=27* 

13-M8* 

13-727 

13-344* 

13-A57* 

13-C48* 

13-E06* 

13-F44 

13-694* 

13-J97* 

13-L21* 

13-W74* 

13-P02* 

13-R62* 

13-T91* 

13-V43* 

13-X28* 

13-C29* 

13-364* 

13-74* 

13-C45* 

13-e55* 

13-h15* 

13-j74* 

13-193 

42-8 



6-0* 



23-1 
27-1 



13-581* 

13-666* 

13-74S* 

13-836* 

13-919* 

13-: 26* 

13-; 62* 

1 3-=28* 

13->19* 

13-743* 

13-349 

1 3-A73* 

13-C49 

13-E21* 

13-638* 

13-G97 

13-J98* 

13-L62* 

13-«77 

13-P09* 

13-505* 

13-T92* 

13-V44* 

13-X29 

13-C30* 

13--08*- 

13-75*- 

13-C60 

13-e60 

13-h39 

13-k09 

13-m14 

42-9 



6-0* 



23-1 
27-1 



C2RMPB0 RM05/5/2 DSKLS TST 1 HACRO VOA.OO 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



D 7 

4-APR-81 01:24:25 PAGE S-3 



SEO 0?89 



tODW7 

SDEVCT 

SDEVM 

SDOAGN 

SDTBL 

SENDAD 

SENDCT 

SENULL 

$ENV 

SENVM 

$EOP 

SEOPC' 

SEOSP 

lERF.G 

SERMAX 

SERROR 

SERRPC 

SERRTB 

SERTTL 

SESCAP 

tETABL 

SETENO 

SFATAL 

SFFLG 

SFILLC 

SFILLS 

SGOADR 

SGDDAT 



$GET«2 
$GK2P 
SGTSUR 
SHD 

SHI8TS 

SHIOCT 

SICNT 

SILLUP 

SINTAG 

SITEMB 



6-0# 

6-0# 

6-0# 
U-20 
21-1 

5- 5 
9-23 

K-20* 

6- 0# 
6-0# 

K-20* 

9-23* 
13-69 

6-0* 

6-0* 

9-23 

6-0* 

8-0* 

6-0* 

6-0* 

6-0* 

5- 8 

6- 0* 
31-1 

6-0* 

6-0* 

6-0* 

6-0* 
13-601* 
13-772* 
13-999* 
13-<51 
13-709* 
13-330* 
13-fi34 
13-C88* 
13-FA3* 
13-188* 
13-M31* 
1 3-P68* 
13-V17* 
13-Z50* 
13-37* 
13-359* 
13-h45* 

13- 172* 
42-7 
11-34 

14- 20 

27- 1* 

4- 678 

5- 8* 

28- 1* 

6- 0* 
30-1 

6-0* 
6-0* 



9-68* 


9-79 


9-120* 


10-63* 


10-70* 


10-97 
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13->42* 
13-I4S* 
13-P66* 

13-V33* 

24-1* 



13-V33 
1 3-U07* 
13-Y48 
13-C07* 



13-V33 
1 3-W07* 
1 3-Y48 
13-C07* 



4-978* 
9-28 



6-0 
13-557 
13- 19 
13-G20 
13-P18 
13-U58 
13-g77 

24- T 

25- 1 



24-1 

13-781* 
15-703* 
1 3-J84* 
13-010* 
l3-»/53* 
26-45 



9-23 
9-28 



4-978* 4-978* 



9-23 
13-610 
13- 77 
13-M70 
13-P39 
13HJ95 
1 3-k51 

24- 1 

25- 1 



24-1 

13-794* 
1 3-a05* 
13-K30* 
13-087* 
13-V86* 
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SEO 0292 



$TI^«S 

ITKB 

$^<CNT 

STKINT 

STKQEN 

STKQIN 

STKOOU 

STKQSR 

STKS 

$TKSRV 

STWPO 



STMPl 

$TMP2 
$TMP3 



JTP8 
$7PFLG 

trps 

STRAP 

tTRAP2 

JTRP 



STRPAD 

$Tsr« 

STSTMI 
tTTYlM 



6-0# 
6-0* 

27-1 
10-4 
27-1 
27-1 
27-1 
27-1 

6-0# 
27-1 

6-0# 
13-D51* 
1 3-S98* 
13-L64 

6-0# 
10-76 

6-0# 

6-0* 

6-0* 

A-668* 
13-137 
13-521 
1 3-677 
1 3-86A 
13-:77 
13-<03 
■'3->42 
13-366 
13-C78 
13-E64 
13-K5 
13-K6A 
13-NAO 
13-048 
13-P66 
13-R35 
13-729 
13-T99 
13-V33 
13-W07 
13-Y48 
13-C07 
24-1 

6-0* 

6-0* 

6-0* 

9-23 
29-1 
29-1 
29-1 
29-1 
29-1 
29-1* 
29-1 * 

5- 8* 

6- 0* 
27-1 



9-23* 


11-47* 


14-20* 


24-1 


24-1 


24-1 


24-1* 


24-1* 






23-1 


23-1 


27-1 


27-1 


27-1 


27-1 


27-1 


27-1 


27-1 




27-1 


27-1* 


27-1* 


27-1* 


2'-l* 












11-48 


27-1 


27-1 


27-1* 














27-1 


27-Mt 


















27-1 


27-1* 


27-1* 


27-1* 


27-1* 


27-1* 










?7-1 


27-1* 


27-1* 


27-1* 


27-1* 












27-1 


27-1 


27-1* 
















23-1 


23-1 


27-1 


27-1 


27-1 


27-1 


27-1 


27-1* 


27-1* 


27-1* 


27-1* 




















13-<50» 


l3-=66* 


13-=67* 


13->26* 


13->88* 


1 3-?90* 


13-351* 


1 3-Al 1 * 


1 3-A80* 


1 3-836* 


13-E24* 


13-E54* 


13-F 30* 


13-J73* 


13-K18* 


1 3-M30* 


13-181 » 


13-N25* 


13-P93* 


13-R23* 


13-733* 


13-737 


13-U76* 


13-U80 


13-W27* 


13-W83* 


13-X34* 


13-Y25* 


13-125* 


13-128* 


16-28» 


42-5 


42-7 


42-8 














10-13* 


10-14 


10-16 


10-36* 


10-38 


10-42 


10-50* 


10-52 


10-56 


10-66* 


10-78 


10-83* 


10-84 


10-87 


10-88 


10-90 


10-95 


13-819* 


13-E25* 


13-E55* 



4-678 
13-137 
13-521* 
13-677 
1 3-864* 
13-: 77 
13-<03* 
13->42 
13-966* 
13-C78 
13-E64* 
13-145 
13-K64* 
13-N40 
13-048* 
13-P66 
13-R35* 
13-729 
13-799* 
13-V33 
1 3-W07* 
13-Y48 
13-C07* 
24-1 
23-1 
23-1 
23-1 
29-1* 
29-1* 
29-1 
29-1 
29-1 
29-1 
29-1* 
29-1* 

n-46* 
27-1 



13-1 

13-137 

13-546 

13-677 

13-973 

13-:77 

13-=02 

13->42 

13-A26 

13-C78 

13-E99 

13-145 

13-L96 

13-N40 

13-074 

13-P66 

13-R85 

13-729 

13-U28 

13-V33 

13-W56 

13-Y48 

13-C75 

23-1 
23-1 
23-1 



13-1 

13-137* 

13-546 

13-677* 

13-973 

13-: 77* 

13-=02 

13->42* 

1 3-A26 

13-C78* 

13-E99 

13-145* 

13-L96 

13-N40* 

13-074 

13-P66* 

13-R85 

13-729* 

13-U28 

13-V33* 

13-W56 

13-Y48* 

13-C75 

23-1* 

23-1 

23-1 



13-1 

13-159 

13-546 

13-781 

13-973 

l3-:97 

13-=02 

13-703 

13-A26 

13-D31 

13-E99 

13- J 84 

13-L96 

13-N79 

13-074 

13-010 

13-R85 

13-747 

13-U28 

13-V53 

13-W56 

13-\10 

13-C75 



13-1* 

13-159 

13-546* 

13-781 

13-973* 

13-: 97 

13-=02# 

13-703 

13-A26* 

13-D31 

13-E99* 

13- J 84 

13-L96* 

13-N79 

13-074* 

13-010 

13-R85# 

13-T47 

13-U28* 

13-V53 

13-W56* 

13-\10 

13-C75* 



13-73 

13-159 

13-557 

13-781 

13-996 

13-:97 

13-=19 

13-703 

13-808 

13-031 

13-620 

13-J84 

13-«56 

13-N79 

13-P18 

13-010 

13-S22 

13-T47 

13-U58 

13-V53 

13-XOl 

13-\10 

13-g77 



13-73 

13-159* 

13-557 

13-781* 

13-996 

13-: 97* 

13-=19 

13-703* 

13-808 

13-031* 

13-620 

13-J84* 

13-M56 

13-N79* 

13-P18 

13-010* 

13-S22 

13-T47# 

13-U58 

13-V53* 

13-XOl 

13-\10* 

i3-g77 



13-73 

13-329 

13-557 

13-794 

13-996 

13-;41 

13-=19 

13-a05 

13-808 

13-D84 

13-620 

13-K30 

13-f156 

13-009 

13-P18 

13-087 

13-S22 

13-770 

13-U58 

13-V86 

13-XOl 

13- 01 

l3-g77 



13-73* 

13-329 

13-557* 

13-794 

13-996* 

13-; 41 

13-=19* 

13-a05 

13-808* 

13-D84 

13-620* 

13-K30 

13-fl56* 

13-009 

13-P18* 

13-087 

13-S22* 

13-T70 

13-U58* 

13-V86 

13-XOl* 

13- 01 

13-g77* 



13-106 
13-329 
13-610 
13-794 
13-:49 
13-; 41 
13-=77 
13-a05 
13-876 
13-084 
13-H70 
13-K30 
13-W2 
13-009 
13-P39 
13-087 
13-572 
13-T70 
13-U95 
13-V86 
13-X71 
13- 01 
13-C51 



27-1* 



27-1' 



13-854* 13-898* 
1 3-R67« 1 3-S1 1 * 
13-129 13-160* 



10-67 
13-X35* 



13-106 

13-329* 

13-610 

13-794* 

l3-:49 

13-;41* 

13-=77 

13-305* 

13-876 

13-D84* 

13-H70 

13-K30* 

13-W2 

13-009* 

13-P39 

13-087* 

13-572 

13-T70* 

13-U95 

13-V86* 

13-X71 

13- 01* 

13-C51 



10-73 
42-8 



13-106 
13-521 
13-610 
13-864 
13-:49 
13-<03 
13-=77 
13-366 
13-876 
13-E64 
13-H70 
13-K64 
13-M92 
13-048 
13-P39 
13-R35 
13-572 
13-T99 
13-U95 
13-U07 
13-X71 
13-C07 
13-k51 



27-T 

1 3-C99* 
13-536* 
13-163* 

10-75 



15-106^ 

13-521 

13-610^ 

13-864 

13-: 49* 

13-<u3 

13-= 77* 

13-366 

13-876# 

13-E64 

15-H70* 

13-K64 

13-«92# 

13-048 

13-P39* 

13-R35 

13-S72* 

13-T99 

13-U95* 

13-U07 

13-X71* 

13-C07 

13-k51* 



29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-: 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1 


29-1* 


29-1* 


29-1* 


29-''* 


29-1* 


29-1* 


29-1* 


29-1* 


29-1* 


29-1* 


29-1* 


29-1* 










14-20* 


24-1 


24-1 


24-1 


24-1 


24-1 


24-1* 


24-1* 


25-1 


25-'' 


?S-^ 




27-1 


27-1 


27-1 


27-1* 
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ITYF>BN 
tTYPDS 
ITvPE 
tTYPEC 

tryPEx 

STYPOC 

$TVPON 

STYPOS 

tUNlT 

lUNITM 

SUSWR 

SVECTI 

tVECT2 

tXOFF 

IXTSTR 
.lASTA 

.tx 

A-ib 

A17 

ABASE 

AC0W1 

AC0W2 

ACPUOP 

AOOUG 

ADDU1 

ADDU10 

ADDW1 1 

ADDW12 

ADDW1 3 

ADD'VU 

ADDW1 5 

ADDy2 

A0DW3 

AODU^ 

AD0W5 

ADDW6 

AD0U7 

A0DW8 

A0DU9 

ADEVCT 

ADEVM 

ADR 



20- 1 # 

21- 1# 
23-1* 
23-1 
?3-l 

22- 1# 
22-1 

22- 1* 
6-0* 

5- 3* 

6- 0* 
6-0* 
6-0* 

23- 1 
23-1 
2A-1* 
31-1 

5- 8 

A-92<.# 
4-923* 
4-975* 

6- 0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 

13-1 

13-159* 

13-610* 

1 3-973 

13-: 97* 

13- 77* 

1 3-A26 

13-D31* 

13-H70* 

13-L96 

13-N79* 

13-P39* 

1 3-R85 

13-T47* 

1 3-U95* 



29-1 

29-1 

29-1 

23-1 

23-1 

29-1 

22-1* 

29-1 

11-50* 



10-46 

23-1 
25-1 

31-1 

5- 8* 
13-<85 
15-<85 

6- 0 
6-0 
6-0 
6-0 
6-0 
6-0 



6-0 
6-0 
6-0 
6-0 
6-0 
6-0 



6-0 

6-0 
13-1* 
13-329 
13-610;fr 
13-973* 
13-; 41 
13-= 77* 
13-A26* 
13-D84 
13-H70* 
13-L96* 
13-009 
13-P39* 
13-R85* 
13-T70 
1 3-U95* 



29-1 

29-1 

29-1 

23-1 

23-1* 

29-1 

29-1 



13-1* 

1 3-329* 

13-677 

13-973* 

13-; 41* 

13->42 

13-A26^ 

13-D84* 

13-J45 

13-L96* 

13-009* 

1 3-P66 

1 3-R85* 

13-T70* 

13-V35 



31-1 
23-1* 



11-69 26-22 

10-56* 

27-1 



6-0 



13-73 

13-329* 

1 3-677* 

13-996 

13-;41* 

l3->42* 

13-808 

13-D84* 

13-145* 

13-M56 

13-009* 

13-P66* 

13-322 

13-T70* 

13-^/53* 



27-1 



1 3-73/y 

13-521 

1 3-677* 

13-996* 

13-<03 

13->42* 

13-808* 

13-E64 

13-145* 

13-M56A 

13-048 

13-P66* 

13-522* 

13-T99 

13-V33* 



13-73* 

13-521* 

13-781 

13-996>i' 

13-<03>» 

13-703 

13-808* 

13-E64* 

13-J84 

13-ri56>l' 

13-048* 

13-010 

13-S22* 

I3-T99* 

13-V53 



13-106 

13-521* 

13-781* 

13-: 49 

1 3-<03* 

•3-703* 

13-876 

13-E64* 

13-J84* 

13-M92 

13-048* 

13-Q10* 

13-S72 

13-199* 

15-V53* 



13-106* 

13-546 

13-781* 

13-: 49* 

13-=02 

13-703* 

13-876* 

13-E99 

13-J84* 

1 3-M92* 

13-074 

13-QlO* 

13-S 72* 

13-U28 

13-V53* 



13-106* 

13-546* 

13-794 

13-: 49* 

13-=02* 

13-a05 

13-876* 

13-E99* 

13-K30 

13-M92* 

13-074* 

13-087 

13-S 72* 

13-U28* 

1 3-V86 



13-137 

13-546* 

1 3-794* 

13-:77 

13-=02# 

13-aC5* 

i;-C78 

13-E99* 

13-K30* 

13-N40 

13-074* 

13-Q87* 

13-T29 

1 3-U28* 

1 3-V86* 



13-137* 

13-557 

1 3-794* 

13-: 77* 

13-=19 

13-a05# 

13-C78* 

13-G20 

13-K30* 

13-N40* 

13-P18 

13-087* 

13-T29* 

1 3-U58 

13-V86* 



13-137* 

13-557* 

13-864 

13-: 77* 

13—19* 

13-a66 

13-C78* 

13-G20* 

13-K64 

1 3-N40* 

13-P18* 

13-R35 

13-T29* 

13-U58* 

13-W07 



13-159 

13-557* 

13-864* 

13-:97 

13-=19* 

13-a66# 

13-D31 

13-620* 

13-K64* 

13-N79 

13-P18# 

13-R35* 

13-T47 

13-U58ir 

13-W07* 



13-159# 

13-610 

13-864* 

13-:97« 

13-- 77 

13-«66« 

13-031* 

13-H70 

13-K64* 

13-N794 

1 3-P39 

1 3-R354 

13-T474 

13-U95 

13-W074 
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AENV 

AENVM 

AFATAL 

ALL 

AMADR1 

AWADR2 

AMADR3 

AMADRA 

AMAHS 1 

AMAMS2 

AnAMS3 

AMAMS4 

AHSGAD 

AMSGLG 

AMSGTY 

AMTYPl 

AMTYP2 

AMTYP3 

AMTYP4 

AOE 

APASS 

APE 

APRIOR 
APTCSU 
APTENV 
APTSIZ 
APTSPO 
ASUREG 
ATA 



ATESTN 
ATNnSK 

ATNTBL 

AUNIT 

AUSUR 

AUTSIZ 

A*/ECT1 

AVECT2 

BADTMO 

BAI 

6800 

BB01 

8802 

8803 

8804 

BB05 

8806 

BB07 

BB08 

8809 

BITO 



1 5-U56 

15-\10# 

l3-k51# 

6-0 

6-0 

6-0 
10-69 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

4-770* 

6-0 

4-95 3# 

6-0 
23-1 
23-1 

9-23 
23-1 

6-0 

4-750* 
13-Z90 
33-71 

6-0 

4-787* 

9-79 

6-0 

6- 0 

7- 0* 
4-976* 
6-0 
9-3* 
4-942* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-871* 
4-682* 

1 3-893 
' 3-A39 



1 3-W56* 

13-01 

i3-ir5i* 

6-0 
6-0 
6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

4-781 

6-0 



31-1* 
25-1 
31-1* 
31-1 

6-0 
13-V13 
13-J64 
33-72 

6-0 
13-V08 

9-120 

6-0 

6-0 

9-65* 

6-0 

6-0 

9-;»5 



13-183 
13-179 



13-C94 



l.Wll 
1 5-901 
1 3-A50 



13-W56* 13-XOI 13-XOI* 13-X01* 13-X71 13-X7U 13-X^1* 13-^48 
13- 01* 13- 01* 13-C07 13-C07* 13-c07# 13-c75 13-c/S* 13-c75* 



13-/48* 
13-g77 



13-y48* 
13-q77* 



13-\10 
1 3-q77* 



1 5-^ H# 
1 3-1' 51 



13-695 13-724 13-N20 13-S57 13-S61 33-77 33-78 33-81 



31-1 

31-1* 

13-V44 
13-D66 
33-73 

10-97 



9-118 
6-0 



13-182 
13-C95 



13-529 
13-914 
13-189 



33-82 



33-85 33-86 



31-1* 



13-V65 
13- 75 
33-74 



1 3-V69 
13-77 
33-75 



13-V77 

33-58 

33-76 



13-V81 13-V98 13-UOO 13-W23 
33-59 33-60 33-63 33-64 
33-79 33-80 33-83 33-84 



13-U46 

33-67 

33-87 



13-W78 

33-68 

33-88 



13-U82 
33-69 



13-Z88 
33-70 



n-17 13-V07 34-3* 



10-1 00* 



13-C96 13-C97 13-C98 13-C99 13-\00 13-\01 13-\02 13-\03 



13-531 
13-922 



13-534 
13-934 



13-536 
13-; 12 



15-575 
13-; 55 



13-639 
13-; 65 



13-722 
i3-=42 



13-730 
13-=91 



15-811 
13->S6 



13-819 
13-?20 



13-852 
i3-a20 



13-88S 
13-d81 
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BITOO 

BIT01 
8IT02 
BIT03 
BIT04 
BIT05 
BIT06 
BIT07 
BIT08 
Bn09 

BIT! 

BITIO 

BIT11 

B1T12 

BIT13 

BITK 

BIT15 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

9IT7 

BITS 

BIT9 

BLNKSl 

BLNKS2 

8LNKS3 

BLWSA 

BOTADR 

BOTFLG 

BPTVEC 

BSE 

BUFFER 
BUFONE 
BUF TWO 

cr 



CH 



CHGADR 
CHRCNT 
CKSWR 
CLOCK 

CLR 

cms J A 

CNSLOI 
CNSL02 
CNSL03 



A-682 
25-1 
A-682 
4-682 
4-682 
4-682 
4-682 
4-682 
4-682 
4-682 
4-682 

25- 1 
4-682# 

1 3->67 
4-682* 
4-682# 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 

32-35* 
9-134 
32-33* 

9- 83 

26- 81 • 
26-62* 

4-682* 

4-875* 
13-S40 
43-2* 
43-3* 

4-867* 
1 3-*88 
1 3-b93 
13-m51 

4-868* 
1 3-g40 
13-ffl58 
13-ni94 

7-0* 
26-63* 
24-1 

7-0* 
15-27» 

4-940* 

9-143 

10- 32 
10-40 
10-44 



4-682* 4-694 



4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 
4-682* 

13-255 
13-749 
4-733 
4-688 
4-731 
4-752 
4-751 
4-750 



9-72 



10-34 

32-32* 
26-99* 
26-109* 



13-t94 
13-*89 
13-b97 
13-ffl52 
13-C94 
l3-g41 
13-m59 
13-fn95 

9-14* 
26-86* 
25-1 
13-K49 
15-39* 

9-85 
11-2* 
32-8* 
32-9* 
32-10* 



4-693 
4-692 
4-691 
4-690 
4-689 
4-759 
4-758 
4-735 
4-734 

13-534 
1 3-a31 
4-755 
4-732 
4-753 
4-766 
4-765 
4-764 



10-48 



26-102 
26-112 



13-k64 43-1* 



13-C95 
13-*90 
13-e59 
13-m53 
13-C95 
13-g43 
13-m60 
l3-fn96 
9-17* 
26-92* 
25-1 
13-P84 

11-57 



4-742 

4-741 
4-740 
4-739 
4-738 
4-774 
4-773 
4-772 
4-757 
4-756 

13-536 
13-a91 
4-769 
4-754 
4-767 
4-804 
4-803 
4-802 



32-34* 



26-1 1 7 
26-115* 



43-5 



13-C96 
13--91 
13-128 
l3-fn54 
13-C96 
13-g44 
13-ffl61 

10-25 
26-93 
29-1* 
13-yi5 

16-10 



4-760 

4-778 
4-777 
4-776 
4-775 
4-812 
4-795 
4-794 
4-771 
4-770 

13-587 
13-A61 
4-791 
4-768 
4-805 
4-821 
4-820 
4-819 



26-161* 
26-162* 



13-C97 
13--92 
13-129 
13-ffl55 
13-C97 
l3-g45 
13-ffl6'' 

10-27* 
26-96 « 

13-C59 



4-779 


4-816 


4-834 


4-871 


4-945 


4-963 


24-1 


24-1 


25-1 


4-815 


4-833 


4-871 


4-945 


4-962 










4-814 


4-832 


4-871 


4-945 


4-961 










4-813 


4-831 


4-871 


4-882 


4-942 


4-960 








4-830 


4-871 


4-941 














4-0t:V 


/ _fl71 
S-Of 1 






4-939 


4-959 








4-811 


4-828 


4-871 


4-926 








4-0 1 U 




H— O JC 


Z,.fl71 
*• Of 1 


H— 00 • 










4-793 


4-809 


4-826 


4-871 


4-924 


4-937 


24-1 




25-1 


4-792 


4-808 


4-825 


4-871 


4-923 


4-936 


24-1 


24-1 


13-653 


13-752 


13-842 


1 3-944 


13-; 23 


13-; 77 


l3-=53 


13-=60 


13->02 


4-807 


4-824 


4-851 


4-868 


4-880 


4-922 


4-935 


4-958 


25-1 


4-806 


4-8?3 


4-842 


4-850 


4-867 


4-879 


4-934 


4-957 


24-1 


4-822 


4-849 


4-866 


4-878 


4-933 


4-956 








4-841 


4-865 


4-877 


4-921 


4-932 


4-955 


25-1 






4-840 


4-864 


4-876 


4-888 


4-920 


4-931 


4-954 


24-1 




4-839 


4-863 


4-875 


4-887 


4-919 


4-930 


4-953 







13-C98 
l3-*93 
13-163 
l3-ffl56 
13-C98 
13-g46 
13-ni63 



26-100 
13-e84 



13-C99 
13--94 
13-164 
l3-fn90 
13-C99 
13-g50 
13-m64 



26-105* 
13-f56 



13-\00 
13-b85 
13-175 
13-fB91 
13-\00 
13-128 
13-m65 



26-116* 
1 3-g94 



13-\01 
13-b86 
13-ffl22 
13-fn92 
13-\01 
13-129 
13-.T»66 



26-163* 
13-h38 



13-\02 
13-b87 
13-fl»23 
l3-ffl93 
13-\02 
13-163 
13-m67 



13-\03 
13-b88 
13-in47 
13-fl«9A 

13-\03 
13-164 
13-fn90 



13--85 
13-b90 
13-«48 
13-ffl95 
13-e55 
13-173 
13-fn91 



i3-*86 
13-b91 
13-m49 
13-m96 
13-g38 
13-ffl22 
15-ffl92 



13-*87 
13-b92 
13-fli50 

13-g39 
13-m25 
13-ii»93 



^3-124 13-i86 13-j72 13-lOS i5-^3* 



rZRMP60 RM05/3/^ DSKLS TST 1 MACRO V04.00 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



K 7 

4-APR-81 01:24:25 PAGE S-10 



SEO 0296 



CNSLOA 
CNSL07 
CNSL08 
CNSL09 
CNTCLR 



COMMA 
CONT 
CPSAVE 
CR 

CRLF 



CrLMSK 
DBCK 



DBEN 



10-54 

10-61 

10-92 

32-1 5# 

13-7 

13-466 

13-:60 

13-617 

13-J92 

1?-V89 

10-86 

4-828* 
24-1 

4-682* 

40- 154 
4-682* 

32-9 

41- 12 
43-13 
43-27 
43-41 
43-55 
43-69 
43-83 
43-97 
43-111 

4-857* 
4-802* 
13-025 
13-Y70' 
13-J12 
13-68 
1 3-d03 
13-h64 
13-195 
4-803* 
13-F09 
13-K11 
13-M70 
13-062 
13-R10 
13-U67 
13-Y68 
. 3-Z70 
13-C61 
13-\82 
13-J97 
13- 29 
13-'50 
13-a27 
13-b03 
13-C43 
13-d51 
13-f03 
13-q07 
13-h81 
13- J 09 



32-"' 1* 
32-12* 
32-14* 

13-28 

13-482 

13-: 79 

13-692 

13-IC36 

13-W13 

11-6 

13-161 

24-1 

10-73 

40- 155 
9-6 

32-11 

41- 14 
43-14 
43-28 
43-42 
43-56 
43-70 
43-84 
43-98 
43-112 
13-80 
13-F35 
13-062 
13-Z01 
13-J45 
13-a02 
l3-d33 
13-h71 
13-fn28 

4-835 
13-F35 
13-K38 
13-N03 
13-063 
13-R51 
13-U70 
13-y70 
13-Z75 
13-C85 
13-J02 
13-*02 
13- 52 
13-'55 
13-a31 
13-b24 
13-C58 
13-d52 
13-f04 
13-Q08 
13-h82 
13-i10 



13-75 

13-497 

13-; 00 

13-C36 

13-L54 

13-X89 

11-14 

13-187 

24-1 

10-84 

40- 156 
9-28 

32-12 

41- 16 
43-15 
43-29 
43-43 
43-57 
43-71 
43-85 
43-99 



13-G66 
13-095 
13-Z11 
13-D57 
13-a13 
13-d43 
13-h81 

13-699 
13-F36 
13-K74 
13-N11 
13-092 
13-R55 
13-U71 
13-y71 
13-Z76 
13-C86 
13-J12 
13-*03 
13- 62 
13-'56 
13-a32 
13-b40 
13-C84 
13-d69 
13-f09 
13-Q86 
13-h89 
13-jl4 



13-108 

13-548 

13-; 44 

13-C87 

13-M04 

16-14 

32-6* 

13-191 

24-1* 

23-1 

40- 157 
9-28 

32-13 

41- 18 
43-16 
43-30 
43-44 
43-58 
43-72 
43-86 
43-100 



13-103 
13-G34 
13-Z39 
13-J91 
13-a31 
13-d69 
13-140 

13-C04 
13-G29 
13-K75 
13-N12 
13-095 
13-R56 
13-V39 
l3-y93 
13-Z81 
13-\20 
13-J13 
13-*16 
13- 63 
13-'62 
13-a52 
13-641 
13-C93 
13-d70 
13-fl3 
13-hlO 
13-h90 
13-jl5 



13-116 
13-559 
13-<10 
13-C97 
13-N43 
18-8* 



24-1* 
23-1 
/.0-158 
9-42 
32-14 
41-20 
43-17 
43-31 
43-45 
43-59 
43-73 
43-87 
43-101 



13-184 
13-R09 
13-Z69 
13-*02 
13-a61 
13-d96 
13-152 

13-C05 
13-666 
13-K95 
13-N45 
13-096 
13-R96 
13-W65 
13-ZOl 
13-Z82 
13-\29 
13-336 
13-*20 
13- 68 
13-'63 
13-a61 
13-b66 
13-C94 
13-d77 
13-fl4 
13-hl1 
13-i18 
13-j20 



13-139 
13-613 
13-=04 
13-D47 
13-N86 



25- 1 

26- 84 

40- 158 
9-53 

32-15 

41- 22 
43-18 
43-32 
43-46 
43-60 
43-74 
43-88 
43-102 



13-KlO 
13-R55 
13-Z81 
13-*20 
13-a76 
13-e25 
13-j02 

13-C40 
13-667 
13-K96 
13-N58 
13-P55 
13-R99 
13-U71 
13-Z02 
13-C04 
13-\30 
13-345 
13-*21 
13-^72 
13-'64 
13-a62 
13-667 
13-C99 
l3-d78 
13-f21 
13-h30 
13-140 
13-j24 



13-162 
13-618 
13- 10 
13-086 
13-014 



25-1 
40-98 

40- 159 
9-59 

32-16 

41- 25 
4 3-19 
43-33 
43-47 
43-61 
43-75 
43-89 
43-103 



13-K74 
13-R99 
13-C12 
13-*69 
l3-a87 
13-«43 
13-jU 

13-C44 
13-H79 
13-L16 
13-N59 
13-P57 
13-SOO 
13-W72 
13-207 
13-C12 
13-\35 
13-346 
13-*42 
13- 73 
13-'68 
l3-a68 
15-C14 
13-d03 
13-d96 
13-f22 
13-h54 
13-141 
13-j25 



13-212 
13-684 
13-=26 
13-E16 
13-P75 



25-1 

40- 147 

9-60 
32-18 

41- 27 
43-20 
43-34 
43-48 
43-62 
43-76 
43-90 
43-104 



13-K95 
13-S46 
13-C23 
13-^20 
13-B02 
13-f03 
13- J 24 

13-C45 
13-103 
13-L17 
13-N88 
13-P58 
13-S34 
13-Xll 
13-711 
13-C13 
13-\37 
13-351 
l3-*69 
13- 96 
13-"69 
13-a71 
13-C23 
13-d04 
13-d97 
l3-t48 
13-h55 
13-147 
13-j30 



13-260 
13-761 
13-=79 
13-E40 
'.3-S80 



25-1 

40- 148 

11-30 
32-20 

41- 29 
43-21 
43-35 
43-49 
43-63 
43-77 
43-91 
43-105 



13-L16 
13-U70 
13-C41 
13-28 
13-B40 
13-f13 
13-j34 

13-D02 
13-104 
13-L56 
13-N96 
13-P77 
13-S46 
13-y05 
13-Z12 
13-C18 
13-\38 
15-352 
13-* 70 
13-06 
13-92 
13-a76 
13-C24 
13-d24 
13-el6 
13-t72 
1 3-h60 
13-i48 
13-) 34 



13-367 
13-783 
13->48 
13-E71 
13-T3? 



25-1 

40- 149 

23-1 

41- 1 
43-8 
43-22 
43-36 
43-50 
43-64 
43-78 
43-92 
43-106 



13-«23 
13-U71 
13-C85 
13-62 
13-566 
13-f 72 
13-j88 

13-D06 
13-155 
13-W6 
13-N97 
13-024 
13-S47 
13-y08 
13-Z31 
13-C23 
13-\61 
13-357 
13-Jl 
13-'07 
l3-a02 
13-a77 
13-C29 
13-d33 
13-e25 
13-f 73 
13-h64 
13-i52 
l3-j35 



1 3-383 
1 3-876 
13-705 
:3-F07 
13-T50 



25-1* 

40- 150 

23-1 

41- 3 
43-9 
43-23 
43-37 
43-51 
43-65 
43-79 
43-93 
43-107 



13-«69 
13-X19 
13-\29 
13- 72 
13-C23 
13-f 90 
13-j99 

13-D07 
13-184 
13-H23 
13-016 
13-034 
13-552 
13-y09 
13-Z39 
13-C24 
13-\71 
li-358 
13- 20 
13-'31 
13-a03 
l3-a87 
13-C30 
13-d34 
13-e26 
13-t78 
13-h65 
13- -53 
13-j42 



1 3-405 
1 3-952 
13-a07 
13-627 
13-U98 



25-1- 

40- 151 

32-4 

41- 5 
43-": 0 
43-24 
43-38 
43-52 
43-66 
43-80 
43-94 
43-108 



13-N11 
13-X21 
13-\37 
13-06 
13-C34 
13-g07 
13-k07 

'3-D68 
.3-185 
13-1124 

13-025 
13-035 
13-353 
13-Y55 
13-Z40 
13-C37 
13-\72 
13-381 
13- 21 
13-'40 
13-a08 
l3-a88 
13-C34 
13-d39 
13-e43 
l3-t79 
l3-h71 
13-i80 
13-j43 



1 3-427 
13-975 
13-968 
13-H77 
13-V35 



25-1- 

40- 152 

32-7 

41- 8 
43-11 
43-25 
43-39 
43-53 
43-67 
43-81 
43-95 
43-109 



13-N58 
13-y08 
13-\71 
13-40 
13-C42 
13-hlO 
13-k26 

13-069 
13-J94 
13-M65 
13-026 
13-R02 
13-S82 
13-y62 
13-Z62 
13-C41 
13-\77 
13-391 
13- 26 
13-"41 
1 3-a1 3 
13-a98 
13-C35 
13-d43 
13-e44 
15-t90 
13-h72 
13-102 
13-)64 



1 3-444 
13-:08 
1 3-A34 
13-153 
13-V56 



26-180 

40- 153 

32-8 

41- 10 
43-12 
43-26 
43-40 
43-54 
43-68 
43-82 
43-96 
43-110 



13-N96 
13-y62 
13-\81 
13-55 
13-C93 
13-h5^ 
13-139 

13-E73 
13HC10 
13-«69 
13-059 
13-«09 
13-590 
13-y63 
1 3-Z69 
13-C42 
13-\81 
13-392 
13- 26 
13-'47 
13-a14 
13-b02 
13-L42 
1 3-d44 
13-e76 
13-t91 
1 3-h77 
13-103 
13-)88 



I _ 
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DBL 

DQK 

DDISP 

DEBL 

DISPLA 

DISPRE 

DLT 



DPE 

DPEHl 

DPELO 

DPR 

DRIVES 

DRQ 

DRVCLR 
DRY 
DSWR 
DTE 

DULPRT 
DVA 

DVC 
EBL 

ECH 
ECl 
ECRC 



13-i89 
13-15? 
/.-9S8# 
4-764# 

4- 682* 
A-804# 
6-0# 

5- U 
A-930# 
4-816# 

13-=% 
13-7A2 
13-385 
13-693 
1 3-D69 
1 3-H78 
1 3-tc55 
13-f169 
13-016 
:3-Q2A 
13-S47 
13-V63 
13-Y68 
13-Z70 
13-C61 
13-\82 
13-J97 
13- 29 
13-'50 
13-a27 
13-b03 
13-CA3 
13-d51 
13-f03 
13-g07 
13-h81 
13-j09 
13-i89 
13-152 
4-882* 
4-954* 
4-955* 
4-757* 
11-3 
4-842* 
4-702* 
4-758* 
4-682* 
4-767* 
4-845* 
4-688* 
4-881* 
4-821* 
13-j45 
4-773* 
4-850* 
4-825* 



15-; 95 
13-t53 

4-781 
6-0 
13-A44 
9-23* 
9-23 

4-834* 

13->16 
13-777 
13-A01 
13-B99 
13-092 
13-H79 
13-JC74 
13-M70 
13-025 
13-034 
13-S52 
13-V75 
13-Y70 
13-Z75 
13-C85 
13-J02 
13-*02 
13-,52 
13-'55 
13-a31 
13-b24 
13-C58 
13-d52 
13-f04 
13-q08 
13-h82 
13-i10 
13-J95 
13-L53 
13-898 



13-j99 
13-195 

1 3-695 
9-23 

13-A55 
9-23* 



4-835 
13->32 
13-795 
13-A16 
13-CO** 
13-E17 
13-103 
13-K75 
13-N03 
13-026 
13-035 
13-S53 
13-V90 
13-Y71 
13-Z76 
13-C86 
13-J12 
13-*03 
13- 62 
13-"'56 
13-a32 
13-b40 
13-C84 
13-d69 
13-f09 
13-q86 
13-h89 
13-jl4 
13- J 99 
13-195 
13-919 



13-kOO 
13-196 

13-724 

13-C04 
24-1 • 



13-144 
13->34 
13-797 
13-A18 
13-C05 
13-E41 
13- J 04 
13-K95 
13-N11 
13-059 
13-R02 
13-S81 
13-W14 
13-Y93 
13-Z81 
13-\20 
13-313 
13-*16 
13- 63 
13-'62 
13-a52 
13-541 
13-C93 
13-d70 
13-fl3 
13-hlO 
13-h90 
13-115 
13-kOO 
13-196 
13-:15 



13-k07 
13-m09 



^-C44 
25 



3-154 
3->37 

3-aoo 

3-A21 
3-C39 
3-E 72 
3-154 
3-K96 
3-N12 
3-062 
3-R09 
3-S82 
3-W65 
3-ZOl 
3-Z82 
3-\29 
3-336 
3-*20 
3- 68 
3-'63 
3-a61 
3-b66 
3-c94 
3-d77 
3-fl4 
3-hll 
3-118 
3-120 
3-k07 
3-fn09 



13-k08 
13-m10 



13-k22 
1 3-m28 



13-k26 
1 3-m29 



13-k27 13-k34 1?-k?5 13-k99 



SEO 0297 
13-139 15-140 



13-D06 15-D68 15-P57 15-552 



5-=23 

5->51 

3-ai3 

3-A43 

3-C40 

5-E75 

5-J55 

5-Ll<S 

5-N44 

5-065 

5-R10 

5-S90 

3-W71 

3-Z02 

3-t04 

3-\30 

3-345 

3-*21 

3-^72 

3-'64 

3-a62 

3-b67 

3-C99 

3-d78 

3-f21 

3-h30 

3-140 

3- 124 

3-k08 

3-ffllO 



15-=55 
1 5->60 
1 5-S24 
15-A44 
15-C44 
15-F08 
15-J84 
15-L17 
15-N45 
1 5-092 
15-R51 
15-U67 
13-W72 
13-207 
13-C12 
13-\35 
13-346 
13--42 
15-^75 
15-'68 
13-a68 
13-C14 
15-d05 
15-d96 
15-f22 
15-h54 
15-141 
13-i25 
13-k22 
13-in28 



15-=58 

15->61 

15-326 

15-A45 

15-C45 

15-F09 

15-185 

15-L55 

15-N58 

15-095 

15-R55 

15-U70 

13-Xll 

13-Z11 

15-C13 

13-\57 

15-351 

15-*69 

15- 96 

15-'69 

15-a71 

15-C25 

15-d04 

15-d97 

15-f48 

15-h55 

13-i47 

13-i30 

13-k26 

13-ffl29 



15-T61 


13-T63 












52-16* 














15-T57 


13-U80 












15-F67 


15- J 50 












15-G52 


15-G54 


13-689 


15-G94 








6-0 


9-25 












4-781 


15-705 


13-733 










15-526 


13-551 


13-536 










9-90 


13-550 


13-552 


13-T52 


13-T54 






15-152 


15-959 


13-961 


13-717 


13-740 


13-744 


13-781 


15-A56 


15-A47 


13-A57 


13-A59 


13-A74 


1 3-A76 


13-d54 


15-j50 


15-k59 


15-k44 










4-781 


1 3-695 


15-724 


55-77 


55-78 


33-85 


35-86 



15-=47 

13->77 

1 5-940 

15-A54 

15-D01 

15-F55 

15-J95 

15-L56 

15-N59 

15-096 

15-R56 

15-U71 

15-Y05 

13-212 

15-C18 

13-\38 

15-352 

15-*70 

15-06 

15-92 

15-a76 

15-C24 

15-d24 

15-el6 

15-f72 

15-h60 

15- 148 
13-134 
13-k27 

16- 15 



13-=49 
1 5->95 
15-956 
1 5-A55 
15-D02 
15-F56 
15- J 94 
15-M05 
15-N87 
15-P55 
15-R96 
15-U99 
15-Y08 
13-231 
15-C25 
15-\61 
15-357 
15- 11 
15-''07 
15-a02 
15-a77 
15-C29 
15-d55 
15-e25 
15-f75 
15-h64 

15- i52 
13-i35 
13-k34 

16- 16 



13-=51 

1 5->95 

15-958 

15-A71 

1 5-D06 

15-628 

15-KlO 

15-W6 

15-N88 

15-P57 

15-R99 

15-V02 

15-y09 

13-239 

15-C24 

15-\71 

15-358 

15- 20 

15-''51 

15-a05 

15-a87 

15-C50 

15-d34 

13-e26 

15-f78 

15-h65 

15-i55 

15-j42 

13-k35 

17-14 



13-=64 

13->98 

15-961 

15-AS5 

15-007 

15-G29 

15-Kll 

15-«25 

15-N96 

15-P58 

15-SOO 

15-V56 

15-y55 

13-240 

13-C57 

15-\ 72 

15-381 

15-^21 

15-^^40 

15-a08 

15-a88 

15-C54 

15-d59 

15-e45 

15-f79 

15-h71 

15-i80 

15-j45 

15-k99 



13--85 

13-713 

13-974 

15-A87 

15-064 

15-066 

15-K57 

15-M24 

13-N97 

15-P76 

13-S34 

13-V59 

13-V62 

13-262 

13-C41 

15-\77 

15-391 

15-26 

15-41 

15-al5 

15-a98 

15-C35 

15-d45 

15-e44 

15-f90 

l5-h72 

15-j02 

15-j64 

15-159 



1 5-=95 

15-741 

1 5-975 

13-A90 

13-D68 

13-067 

13-K38 

13-«65 

15-015 

15-P77 

15-S46 

15-V57 

15-y63 

13-269 

13-C42 

15-\81 

13-392 

13- 28 

13-^47 

15-a14 

15-b02 

15-C42 

15-d44 

15-e76 

15-f91 

15-h77 

15-j05 

15-j88 

15-140 



15-785 
15-d59 



15-d85 13-f24 13-f29 13-h92 ■'3-»-97 



CZRMPBO RM05/3/2 DSKLS TST 1 MACRO VOA.OO 
CROSS REFERENCE TABLE (CREF vOI-05 ) 



M 7 

A-APR-81 01:?4:25 PAGE S-12 



SEO 0298 



EDI 

EDTIS 

EDI 30 

ED2 

ED220 

EDS 

ED57 

ED65 

ED71 

EDn 



EDTllS 

EDT130 

EDn32 

EDT2 

EDT220 

EDT5 

EDT57 

EDT65 

EDT71 

EDT7A 

EECC 

EFl 

EF130 

EF2 

EF5 

EF57 

EFT1 



EFms 

EFT130 

EFT2 

EFT220 

EFTS 

EFT57 

EfT65 

EFT71 

EFT74 



38-1 
38-8 

38-9 

38-2 

38-11 

38-3 

38-A 

38-5 

38- 6 
8-3 
8-91 
8-136 
8-205 
8-259 
8-334 
8-397 
8-492 
8-537 
8-580 
8-232 
8-418 
8-265 
8-271 
8-6 
8-433 
8-15 
8-142 
8-160 
8-172 
8-181 
4-830* 

39- 1 
39-9 
39-2 
39-3 
39-4 

8-3 

8-91 

8-136 

8-205 

8-259 

8-334 

8-397 

8-492 

8-537 

8-580 

8-232 

8-418 

8-265 

8-27i 

8-6 

8-433 

8-15 

8-142 

8-160 

8-172 

8-181 



42-''# 
38-10 
42-8<r 
38-7 
42-9# 
4t?-3* 
42-4* 
42-5* 
42-6* 
8-49 
8-94 
8-139 
8-208 
8-277 
8-340 
8-424 
8-495 
8-S40 
8-583 
8-241 
8-421 
8-268 
8-274 
38-2* 
8-436 
8-18 
38-4* 
8-163 
8-175 

38- 7* 

39- 5 
42-15* 
39-7 
39-11 
39-8 

8-49 

8-94 

8-139 

8-208 

8-277 

8-340 

8-424 

8-495 

8-540 

8-583 

8-241 

8-421 

8-268 

8-? 74 

h-'- 6 
c 8 

39-4* 
8-163 
8-175 

39-7* 



42-7* 
42-2* 



8-52 

8-97 

8-145 

8-214 

8-280 

8-343 

8-427 

8-498 

8-543 

8-586 

8-250 

8-464 

8-304 

8-289 

8-439 
8-22 

8-193 
8-178 



39-6 

42-12* 
42-13* 
39-10 
8-52 
8-97 
8-145 
8-214 
8-280 
8-343 
8-427 
8-498 
8-543 
8-586 
8-250 
8-464 
8-304 
8-289 

8-439 
8-22 

8-193 
8-178 



8-55 
8-100 
8-148 
8-217 
8-283 
8-346 
8-430 
8-501 
8-546 
8-589 
8-262 
8-467 
38-9* 
8-292 

8-442 
38-3* 

8-202 
38-6* 



42-11* 



42-14* 
8-55 
8-100 
8-148 
8-217 
8-283 
8-346 
8-430 
8-501 
8-546 
8-589 
8-262 
8-467 

39-9* 
8-292 

8-442 
39-3* 

8-202 
39-6* 



8-58 
8-106 
8-151 
8-220 
8-286 
8-349 
8-445 
8-504 
8-549 
38-1* 
8-313 
8-470 

8-295 

38-11* 



3-61 

8-109 

8-154 

8-223 

8-298 

8-355 

8-448 

8-508 

8-552 

8-331 
8-476 



8-64 

8-112 

8-157 

8-226 

8-301 

8-358 

8-451 

8-511 

8-555 

8-337 
8-482 



8-70 

8-115 

8-166 

8-229 

8-307 

8-367 

8-454 

8-515 

8-558 

8-361 
38-8* 



8-73 

8-118 

8-169 

8-235 

8-310 

8-376 

8-457 

8-518 

8-561 

8-364 



8-76 

8-121 

8-184 

8-238 

8-316 

8-379 

8-460 

8-521 

8-564 



8-79 

8-124 

8-187 

8-244 

8-319 

8-385 

8-473 

8-524 

8-567 



8-82 

8-127 

8-190 

8-247 

8-322 

8-388 

8-479 

8-527 

8-570 



8-85 

8-130 

8-196 

8-253 

8-325 

8-391 

8-485 

8-530 

8-573 



8-415 38-10* 



8-211 ?8-5* 



8-88 

8-133 

8-199 

8-256 

8-328 

8-594 

8-488 

8-533 

8-576 



8-370 8-400 8-406 8-409 8-412 



8-58 


8-61 


8-64 


8-70 


8-73 


8-76 


8-79 


8-82 


8-85 


8-88 


8-106 


8-109 


8-112 


8-115 


8-118 


8-121 


8-124 


8-127 


8-130 


8-133 


8-151 


8-154 


8-157 


8-166 


8-169 


8-184 


8-187 


8-190 


8-196 


8-199 


8-220 


8-223 


8-226 


8-229 


8-235 


8-238 


8-244 


8-247 


8-253 


8-256 


8-286 


8-298 


8-301 


8-307 


8-310 


8-316 


8-319 


8-322 


8-325 


8-328 


8-349 


8-355 


8-358 


8-367 


8-376 


8-379 


8-385 


8-388 


8-391 


8-394 


8-445 


8-448 


8-451 


8-454 


8-457 


8-460 


8-473 


8-479 


8-485 


8-488 


8-504 


8-508 


8-511 


8-515 


8-518 


8-521 


8-524 


8-527 


8-530 


8-533 


8-549 


8-552 


8-555 


8-558 


8-561 


8-564 


8-567 


8-570 


8-573 


8-576 


39-1* 




















8-313 


8-331 


8-337 


8-361 


8-364 


8-370 


8-400 


8-406 


8-409 


8-412 


8-470 


8-476 


8-482 


39-8* 














8-295 


8-415 


39-10* 
















39-11* 





















8-21 1 39-5* 
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FM1 
cn 1 


^7-1 


HI » 








cn 1 1 J 


77-0 


^1-l^ir 

H 1 1 H» 








Cn 1 jU 




^ 1 —1 Ait 








Cn 1 


77—1 1 


A1— 1fl« 








PU147 


77-1? 


^1 -?nif 

H 1 — tv* 








CH 1 J 


77-1 7 


^1 -PPif 
H 1 CC^ 










77-1^ 

J f 1 H 


H 1 C J* 










77-P 


Z,1 -7ir 
*♦ I jw 








CHc 1 J 


77-1 S 

jf 1 J 


*♦ 1 c f ^ 








Fu77n 


77-1 A 

J f I o 


^ 1 ~'?Qh 

H 1 C.rf* 








cn J 


J f o 










cn J 


77-7 

Jf J 


^1 — Sif 








c n J f 


77-S 

Jf J 


H I 










77-A 

Jf o 


H 1 1 








c n f 


77-^ 

Jf 


S 1 f w 








Fm71 
C n f 1 


77-7 

Jf f 


A1 -1 7ir 

Mil 








PUTI 
C n 1 1 


R-7 

O J 


8-AQ 


O JC 


R-SS 


R-SR 

O JO 






8-Q^ 

0"H 


R-07 
o yf 


R-1 nn 

O 1 vV 


O I uo 




R-1 7A 

O I JQ 


8-1 79 

O I JT 


R-1 AS 

O 1 H J 


R-1 AR 

O 1 H O 


R-1 SI 

O 1 J 1 




O CUJ 


O CV/O 


O C t H 




fi-??0 

O tCl/ 




O C J™ 


R-P77 

O C f » 






R-PR6 




O J JH 


O JH V 


8-7A3 

O JH J 


8-3A6 

O JHO 


8-3A9 

O JHT 




O JTf 


R-A?A 

O HcH 


R-AP7 

O He ' 


8-A70 

O H JV/ 


8-AAS 






R-AQS 

O HT J 


R-A9R 

O H 70 


8-sni 

O JV/ 1 


R-SOA 

O J vH 




O J J f 


O JHv 


R-SA7 

O JH J 


8-SA6 

O JH W 


8-5A9 

O JHT 




O JOV/ 


R-S87 


8-S86 

O JOO 


8-589 

O J07 


77-1* 

J r 1 w 


FHT1 1 S 




8-P^1 

O C** 1 


8-P50 

O C J V 


8-?6? 
o cue 


8-A09 

O •» VT 


FHT1 


O CO J 


8-P^8 

o coo 


77-10* 

Jf 1 V/W 






FHT1 ^? 


8-P71 


8-774 


8-?89 

O C07 


37-1 1* 

J f 1 1 




FHT1 A? 




8-P9S 


8-A15 


37-1?* 

Jf 1 C" 




FHT1 AS 


8-70A 


77-1 7* 








FHTISO 


8-717 


8-771 


8-737 

O J J' 


8-761 

O JO 1 


8-36A 

O JO"t 


FHTP 




J f 








FHTP1 ^ 




8-AP1 


8-A6A 


77-1 S* 

Jf 1 JW 




cn 1 ccv 


O H J J 


O H JO 


R-A79 

O H JT 


R-AA? 


77-16* 
Jf 1 \jff 


c n 1 J 


8-1 S 


8-18 


37-3* 

Jf J*f 






FHTS7 

cn 1 <J r 


8-1 










cn 1 \jj 


8-160 


8-167 


77-6* 

J f 






FHT7 
c n 1 r 




77-A* 








FHT71 
cn 1 f 1 


8-1 7P 


8-1 7S 


R-1 78 

O 1 ' o 


8-197 

O 1 7 J 


o cvc 


FNT7A 

cn 1 r 


8-181 


77-8/f 








CrlO 1 


JO J 


JO 








cri^ 1 \j 


76-1 ?9 


JU 1 J 1 


AO-1 0# 






C"0 1 1 


7A-177 


AO-1 1* 










76-118 


36-1 ?0 

Jv I CV/ 


36-1?? 

JU ICC 


AO-1 3* 

"TV 1 J" 




cru 1 J 


76-176 


76-1 78 

JU I JV 


76-1 AO 

JU 1 "f V 


36-1 A? 

JU 1 "tC 


AO-1 A* 


FMS1A 


76-1 AA 


76-1 A6 

JVJ 1 ^yj 


36-150 

JW 1 i/V 


AO-1 5* 




C>>^ 1 J 


36-1 AA 


36-1 A6 

JU 1 


36-148 

JO 1 "to 


36-?07 

JO CO' 


36-^? 7 

JO JC f 

•to 1 • w 


C"^ 1 w 


36-1 SI 


36-1 S3 

JO 1 J J 


36-155 

JO 1 J J 


36-337 

JO J Jf 




36-151 


36-153 

Jw 1 J J 


36-1 57 

JO 1 J f 


AO-1 8* 




FM^P 

CflOc. 


36-8 


36-187 

JO 1 Of 


JO C I I 


36-?39 

JO C J 7 


JO C*t J 




76-1 S8 


36-160 

J\J 1 ov/ 


JO I oc 


JO 1 


JO I uo 


EMS21 


36-1 So 


36-160 


36-16A 


36-166 


36-1 68 


EMS22 


36-160 


36-162 


36-166 


36-168 


A0-21# 


EMS23 


36-173 
36-173 


36-175 


36-179 


AO-22* 




FMS2A 


36-175 


36-177 


36-359 


36-375 


EMS25 


36-180 


36-182 


36-186 


A0-2A* 
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8-61 

8-109 

8-1 5A 

8-223 

8-298 

8-355 

8-AA8 

8-508 

8-552 



8-6A 

8-112 

8-157 

8-226 

8-301 

8-358 

8-451 

8-511 

8-555 



8-70 

8-115 

8-166 

8-229 

8-307 

8-367 

8-454 

8-515 

8-558 



8-73 

8-118 

8-169 

8-235 

8-310 

8-376 

8-457 

8-518 

8-561 



8-76 

8-121 

8-184 

8-238 

8-316 

8-379 

8-460 

8-521 

8-564 



8-79 

8-124 

8-187 

8-244 

8-319 

8-385 

8-473 

8-524 

8-567 



8-82 

8-127 

8-190 

8-247 

8-322 

8-388 

8-479 

8-527 

8-570 



8-85 

8-130 

8-196 

8-253 

8-325 

8-391 

8-485 

8-530 

8-573 



8-88 

8-133 

8-199 

8-256 

8-328 

8-39A 

8-A88 

8-533 

8-576 



8-A12 8-A76 37-9* 



8-370 8-AOO 8-A06 8-A67 



8-A70 



8-A82 37-1 A* 



8-211 37-7* 



36-329 36-346 36-348 36-364 36-380 36-400 AO-16* 



36-2A8 36-259 36-339 36-344 

36-168 36-172 40-19* 

36-170 36-350 36-366 36-382 



40-4* 

36-402 40-20* 



36-391 36-417 40-23* 



:ZRWPBO RM05/5/2 DSKLS T 

rPOSS REFERENCE TABLE (C 

EMSP50 36-33 36-36 

EMS251 36-A1 36-44 

36-49 36-52 

EMS253 36-49 36-79 

:MS254 36-49 36-142 

EMS255 36-68 36-^0 

EMS256 36-96 36-98 

EMS257 36-106 40-70# 

EMS26 36-180 36-182 

EMS260 36-"" 10 36-113 

EMS261 36-209 40-7^# 

EMS262 36-302 36-31 S 

EMS27 36-187 36-189 

EMS3 36-77 36-229 

EMS 30 36-191 36-192 

FMS300 36-3 36-8 

36-239 36-243 

EMS301 36-4 36-6 

36-62 36-64 

36-110 36-113 

EMS302 36-4 36-6 

EMS303 36-4 36-133 

EMS304 36-4 40-79# 

EMS506 36-6 36-13 

EliS307 36-8 36-187 

EMS31 36-197 40-28# 

EMS31C 36-10 36-219 

EMS311 36-10 36-13 

EMS312 36-12 36-35 

40-8A# 

EMS313 36-15 36-39 

36-194 40-85# 

EMS3U 36-17 36-21 

EMS315 36-19 36-23 

EMS316 36-17 36-19 

EMS317 36-17 36-19 

EMS32 36-199 40-29# 

EMS320 36-21 36-23 

tMS321 36-25 36-27 

EMS322 36-29 36-31 

EHS323 36-36 36-44 

E/1S324 36-33 36-4 i 

EMS325 36-38 36-46 

EMS 326 36-35 36-43 

EMS327 36-49 36-75 

EHS33 36-201 40-30# 

EMS330 36-51 40-98* 

EMS331 36-79 36-96 

E«S332 36-106 36-150 

EMS333 36-108 36-126 

Ef1S334 36-131 36-162 

EMS 335 36-120 36-129 

EMS336 36-122 36-131 

EMS337 36-140 36-146 

36-256 36-263 

EMS54 36-203 36-265 

EMS 340 36-129 36-131 



T 1 MACRO V04.00 4-APR 

EF VOI-05 ) 

36-39 36-75 36-197 

36-47 36-302 36-313 

36-54 36-56 36-58 

36-81 36-83 36-85 

36-148 36-155 36-170 

36-73 36-75 36-205 

36-101 36-104 36-271 

36-184 36-353 36-369 

36-116 36-133 40-71 # 

36-321 36-323 40-73* 

36-192 36-196 36-287 

36-241 36-245 36-265 

36-194 36-201 36-203 

36-52 56-54 36-56 

36-248 36-259 36-271 

36-10 36-13 36-15 

36-66 36-68 36-70 

36-116 36-133 36-142 

36-8 36-15 40-77* 
40-78# 

36-49 36-225 36-267 

36-211 36-239 36-243 

36-323 40-82* 
40-83* 

36-38 36-43 36-46 

36-47 36-66 36-73 

36-25 36-29 36-51 

36-27 36-31 36-160 

36-21 36-23 36-25 
40-89* 

40-90* 
40-91* 
40-92* 

36-64 56-70 36-75 

36-58 36-60 36-62 

36-72 36-93 36-103 

36-69 36-87 36-90 

36-127 36-221 36-256 



36-189 36-205 40-99* 

36-157 36-172 36-179 

36-129 36-162 36-168 

36-':66 36-252 36-302 

36-252 36-254 36-254 

36-348 36-353 36-364 

36-153 36-164 36-166 

36-279 36-291 36-300 
40-31* 

36-261 36-348 36-353 
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36-199 


36-201 


36-203 


40-64* 








^6-6P 


JU OH 


36-88 


36-91 


36-94 


36-177 


36-184 


36-194 










40-69* 




36-385 


36-415 


40-25* 


36-404 


36-405 


36-407 


36-269 


36-289 


36-292 


36-21 3 


36-217 


40-27* 


36-77 


36-81 


36-83 




36-276 


36-339 


36-33 


36-36 


36-39 


36-73 


36-75 


36-85 


36-148 


36-155 


36-1 70 


36-309 


36-31 1 


40-80* 


36-248 


36-259 


36-339 


36-69 


36-72 


36-87 


36-94 


36-104 


36-116 


40-86* 






36-191 


40-87* 




36-27 


36-29 


36-31 


36-91 


36-101 


36-113 


36-68 


36-85 


36-88 


36-115 


40-95* 




36-100 


36-112 


40-96* 


36-271 


36-271 


36-291 


36-186 


36-196 


36-333 


36-247 


36-258 


36-261 


36-307 


40-102* 




36-261 


36-304 


36-352 


36-369 


36-380 


TOP 

36-385 


36-175 


36-182 


36-192 


36-305 


40-105* 




36-364 


36-369 


36-380 



36-271 36-276 36-291 

36-66 36-221 36-223 

36-221 36-223 40-66* 
40-67* 

36-291 36-298 36-422 



36-419 40-26* 

36-294 36-337 40-5* 

^6-118 36-124 36-127 

36-344 36-422 40-75* 

36-41 36-44 36-47 

36-88 36-91 36-94 

36-177 36-184 36-194 



36-344 40-81* 



36-90 36-93 36-100 
36-142 36-143 36-155 



40-88* 



40-93* 

36-98 36-110 40-94* 



36-292 36-302 40-97* 



36-362 36-378 36-396 

36-307 36-313 36-315 

36-361 36-368 36-377 

36-400 36-404 36-415 

36-217 36-221 36-231 



36-385 36- A 00 36-415 



SEO 0500 
36-296 56-317 40-63* 
36-341 40-65* 

40-68* 



36-1^6 36-187 36-211 

36-49 36-58 36-60 

36-98 36-"'01 36-104 

36-225 36-267 40-76* 



36-103 36-112 36-115 
36-170 36-177 36-184 



36-413 40-100* 

36-317 36-323 40-101* 

36-384 36-393 40-103* 

36-419 40-104* 

36-250 36-252 36-25s 

40-106* 



ZRMPeO RM05/5/? DSKLS TST 1 mACRO V04.00 
"ROSS REFERENCE TABLE (CREF VOI-05 ) 



C 8 

A-APR-81 01:24:25 PAGE S-15 



EMS3A1 

EMS5A2 

EMS3A3 

EMS544 

EMS345 

EMS 546 

EMS347 

EMS35 

EMS350 

EMS351 

EMS352 

EMS353 

EMS354 

EMS355 

E«S356 

EMS357 

EMS 36 

EMS 360 

EMS361 

EMS 362 

EMS 363 

EKS364 

EMS 365 

EMS 366 

EMS 367 

EMS37 

EMS 370 

EMS371 

EMS372 

EMS373 

EMS374 

EMS375 

EMS376 

EMS377 

EMS4 

EMS40 

EMS400 

EMS401 

EMS402 

EMS403 

EMS404 

EMS405 

EMS406 

EMS407 

EMS41 

EMS42 

EMS43 

EMS44 

EMS45 

EMS46 

EMS47 

EMS5 

EMS 50 

EMS500 



36-144 

56-21 5 

56-120 

36-155 

56-155 

56-1 58 

36-1 38 

56-142 

56-207 

56-160 

36-160 

36-168 

36-189 

36-197 

36-201 

36-327 

36-207 

36-211 

36-384 

36-207 

36-329 

56-209 

36-219 

36-225 

36-223 

36-227 

36-229 

36-215 

56-255 

36-257 

36-252 

56-285 

56-291 

56-515 

56-51 5 

56-555 

56-79 

56-215 

56-346 

36-355 

36-550 

36-550 

36-353 

36-'48 

36-394 

36-348 

36-398 

36-219 

36-227 

36-255 

56-259 

36-243 

36-248 

36-254 

36-108 

36-261 

36-5 



56-'' 46 

56-217 

56-122 

40-109* 

40-110* 

56-140 

56-144 

56-148 

36-247 

56-162 

40-115* 

40-116* 

36-229 

36-199 

36-203 

36-329 

36-325 

36-225 

36-589 

56-527 

40-125* 

40-124* 

56-509 

56-296 

56-229 

40-128* 

56-255 

40-54* 

56-557 

36-407 

36-254 

56-502 

40-154* 

40-155* 

56-317 

36-557 

56-96 

56-217 

40-158* 

56-342 

36-359 

36-359 

36-369 

36-353 

56-596 

56-564 

40-145* 

56-221 

56-229 

40-58* 

56-241 

56-245 

56-250 

36-256 

36-509 

56-265 

40-147* 



56-151 
56-221 
56-129 



56-215 
56-151 
36-155 
36-252 
36-166 



36-235 

36-223 

36-213 

36-331 

40-121* 

56-251 

56-595 

40-122* 



56-155 
56-272 
56-131 



56-285 
56-158 
56-170 
36-256 
36-168 



36-237 
36-229 
40-119* 
36-398 

36-255 
36-409 



56-158 
56-274 
56-155 



56-502 
56-175 
56-177 
36-263 
36-307 



36-241 
36-233 

40-120* 

36-235 
40-33* 



56-164 
5o-?76 
56-555 



40-111* 

56-180 

56-184 

40-32* 

36-323 



36-245 
36-241 



56-166 
56-279 
40-108* 



36-215 
36-194 



36-1 73 
36-281 



36-281 
40-113* 



SEO 0501 

36-175 56-180 56-182 56-192 56-201 56-205 
36-285 56-287 56-319 36-422 40-107* 



36-283 56-285 36-287 36-319 56-321 40-112* 



36-341 36-346 4C-114* 



36-250 36-269 36-335 40-117* 

36-245 36-269 36-289 36-294 36-296 36-298 36-337 40-118* 



36-237 36-261 36-525 56-352 36-557 36-361 56-368 56-573 36-577 



56-511 


56-525 


40-125* 








56-298 


40-126* 










36-235 


36-237 


36-241 


36-245 


36-269 


36-333 


36-237 


36-241 


36-245 


36-269 


36-335 


40-129* 


56-575 


36-389 


36-405 


40-130* 






40-131* 












36-258 


36-325 


36-337 


36-341 


36-346 


40-132* 


40-133* 













36-335 36-337 40-127* 



56-521 


56-541 


40-136* 










56-541 


56-550 


36-359 


36-366 


36-375 


36-382 


36-391 


56-205 


40-6* 












40-35* 














56-346 


36-355 


36-571 


36-387 


36-394 


36-411 


36-420 


36-366 


36-375 


36-382 


56-391 


36-402 


36-417 


40-140* 


36-366 


36-375 


36-382 


36-391 


36-402 


56-417 


40-141* 


36-385 


36-409 


36-415 


40-1 42# 








36-355 


36-357 


36-362 


36-364 


36-369 


36-371 


36-373 


36-400 


36-405 


36-407 


36-409 


36-411 


36-413 


36-415 


36-580 


56-400 


40-144* 










36-223 


56-252 


36-254 


36-258 


36-331 


36-333 


40-36* 


40-37* 














40-59* 














40-40* 














40-41* 














56-259 


56-269 


40-42* 










40-7* 














40-43* 















36-391 36-402 36-417 40-137* 



36-387 36-389 
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EMS501 



EWS502 
EMS503 



EMS504 



EMS505 
EMS 506 

EMS51 

EMS510 

EMS511 



EHS52 

EMS53 

EMS5A 

EHS55 

EMS56 

EMS57 

EMS6 

EHS60 

EMS600 

EMS601 

EMS602 

EHS603 

EnS60A 

EnS605 

EMS606 

EMS607 

EMS61 



36-5 

36-A2 

36-80 

36-1 U 

36-159 

36-224 

36-270 

36-312 

36-343 

36-5 

36-50 

36-5 

36-143 

36-183 

36-240 

36-345 

36-376 

36-408 

36-11 

36-198 

36-299 

36-7 

36-107 

36-109 

36-267 

36-290 

36-5 

36-34 

36-67 

36-102 

36-134 

36-165 

36-198 

36-226 

36-255 

36-286 

36-316 

36-345 

36-376 

36-408 

36-2/9 

36-289 

36-291 

36-300 

36-302 

36-307 

36-124 

36-307 

36-272 

36-279 

36-281 

36-319 

36-348 

36-364 

36-380 

36-400 

36-311 



36-7 

36-45 

36-82 

36-117 

36-161 

36-226 

36-273 

36-314 

36-345 

36-7 

36-130 

36-9 

36-145 

36-185 

36-242 

36-347 

36-379 

36-410 

36-14 

36-200 

36-301 

40-154* 

40-155* 

40-156* 

36-283 

40-157* 

36-7 

36-37 

36-71 

36-105 

36-137 

36-167 

36-200 

36-228 

36-257 

36-288 

36-318 

36-347 

36-379 

36-410 

36-281 

36-411 

36-294 

40-48* 

36-304 

40-51* 

36-127 

40-52* 

36-274 

40-162* 

36-283 

40-164* 

36-350 

36-366 

36-382 

36-402 

40-53* 



36-9 

36-48 

36-84 

36-119 

36-163 

36-232 

36-275 

36-316 

36-347 

36-9 

36-132 

36-n 

36-147 

36-188 

36-244 

36-349 

36-381 

36-412 

36-16 

36-202 

36-423 



40-44* 

36-9 

36-40 

36-74 

36-107 

36-139 

36-169 

36-202 

36-230 

36-260 

36-290 

36-320 

36-349 

36-381 

36-412 

36-285 

40-46* 

36-296 

36-305 

36-129 

36-276 

40-163* 

36-353 
36-369 
36-385 
36-405 



36-"' 1 

36-50 

36-86 

36-121 

36-165 

36-234 

36-280 

36-318 

40-150* 

36-11 

36-134 

36-14 

36-149 

36-190 

36-246 

36-351 

36-383 

36-414 

36-34 

36-204 

40-153* 



36-11 

36-42 

36-76 

36-109 

36-141 

36-171 

36-204 

36-232 

36-262 

36-293 

36-322 

36-351 

36-383 

36-414 

36-287 

36-298 

36-341 

36-131 

36-422 



36-355 
36-371 
36-387 
36-407 



36-14 

36-53 

36-89 

36-123 

36-167 

36-246 

36-282 

36-320 

36-14 

36-290 

36-16 

36-152 

36-193 

36-249 

36-354 

36-386 

36-416 

36-37 

36-206 



36-14 

36-45 

36-78 

36-1 1 1 

36-143 

36-174 

36-206 

36-234 

36-264 

36-295 

36-324 

36-354 

36-386 

36-416 

40-45* 

40-47* 

40-49* 

40-8* 

40-161* 



36-357 
36-373 
36-389 
36-409 



36-16 

36-55 

36-92 

36-125 

36-169 

36-251 

36-284 

36-322 

36-16 

36-340 

36-50 

36-154 

36-195 

36-251 

36-356 

36-388 

36-418 

36-40 

36-214 



36-16 

36-48 

36-80 

36-114 

36-145 

36-176 

36-208 

36-236 

36-266 

36-297 

36-326 

36-356 

36-388 

36-418 



36-359 
36-375 
36-391 
36-411 



36-18 

36-57 

36-95 

36-128 

36-174 

36-253 

36-286 

36-324 

36-18 

36-343 

36-57 

36-156 

36-198 

36-260 

36-358 

36-390 

36-421 

36-55 

36-216 



36-18 

36-50 

36-82 

36-117 

36-147 

36-178 

36-210 

36-238 

36-268 

36-299 

36-328 

36-358 

36-390 

36-421 



36-362 
36-378 
36-394 
36-413 



36-20 

36-59 

36-97 

36-130 

36-1 76 

36-255 

36-288 

36-326 

36-20 

36-412 

36-63 

36-159 

36-200 

36-262 

36-360 

36-392 

40-152* 

36-61 

36-218 



36-20 

36-53 

36-84 

36-119 

36-149 

36-181 

36-212 

36-240 

36-270 

36-301 

36-330 

36-360 

36-392 

36-423 



36-22 

36-61 

36-99 

36-132 

36-181 

36-257 

36-293 

36-328 

36-22 

40-151* 

36-76 

36-165 

36-210 

36-290 

36-363 

36-395 

36-71 
36-268 



36-22 

36-55 

36-86 

36-121 

36-152 

36-183 

36-214 

36-242 

36-273 

36-303 

36-332 

36-363 

36-395 

40-158* 



36-24 

36-63 

36-102 

36-134 

36-183 

36-260 

36-295 

36-330 



36-82 

36-171 

36-226 

36-322 

36-365 

36-397 

36-74 
36-277 



36-24 

36-57 

36-89 

36-123 

36-154 

36-185 

36-216 

36-244 

36-275 

36-306 

36-334 

36-365 

36-397 



40-165* 
40-166* 

36-396 40-167* 

36-415 36-417 36-420 



36-26 

36-65 

36-105 

36-145 

56-208 

36-262 

36-303 

36-332 



36-24 36-26 



36-86 

36-174 

36-228 

36-336 

36-567 

36-399 

36-76 
36-286 



36-26 
36-59 
36-92 

36-125 
36-156 
36-188 
36-218 
36-246 
36-277 
36-308 
36-336 
36-367 
36-399 



36-28 

36-67 

36-107 

36-147 

36-212 

36-264 

36-306 

36-334 

36-28 

36-137 
36-176 
36-230 
56-558 
56-570 
36-401 

36-84 
36-288 



36-28 

36-61 

36-95 

36-128 

36-159 

36-190 

36-220 

36-249 

36-280 

36-310 

36-338 

36-370 

56-401 



36-30 

36-76 

36-109 

56-152 

56-220 

56-266 

36-308 

36-336 



SEQ 0^0^ 

36-52 
56-78 
56-1 1 1 
56-1 54 
56-222 
56-268 
56-510 
36-538 



36-30 36-32 



56-1 59 
56-178 
56-236 
36-340 
36-372 
36-403 

36-89 
36-295 



56-30 

36-63 

36-97 

36-130 

36-161 

36-193 

36-222 

56-251 

56-282 

56-512 

56-340 

36-572 

36-403 



56-141 
36-181 
36-238 
36-545 
56-574 
36-406 

36-128 
36-297 



36-52 

36-65 

36-99 

36-132 

36-163 

36-195 

36-224 

36-253 

36-284 

36-514 

56-343 

36-374 

36-406 



40-168* 



E 8 
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EMS62 


36-313 


36-315 


36-317 


EMS63 


36-321 


36-323 


36-325 


EMS64 


36-337 


40-56# 






EMS65 


36-339 


36-342 


40- 


■57* 


EMS66 


36-344 


36-346 


36- 


■348 


EriS67 


36-562 


36-378 


36- 


■396 


EMS7 


36-126 


36-127 


40-9* 


EMS70 


36-394 


36-420 


40-61* 


EMTl 


8-3 


36-3<f 






EWT10 


8-25 


36-1 7# 






EWT100 


8-193 


36-142* 






EMTIOi 


8-196 


36-1 44# 






EHT102 


8-199 


36-1 46# 






EMTIO? 


8-202 


36-148* 






EMT104 


8-205 


36-151* 






EWT105 


8-208 


36-153* 






EMT106 


8-211 


36-155* 






EMT107 


8-214 


36-158* 






EMTIl 


8-28 


36-19* 






EMT110 


8-217 


36-160* 






EMTin 


8-220 


36-162* 






EMT112 


8-223 


36-164* 






EHT113 


8-226 


36-166* 






EWT1U 


8-229 


36-168* 






EMT115 


8-232 


36-1 70* 






EMT116 


8-235 


36-173* 






EMT117 


8-238 


36-175* 






EMT12 


8-31 


36-21* 






EMT120 


8-241 


36-1 77* 






EMT121 


8-244 


36-180* 






EMIT 22 


8-247 


36-182* 






EMT123 


8-250 


36-184* 






EMT124 


8-253 


36-187* 






EMIT 25 


8-256 


36-189* 






EMIT 26 


8-259 


36-192* 






EMT127 


8-262 


36-194* 






EMT13 


8-34 


36-23* 






EMT130 


8-265 


36-197* 






EMT131 


8-268 


36-199* 






EMT132 


8-271 


36-201* 






EMT133 


8-274 


36-203* 






EMT13A 


8-277 


36-205* 






EI1T135 


8-280 


36-207* 






EMT136 


8-283 


36-209* 






EMT137 


8-286 


36-211* 






EMTU 


8-37 


36-25* 






EMTUO 


8-289 


36-213* 






EMTU1 


8-292 


36-215* 






lMT U2 


8-295 


36-217* 






EMTK3 


8-298 


36-219* 






EMTUA 


8-301 


36-221* 






EMTK5 


8-304 


36-223* 






EHTK6 


8-307 


36-225* 






EMTU7 


8-310 


36-227* 






EMTTS 


8-40 


36-27* 






EMTISO 


8-313 


36-229* 






EMTIST 


8-316 


36-231* 







36-319 40-54* 

36-327 36-329 36-331 36-333 36-335 36-35S 36-371 36-387 40-55* 

36-353 36-364 36-369 36-380 36-385 36-398 36-400 36-415 40-58* 

36-41 3 40-59* 



F 8 
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EMT152 8-319 36-233# 

EMn53 8-322 36-235# 

EMT154 8-325 36-237* 

EMT155 8-328 36-239# 

EMT156 8-331 36-2^1* 

EMT157 8-334 36-2A3# 

EMT16 8-43 36-29* 

EMT160 8-337 36-245* 

EMT161 8-340 36-248* 

EMT162 8-343 36-250* 

EMT163 8-346 36-252* 

EMn6^ 8-349 36-254* 

EMT165 8-352 36-256* 

EMT166 8-355 36-259* 

EMT167 8-358 36-261* 

EMT17 8-46 36-31* 

EMT170 8-361 36-263* 

EMT171 8-364 36-265* 

EMTI 72 8-367 36-267* 

EMn73 8-370 36-269* 

FMT174 8-373 36-271* 

EMn75 8-376 36-274* 

EMn76 8-379 36-276* 

EMTI 77 56-278* 

EMT2 8-6 36-4* 

EMT20 8-49 36-33* 

EMT200 8-385 36-279* 

EMT201 8-388 36-281* 

EMT202 8-391 36-283* 

EMT203 8-394 36-285* 

EMT204 8-397 36-287* 

EMT205 8-400 36-289* 

EMT206 8-403 36-291* 

EMT207 8-406 36-294* 

EMT21 8-52 36-36* 

EMT210 8-409 36-296* 

EWT211 8-412 36-298* 

EMT212 8-415 36-300* 

EMT213 8-418 36-302* 

Er«T2i4 8-421 36-305* 

EMT215 8-424 36-307* 

EMT216 8-427 36-309* 

EMT217 8-430 36-311* 

EMT22 8-55 36-39* 

EMT220 8-433 36-313* 

EMT221 8-436 36-315* 

FMT 222 8-439 36-317* 

EMT223 8-442 36-319* 

EMT224 8-445 36-321* 

EMT225 8-448 36-323* 

EMT226 8-451 36-325* 

EWT227 8-454 36-327* 

EMr23 8-58 36-41* 

EMT250 8-457 36-329* 

f«T231 8-460 36-331* 

Ei^T232 8-464 36-333* 

FHT233 8-467 36-335* 
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EMTP5A 36-337# 

tMT235 8-A73 36-339# 

EMT236 8-476 36-341* 

EMT237 8-A79 8-A82 56-54A# 

EMT2A 8-61 36-44* 

EMT240 36-346* 

EMT241 8-485 36-348* 

EMT242 8-488 36-350* 

EMT243 8-492 36-353* 

EMT244 8-495 36-355* 

EMT245 8-498 36-357* 

EMT246 8-501 36-359* 

EMT247 8-504 36-562* 

EWT25 8-64 36-47* 

EMT250 3-508 36-364* 

EMT251 8-511 36-366* 

Em 252 8-515 36-369* 

EMT253 8-518 36-371* 

EMT254 8-521 36-373* 

EMT255 8-524 36-375* 

EMT256 8-527 36-378* 

EI*T257 8-530 36-380* 

EMT26 8-67 36-4Q* 

EWT260 8-533 36-382* 

EMT261 8-537 36-385* 

EMT262 8-540 36-387* 

EMT263 8-543 36-389* 

EMT264 8-546 36-391* 

EMT265 8-549 36-394Jr 

EMT266 8-552 36-396* 

EMT267 8-555 36-398* 

EMT27 8-70 36-52* 

EMT270 8-558 36-400* 

EMT271 8-561 36-402* 

EMT272 8-564 36-405* 

EMT273 8-567 36-407* 

EMT274 8-570 36-409* 

EMT275 8-573 36-411* 

EMT276 8-576 36-413* 

E^'T277 8-580 36-415* 

EMT3 8-9 36-6* 

EMT30 8-73 36-54* 

EMT300 8-583 36-417* 

EMT301 8-586 36-420* 

EMT302 8-589 36-422* 

EMT31 8-76 36-56* 

EMT32 8-79 36-58* 

EMT33 8-82 36-60* 

EMT34 8-85 36-62* 

EMT35 8-88 36-64* 

EMT36 8-91 36-66* 

EMT37 8-94 36-68* 

E«T4 8-12 36-8* 

EMT40 8-97 36-70* 

E«T41 8-100 36-73* 

EMT42 8-103 36-75* 

EMT43 8-106 36-77* 
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DSKLS TST 
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8-109 


36-79* 






EMT<;5 


8-112 


36-81* 






EMT46 


8-115 


36-83* 






EMT<i7 


3-118 


36-85* 






EMT5 


8-15 


36-10* 






EMT50 


8-121 


36-88* 






EMT51 


8-124 


36-91* 






EMT52 


8-127 


36-94* 






EMT53 


8-130 


36-96* 






EMT5A 


8-133 


36-98* 






EMT55 


8-136 


36-101* 






EMT56 


8-139 


36-104* 






EMT57 


8-K2 


36-106* 






EHT6 


8-18 


36-1 3* 






EMT60 


8-H5 


36-108* 






EWT61 


8-1 A8 


36-1 1 0* 






EMT62 


8-151 


36-113* 






EMT63 


8-1 5A 


36-1 16* 






E1T64 


8-157 


36-1 18* 






EMT65 


8-160 


36-120* 






EMT66 


8-163 


36-122* 






EMT67 


8-166 


36-124* 






EMT7 


8-22 


36-1 5* 






EMT70 


8-169 


36-1 27* 






EMT71 


8-172 


36-129* 






EMT 72 


8-175 


36-131* 






EMT73 


8-178 


36-133* 






EMT7A 


8-181 


56-1 33* 






EMT75 


8-184 


36-1 56* 






EMT 76 


8-187 


36-1 38* 






EMT 77 


8-190 


36-140* 






EMTVEC 


4-682* 


9-23* 




ENRGDT 


35-144* 








EQUALS 


32-3* 






13-E06 


ERR 


4-751* 


13-C96 


13-EOO 


ERRf#B 


26-48* 


26-49* 


26-52 


26-57 


ERROR 


4-682* 


4 7m 

26-13* 






ERRTYP 


25-1 




9-23* 


ERRVEC 


4-682* 


n 17 

9-23 


1 3-<67 


1 3-<68 




13-<70« 




15-46* 


24-1 


1/ 1 

24-1 


24-1* 


ERTYOO 


26-21 


26-165* 






ERTY01 


26-46 


26-166* 






ERTy02 


26-51 


26-167* 






ERTY03 


26-53 


26-1 68* 






ERTYW 


26-152 


1 Z.Om 

26-169* 






ERTY05 


26-39 


1 7/%*i 

26-1 70* 




13-C45 


ESRC 


4-823* 


1 7 OC 

1 3-a85 


1 7 »m 

1 5-a9<: 


FO 


4-693* 








Fl 


4-692* 








F2 


4-691* 








F3 


4-690* 










^-OoV* 








FER 




4-781 


13-695 


13-724 


FMT16 


4-849* 


13-870 


13-825 


13-843 


13-S65 


^3-S67 




13-R17 


FNCDTB 


13-K14 


13-M75 


13-N20 



H 8 
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13-E22 13-E47 13-E48 13-L63 

26-64 26-160* 

9-25* 9-26* 15-<24 13-<25 13-<26* 13-<27* 13-<33* 15-<34* 13-<58* 15-<59« 

13-<90* 13-<91* 13-<98* 13-<99* 15-6 15-7 15-8* 15-9* 15-25* 15-45* 

24-1* 24-1* 24-1* 24-1* 25-1 25-1* 25-1* 



13-C50 13-klO 13-kl5 



13-863 13-865 1?-C65 13-C67 13-D24 13-026 13-07? 13-079 13-E36 15-P51 
33-55* 
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FNCMSK 
(if TBUF 
GNS 



GO 



CTSWR 

HCE 

HCI 

HCRC 

HELP 

HT 

lAE 

IBSAVE 
IDXnSK 

IE 
ILF 

ILf02 
ILF74 
ILF26 
ILF30 
1LF32 
ILF3A 
ILF36 
ILF40 
1LF42 
ILF44 
ILF46 
ILF5A 
ILF56 
ILF64 
ILF66 
ILF7A 
ILF 76 



ILR 

ILRG50 
ILRG52 
II RG5A 
IlRG56 
ILRG60 
ILRG62 
ILRG64 
ILRG66 
ILRG70 
lLRG7i: 
ILRG74 



7-0# 
5-1 
29-1 
29-1 
A-69<.# 
13-G83 
13-M19 
13-S41 
13-Z65 
13--25 
13-C19 
17-17 
9-28 
4-772* 
4-85U 
4-771* 
10-17 
4-682* 
4-769* 
3^-81 
23-1 
4-913* 
4-926* 
4-779* 
33-75 
4-699* 
4-709* 
4-710* 
4-714* 
4-714* 
4-714* 
4-714* 
4-714* 
4-714* 
4-714* 
4-714* 
4-71 7;)f 

4-718* 
4-721* 
4-722* 
4-725* 
4-726* 
13-633 
13-Q01 
4-778* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 
4-910* 



15-E86 13-F28 13-041 13-G69 1 3-H92 13-106 13-171 



5-1 
29-1 
29-1 
13-=08 
13-685 
13-M67 
13-S87 
13-C07 
13-*47 
13-C89 

29-1* 



13-H38 

13-H41 

13-H44 

13-H47 

13-H50 

13-H53 

13-H56 

1 3-H59 

13-78 

13-644 

13-026 

13-687 



9-6 
29-1 
29-1 
13-=12 
13-G90 
13-N05 
13-T77 
13-C30 
13- 16 
13-329 



13-93 
13-646 
1 3-R30 
13-716 



9-28 
29-1 
29-1 
13-COO 
13-H86 
13-N55 
13-U06 
13-C32 
13- 57 
1 3-i01 



4-781 


13-695 


13- 


■724 


4-781 


13-695 


13-724 


43-7* 








23-1 


23-1 


26- 


■90 


13-695 


13-724 


13- 


-Q41 


33-82 


33-85 


33- 


■86 


25-1 


25-1 


25- 


■1 


4-959* 








13-687 


13-716 


13- 


■L85 


33-76 


33-79 


33- 


-80 


13-H11 


13-J18 






1 3-H26 


13- J 54 


13- 


-L83 


13-H29 


13- J 58 






13-G07 


13-138 


13- 


-J66 


13-H32 


13- J 70 






13-H35 


13- J 74 







13-111 
13-647 



9-42 
29-1 
29-1 
13-C41 
1 3-H90 
13-N9'; 
13-U35 
13-C46 
13- 77 
13-e21 



33-77 

13-R16 
25-1 

13-M74 
33-83 



13-124 
13-662 



9-53 
29-1 
29-1 
13-D03 
13-109 
13-023 
13-U68 
13-C64 
13- 01 
1 3-e81 



33-78 

13-R18 
25-1* 



13-M76 
33-84 



13-165 
1 3-666 



9-59 
29-1 
29-1 
13-D67 
13-116 
1 3-060 
13-V42 
13-\25 
13- 36 
13-f53 



33-81 

1 3-R62 
25-1* 



33-58 
33-87 



13-189 
13-E94 



13-<12 13-<47 13-<51 13-<83 



9-60 
29-1 
29-1 
13-E79 
.3-118 
13-093 
13-W67 
13-\66 
13-97 
13-g91 



13-R64 
25-T 



33-67 
33-88 



1 3-221 
13-G35 



11-30 

29-1 

29-1 

13-E82 

13-170 

13-P56 

13-X16 

13-\86 

13-a20 

13-h35 



33-85 33-86 



13-S06 
25-1* 



1 3-237 
1 3-H62 



14-20 
29-1 

13-F27 
13-K08 
13-P83 
1 3-Y06 
13-J07 
1 3-a22 
13-121 



33-68 33-70 



13-430 
13-H85 



14-20 
29-1 

1 3-636 
13-K48 
13-027 
13-Y58 
13-341 
1 3-a36 
13-i83 



29-1 
29-1 

1 3-639 
1 3-K72 
13-R04 
13-y96 
13-386 
13-a57 
13-j69 



33-71 



33-72 



SEO 050/ 



13-434 
13-K24 



13-617 
13-M18 



29-1 
29-1 

13-650 
13-K93 
13-R52 
13-716 
13--09 
13-b07 
13-k62 



13-S08 33-59 33-69 33-77 



33-73 



13-620 
13-«87 



29-1 
29-1 

1 3-G76 
13-L14 
13-R97 
13-Z34 
13-*11 
1 3-b29 
16-19 



53-78 



35-74 



15-630 
13-N34 
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SEO 0508 



1LRG76 

lOTVEC 

IPC<0 

IPCK1 

IPCK2 

IPCK3 

IR 

IVC 



LBC 
LBT 

LCLOCK 
LCOUNT 
LF 

LC»EV 

LS 

LSC 

LST 

LSTOP 

LSTRK 

HCLK 

HCPE 

MDF 



MDPE 
MI 

MIXED 

noc 



MOH 
MOL 

MPD 

MS 

MSC 

MSDRVS 

MSE 

MSEN 

MSER 

MSGDRV 
MSHELP 
MUR 



A-910# 
A-682# 
4-96 3# 
4-962* 
4-961 # 
4-960* 
4-939* 
4-878* 
33-69 
33-83 
4-880* 
4-755* 
15-27 
15-29 
4-682* 
40-155 
9-130 
4-832* 
4-879* 
4-833* 
15-28 
7-0* 
4-806* 
4-921* 
4-811* 
13-b03 
13-fl4 
13-k35 
4-937* 
4-814* 
35-4* 
4-809* 
13-C86 
13-41 
13-a62 
13-C14 
13-d04 
13-d97 
13-f48 
1 3-h89 
13-i42 
13-k99 
4-841* 
4-753* 
4-835* 
4-807* 
4-812* 
4-81 5* 

10- 64 
4-887* 
4-805* 

13-a88 
4-810* 
1 3-h82 

11- 68 
10-11 

4-808* 



9-23« 9-23* 



13-13 

1 3-890 

33-70 

33-84 

1 3-898 

13-D53 

15-55* 

1 5-69* 

23-1 

40-156 

32-25* 

13-fl23 

13-890 

13-641 

15-83* 

11-55* 

13 d51 

1£-;66 

13-742 

13-d39 

13-f21 



13-47 l3-a68 



4-835 
13-336 
13-' 50 
13-a71 
13-C23 
13-d24 
13-el6 
13-f 72 
13-h90 
13-j43 
13-L39 



13- 63 
13- 62 
32-18* 

4-835 
13-a98 
13-326 

32-19* 
32-7* 
4-835 



13-34 








13-911 


13-J98 


13-K13 


13-K15 


33-71 


33-72 


33-73 


33-74 


33-85 


33-86 


33-87 


33-88 


13-919 








13-D71 


13-D73 







13-375 
13-J45 
13-55 
l3-a76 
13-C24 
13-d33 
13-e25 
13-f73 
13-118 
1 3-i64 
13-140 



33-58 
33-75 



33-59 
33-76 



33-60 
33-77 



33-62 
33-78 



33-63 
33-79 



33-64 
33-80 



33-67 
33-81 



13-A06 
13-J46 
13-56 
13-a77 
13-C30 
13-d34 
13-e26 
13-f 79 
13-140 
13- J 88 
13-153 



13-262 
13-J52 
13-62 
13-a87 
13-C34 
13-d39 
l3-e43 
13-f 90 
13-141 
13-j89 
13-195 



13-Z69 
13-357 
13-'63 
13-a88 
13-C35 
13-d43 
13-e44 
13-f 91 
13-148 
13-i99 
13-196 



13-Z70 
13-358 
13-64 
13-a98 
13-C42 
13-d44 
13-e76 
13-g07 
13-152 
13-kOO 
13-m10 



13-Z76 
13-381 
13-68 
13-b02 
13-C43 
13-d51 
13-f 03 
l3-g08 
13-153 
13-k07 
13-m28 



13-Z81 
13-391 
13-69 
13-b03 
13-C58 
l3-d52 
13-f 04 
13-g86 
13-180 
13-k08 
13-m29 



13-Z82 
13-392 
13-92 
13-b24 
13-C84 
13-d69 
13-f 09 
13-h10 
13-i02 
13-k22 



13-C04 
13--42 
l3-a02 
13-540 
13-C93 
l3-d70 
13-fl3 
13-hl1 
13-; 03 
13-k26 



13-C12 
13-*70 
13-d03 
13-b41 
13-C94 
13-d77 
13-fl4 
13-h30 
l3-j10 
13-k27 



13-C13 
13-31 
13-a52 
13-b66 
13-C99 
13-d78 
13-f 21 
13-h54 
13-jl4 
13-k34 



9-110 13- 87 13-=98 13->00 13->19 13->23 



13--63 13-64 



13-- 50 
13-502 
13-346 



13-55 
13-503 
13-C37 



13-56 
13-C34 
13-C41 



13- 62 
i:-c35 
13-C42 



13- 63 
13-C42 
13-*16 



13- 64 
i;-c43 
13--20 



33-68 
33-8? 



23-1 
40-157 


26-88 
40-158 


32-11 
40-158 


40-98 
40-159 


40-147 


40-148 


40-149 


40-150 


40-151 


40-152 


40-153 


40-154 


13-633 
13-911 
13-851 


13-K42 


13-K57 


13-K59 


















11-63* 
13-d77 


13-614 
13-f 21 


13-C57 
13-h89 


13-C84 
13-j42 


13-D37 
l3-k34 


13-P41 


13-R37 


13-S25 


13-gl9 


13-g21 


13-g24 


13-k58 


13-783 
1 3-d43 
13-f 22 


13-Z07 
13-d44 
13-h89 


13-Z11 
13-d51 
13-h90 


13-Z12 
13-d52 
13- J 30 


13-\77 
13-d69 
13-i34 


13-\81 
13-d70 
13-j35 


13-\82 
13-d77 
13-j42 


13-68 
13-378 
13-j43 


13-72 
13-396 
13-k22 


13- 73 
1 5-397 
13-k26 


13-a98 
13-f 09 
13-k27 


13-502 
13-fl3 
13-k34 



13-C61 
13- 40 
13-a61 
13-567 
13-dC3 
13-d96 
13-f 22 
13-h55 
13-jl5 
15-k35 



13- 68 13- 69 13-a71 13-a76 13-a77 13-a87 
13-*21 13-a27 13-a31 13-a32 13-h77 13-h81 



13-=96 13->21 13-E73 13-f 09 13-F 35 13-f 36 13-G29 13-G66 13-667 13-H79 13-103 13-104 
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nuD 

MWP 

MXF 
N 

NDTMSK 

NED 

NEM 

NONE 

NOP 

NOTAVL 

NOTPRS 

NOTW 

NSA 

OCC 

OFD 

OFFSET 

on 

ONES 

OPE 

OPI 



OR 

PACACK 
PAKACK 
PAR 
PAT 

PCLOCK 

PCOUNT 

PDA 

PFECH 

PFEChI 

PFECH2 

PFECH3 



13-155 
13-M23 
13-016 
1 5-Q35 
13-S53 
13-Y08 
1 3-Z62 
13-C41 
13-302 
13-*02 
13- 68 
1 3-"63 
1 3-a61 
13-b66 
13-C9A 
13-d97 
13-K8 
l3-h55 
13-147 
13-j30 
13-k26 
13-!n29 
4-831* 
4-813* 
4-936* 

10- 19 
4-781* 
4-933* 
4-934* 

11- 7 
4-698* 
9-117 
9-114 
9-108 
4-839* 
4-819* 
4-852* 
4-704* 
4-760* 

35-21* 
4-877* 
4-766* 

13-- 17 

33-63 

33-77 
4-938* 
4-708* 
4-707* 
4-776* 
4-941* 

15-13 

15-15 
4-826* 

26-67 

26-172 

26-172 

26-172 



13-184 
1 3-M24 
13-025 
1 3-R02 
13-S82 
13-Y09 
13-Z69 
13-[42 
13-D12 
13-*03 
13-^72 
13-'64 
1 3-a62 
13-b67 
1 3-d24 
13-e16 
13-f72 
13-h60 
13-148 
13-i 34 
13-k27 
16-16 

1 3->61 

32-30* 

9-88 

32-1 7* 
13-F59 
32-27* 
32-26* 

32- 24* 

13-L21 
13-786 
13-H20 
13-052 

13-890 
13-703 
13-C61 

33- 64 
33-78 

13-K 72 
4-708 
13-687 
13-: 30 
15-51* 
15-68* 

26-1 72* 
26-1 73* 
26-176* 
26-179* 



13-J85 
13-M65 
1 3-026 
1 3-R09 
1 3-S90 
13-Y55 
13-Z70 
13-C61 
13-D13 
13-*16 
13- 73 
13-'68 
13-a68 
13-C14 
13-d33 
13-e25 
13-f73 
1 3-h64 
13-i 52 
13-i 35 
13-k 34 
17-14 



13-9 
13-F63 



13-J94 
13-M69 
13-059 
13-R10 
13-U67 
13-Y62 
13-Z75 
13-C85 
13-336 
13-*20 
13- 96 
13-'69 
13-a71 
13-C23 
1 3-d34 
13-P26 
13-f78 
13-h65 
13-i 53 
13-i 42 
13-k35 



13-^ . 
13-M70 
13-062 
13-R51 
1 3-U70 
13-Y63 
13-Z76 
13-C86 
13-345 
13-*21 
13- 06 
13-92 
13-a76 
13-C24 
13-d39 
l3-e43 
13-f79 
13-h71 
13-i 80 
13-i43 
13-k99 



13-K11 
13-N03 
13-C63 
13-R55 
13-U71 
13-Y93 
13-Z81 
l3-\20 
13-346 
13-*42 
13-07 
13-a02 
13-a77 
13-C29 
13-d43 
13-e44 
13-t90 
13-h72 
13-j02 
13-] 64 
39 



13-1 

13-1 



13-K74 

13-N11 

1 3-092 

13-R56 

1 3-V02 

13-Z01 

13-Z82 

l3-\29 

13-351 

13--69 

13- 31 

13-a03 

13-a87 

13-C30 

1 3-d44 

13-e76 

13-f91 

13-h77 

13-i03 

13-188 

13-140 



13-<75 
13-N12 
1 3-095 
1 3-R96 
13-V39 
13-Z02 
13-C04 
13-\30 
13-352 
13-*70 
13-'40 
13-a08 
13-a88 
13-C34 
13-d51 
13-f03 
13-g07 
13-h81 
13-i 09 
13-i 89 
13-152 



13-K95 

13-N45 

1 3-096 

13-R99 

13-V63 

13-Z07 

13-C12 

13-\61 

13-357 

13-J1 

13-'41 

13-a13 

1 3-a98 

13-C35 

13-d52 

13-f04 

13-g08 

13-h82 

13-i 10 

13-i95 

13-153 



1 3-K96 

1 3-N58 

13-P55 

13-SOO 

13-W65 

13-Z11 

13-C13 

13-\71 

13-358 

13- 20 

13-"'47 

13-a14 

13-b02 

13-C42 

13-d69 

13-f09 

13-g86 

1 3-h89 

13-i 14 

13-i 99 

13-195 



13->82 13-X51 13-X59 13-X63 



13-25 
13-J14 



13-30 



13-44 



13-L16 

13-N59 

13-P57 

13-S34 

1 3-W71 

13-Z12 

13-C18 

13-\72 

13-381 

13-21 

13-' 50 

13-a27 

13-b03 

13-C43 

13-d70 

13-f13 

l3-h10 

l3-h90 

13-i 15 

13-kOO 

13-196 



13-L 73 


13-N18 


13-N22 














13-788 


13-084 


13-P10 


13-k61 


13-180 










13-J38 


13-060 


13-W96 


17-17 












13-069 


13-P02 


13-P32 


13-P60 


17-19 


17-21 








13-911 


13-h17 














13-323 


13-733 


13-Y77 


13-Y79 


13-246 


13-Z50 


13-\4/ 


13-\46 


13-319 


13-C66 


1 3-d08 


13-d10 


13-h15 


13-i 59 


13-i61 


33-57 


33-58 


33-59 


33-65 


33-66 


33-67 


33-68 


33-69 


33-70 


33-71 


33-72 


33-73 


33-79 


33-80 


33-81 


33-82 


35-83 


33-84 


33-85 


33-86 


33-87 


16-19 


16-28 
















13-F91 


13- J 50 


13-M48 














13-764 


1 3-766 


13-: 11 


13-: 27 


13-:43 










13-: 59 


13-: 42 

















13-L17 

13-N88 

1 3-P58 

13-546 

13-W72 

13-Z31 

13-C23 

13-\ 77 

13-391 

13-^52 

13-'55 

13-a31 

13-b24 

13-C58 

13-d77 

13-f14 

13-h11 

13-i 18 

13-i 20 

13-k07 

13-ffl09 



13- 35 
33-50 
33-74 
33-88 



13-L 56 
13-N96 
13-024 
13-S47 
13-X11 
13-Z39 
13-C24 
13-\81 
13-392 
13- 62 
13-' 56 
13-a32 
1 3-b40 
13-C84 
13-d78 
13-f21 
1 3-h30 
13-140 
13-j24 
13-k08 
13-ffl1G 



SEQ 0509 

13-f.06 
13-N97 
1 3-034 
13-S52 
1 3-V05 
1 3-Z40 
13-[37 
1 3-\82 
13-397 
13-63 
13-'62 
13-a52 
13-b41 
13-C93 
13-d96 
13-f 22 
13-h54 
13-i41 
13-i 25 
13-k22 
13-m28 



13- 57 13-' 13 
33-51 33-62 
33-75 33-76 



CZRMPiiO RM05/5/? OStCLS TST 1 MACRO V04.00 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



L 8 

4-APR-81 01:24:^5 PAGE S-*?4 



SEO 0510 



DEC ruL 


to 1 » c 


7A-iR1# 








ore 


*i— " J 






13-U18 


13-U47 


prjM 

rVjrl 


*♦ r JO* 




13-T89 


r nA^ 


oc ' ^ 






1 3-989 


1 3-A04 


Kir 






1 3-387 


D 1 Dn 


OOc* 










rlKUVt 


OOc* 










Di ri ^ 












Dl C C 
rT r i 


L-tk'^LM 


1 J OJ* 








O* c TD 


1 JO ■ 








HkU 




1 1 —AO 








rK 1 


*t~OOc» 






















KM 5 


























H— ooc* 






13-<70 


15-9 


PDA 




9-P6 


13-<27 


007 


H— OOc* 


1S-A0 








PC 
























DC Tnp 


1 J 1 M 


1 J Ov* 




















PUTBUF 


7-n« 






30-1* 


30-1* 


rWnvt t 


A— AflPir 

*t~OOcw 


Q— PX* 

T^C J" 


m IT ^ 






9-23* 


9-23* 








9-23 




ft r 








13-X58 


13-C89 


nil 




1 3-G03 


13-079 










29-1* 


onruD 

HUL MK 






10-82 

1 V vc 


27-1 


OrtI TKI 
KUL Inl 


CO 1 


P9-1* 


29-1* 






D'Vir T 


10-35 


10-49 






KUT 


A-QP5ir 




14-PO 






KtADT 




14-1 A 






READY1 


1 1 J J 


1 1 —LfJt 
\ 1 *40W 




li-V58 


13-Y96 




4-701 iff 


1 3-Hl 7 


13- J 26 


DP ^PP 
KC jFtC U 


PA-1 

CO 1 


P9-1* 








oc c wc r 

KtiWCl. 


A— Afl7/f 




1 ^-vl 7 

1 J 1 1 r 


13-Y22 




DC V 


A— R?Pir 

*t Occ* 


1 J A 7 1 


13-e34 


D^ 


^-Rpn« 

H OcU^ 


1 ^-pfl7 

1 J r Of 


1 3-005 


13-e32 


1^-1^1 

1 J U 1 


13-1 88 


l3-i93 


l3-j74 


l3-j79 


RftDTPT 


35-3# 










DU 
Kri 




1 ^-r,i 1 


1 3-070 




13-M45 


DIP 




'I3-F83 


13- J 46 


13-K93 


PI PA^F 




13-F75 


13- J 32 


13- J 34 


13-T77 






13-58 


13-387* 


13-T15 


13-U14* 
















7-0* 






l3-k96* 






*» — TO^* 


1^-54 


1 3-S40* 




RMBAE 


A-07Pif 










OMOAC f 


( — 








RMBAFO 


7-0* 










Rf«A] 


7-0* 




i3-k96 






RMBAO 


7-0* 


13-k64* 


13-78* 


13-85 


RMCS1 


A-892* 


4-967* 


9-90 


13-617* 


13-619 


13-624 


13-630* 


13-631* 




13-671 


13-:65 


13-<85* 


13—08* 


13-=11 



13-A08 



15-16 



15-30 15-61 



13-e86 
13-107 



13-N55 
13-UC6 
13-V09* 



13-e91 
13-112 



13-N94 
13-U35 
13-V23 



13-111* 

13-632 

13-COO* 



13-g91 13-h35 13-i'21 13-i83 13-j'69 



13-f58 13-f63 13-g96 13-h01 13-h40 l3-h45 13-i26 



13-023 13-X62 
13-U68 

15-V29 13-V60* 



13-V74* 13-V93* 13-U16* 13-W42 



13-119 
1 3-637 
13-C41* 



13-165* 
13-643* 
13-D03* 



13-172* 
13-644* 
13-D67* 



13-180 13-221* 13-229 13-430* 13-549 
13-645 13-651 13-663* 13-664* 13-665 
13-E80* 13-E81 13-F29* 13-G37* 13-G38 



1 J nOO" 


1 '<-l-lRQ 
1 J noT 


1 ^-ins 

1 J J VJ 


1 3-1 7P* 


1 3-X09* 


1 3-K48* 


1 3-IC7?* 




1 J L/C J 


1 3-n^o* 


1 3-093* 


13-P56* 


1 3-P85* 


13-028* 




I J UvO 


17.1 l^S* 

1 J \JJJ 




13-V42* 


1 3-U48 


1 3-IJ68* 




1 J L C — 




1 3-r64* 




1 3-\66* 


13-\85 


13- 57* 


13- 76 


13-'01* 


13- 36* 


13--97* 


13-a19 


13-a35 


1 3-i21 * 


13-i81* 


13-f53* 


13-g91* 


13-h35* 


13-121* 


13-183* 


13-85* 


13-93* 


13-119* 


13-124* 


13-126 


13-180* 


13-189* 


13-k62* 


13-102 












9-85* 


9-86* 


9-88 


11-57* 


11-58* 


13-8 


13-15 


18-10* 


18-11* 












13-: 00* 


13-:01* 


13-: 24 


13-: 30 


13-:39 


13-:42* 





CZRMPBO RM05/3/2 OSKLS TST 1 MACRO V04.00 4-APR-81 
CROSS REFERENCE TABLE (CREF VOI-05 ) 

13-G68 

13-N55* 

13-T77* 

13-265* 

13- 16* 

13-iOO 
RMCSII 7-0# 
RHCS10 7-0# 
Rf1CS2 4-970# 

13-<29 
RMCS2I 7-0# 
RMCS20 7-0* 
RHCS3 4-973* 
RMCS3I 7-0# 
RMCS30 7-0# 

RMDA 4-895# 13-79* 

13-412 13-467* 

13-: 86 13-; 03* 

13-679 13-696* 

13-Q97* 13-R47* 

13- 12* 13- 53* 

13-F34* 13-T12* 

RMDAI 7-0* 13-86* 

13-471* 13-473 

RMDAO 7-0* 13-C27* 

13-P42* 13-P52 

13-S38 13-S68* 

RMOB 4-971* 13-60 
RMDBI 7-0* 
RMOBO 7-0* 

RMDC 4-902* 13-80* 

13-447* 13-453 

13-; 69* 13-; 70* 

13-044 13-056* 

13-*44* 13- 13* 

13-g90* 13-Fi33* 

RHDCI 7-0* 13-87* 

13-377 13-433* 

RMDCO 7-0* 13-R87* 
RMDS 4-894* 9-87 

13-371 13-376 

13-G93 13-G96 

13-077 13-POl 

13-V16 13-V43 

13-Z92 13-J63 
RMDS I 7-0* 
RMDSO 7-0* 
RHDT 4-899* 9-93 
RMDTI 7-0* 
RMDTO 7-0* 

RMECl 4-906* 13-450* 
RMECII 7-0* 
Rf«Cl0 7-0* 

RMEC2 4-907* 13-62 
RMEC2I 7-0* 
RMEC20 7-0* 

PMEP1 4-895* 13-112* 



M 8 

01:24:25 PAGE S-25 



SEQ 0311 



13-K93* 
13-R05* 
13-X17* 
13-:07* 
13-a57* 
13-i69* 
13-193* 

13-25 



13-L14* 

13-R52* 

13-Y06* 

13-341* 

13-b06 

13-102* 

13-199 



13-L85* 

13-R97* 

13-y58* 

13-386* 

13-629* 

16-19* 

13-229* 



1 3-M20* 

13-S41* 

13-y96* 

13-*08 

13-C19* 

17-17* 

13-237* 



1 3-M68* 

13-S87* 

13-215 

13-*24 

13-C89* 

13-242 



13-N06* 

13-T51 

13-234* 

13--47* 

13-d29* 



13-29 13-36 13-44 13-56 13-:24* 



13-86 

13-471 

13-; 04* 

13-C06 

13-R93* 

13- 97* 

13-T74* 

13-95 

13-488* 

13-C38 

13-R37* 

13-k58* 



13-87 
13-485* 
13-; 71 
13-P30* 
13- 54* 
13-T11* 
13-97* 
13-437* 
13-R92 
9-110 
13-386 
13-K78 
13-P21 
13-V48 
13-368 



13-166* 

13-484* 

13-; 05 

13-C38* 

13-538* 

13-' 32* 

13-j67* 

13-181* 

13-<.91 

13-C60* 

13-R38* 

13-k59* 



13-176* 

13-499* 

13-; 87* 

13-020* 

13- 98* 

13-T75* 

13-184* 

13-438 

13-S11 

13-469* 

13-A03 

13-K85 

13-P31 

13-V64 

13-' 74 



13-173* 

13-488 

13-; 10 

13-C48 

13-T21 

13-- 93* 

13-k87* 

13-194* 

13-: 86* 

13-C62* 

13-R47 

13-k87 



13-184 

13-505 

13-; 88* 

13-098* 

13- '33* 

13-i68* 

13-191* 

13-453* 

13-S17* 

13-501* 

13-D34 

13-K99 

13-P44 

13-V68 

13-79 



13-181 
13-503* 
13-; 14* 
13-DOO* 
13-U43* 
13-a53* 

13-200 
13-: 88 
13-C84* 
13-R67 
13-188 



13-218* 
13-: 83* 
13-; 91 
13-R46* 
13--94* 
13-k88* 
13-197* 
13-459* 
13-S18 
13-=81 
13-D52 
13-L06 
13-P59 
13-V76 
16-20 



13-216* 

13-568* 

13-; 15* 

13-D49* 

13-W45 

13-b25* 



13-222* 

13-569* 

13-; 16 

13-N50* 

13-y03* 

13-C18* 



13-230 

13-579* 

13-; 21 

13-N64 

13-\21* 

13-C87* 



13-263* 
13-580* 
13-; 28* 
13-019* 
13-\62* 
13-d27* 



13-270 

13-595* 

13-; 29* 

13-031 

13-303* 

13-e19* 



13-384* 

13-596* 

13-; 30 

13-C35 

13-337* 

13-e79* 



13-390 
13-: 82* 
13-; 35 
13-P52* 
13-382* 
l3-f51* 



13-C85* 
13-R73 



13-224* 
13-: 85* 
13-C82 
13-R92* 
13-a54* 

13-203 

13-460 

13-k57* 

13-=86 

13-070 

13-L61 

13-T34 

13-V80 

16-24 



13-DOO 
13-R75* 



13-232 
13-: 87 
13-C89* 
13-S37* 
l3-b26* 

13-232* 

13-505* 

l3-k88 

13-=97 

13-D88 

13-L62 

13-T43 

13-V97 

17-18 



13-D27* 
13-R76 



13-265* 
13-; 47 
13-008 
13-Y04* 
13-C17* 

13-239* 

13-509 

13-135 

13->09 

13-D95 

13-L67 

13-T60 

13-U02 

17-23 



13-037* 
13-R78* 



13-272 
13-; 50* 
13-048* 
13-\22* 
13-C88* 

13-245 
13-510 

13->18 
13-E05 
13-L99 
13-T65 
13-U22 



13-D38* 
13-R80* 



13-369* 
13-; 51 
13-N51* 
13-\63* 
13-d28* 

13-272* 
13-: 87* 

13->46 
13-E21 
13-M09 
13-T88 
13-W29 



13-049 
13-R81 



13-373 
13-; 59* 
13-fl67 
13-304* 
13-€20* 

13-289 
13-: 90* 

13->52 
13-E46 
13-fl27 
13-U17 
13-W77 



13-080* 
13-525* 



13-429* 
13-; 60* 
13-020* 
13-338* 
13-e80* 

13-373* 
13-:91 

13->62 
13-G53 
13-051 
13-U46 
13-W81 



11-59 13-448* 13-523 13-541 13-T33 13-U76 26-26 



13-411* 13-<40 



1 3-406* 
13-:84* 
13-620* 
13-019* 
l3-*43* 
13-g89* 



13-230* 13-243 13-270* 13-279 13-390* 13-393 13-412* 15-415 



13-P41* 
13-526* 



13-433 
15-; 61 
13-040 
13-383* 
13-T52* 

13-376* 



13->79 
13-G58 
13-068 
13-V12 
13-287 



13-120 13-142* 13-147 13-167* 13-174* 13-182 13-225* 13-233 13-266* 15-273 13-368* 13-372 



lZRMPBO RM05/3/2 DSKLS TST 1 
CROSS REFERENCE TABLE (CREF VOI- 



MACRO V04.00 

•05 ) 



A-APR-81 01 



N 8 

:24:25 PAGE 



RMERII 



RMERIO 
RMER2 



RMER21 



RMER20 

RMHR 

RMHRI 

RMHRO 

RMLA 

RMLAI 

RMLAO 

RMMR1 



13-428* 

13-714 

13-<11 

13-EA2* 

13-M07* 

13-S10 

13-YlA* 

13-\W* 

13-- 3A* 

13-g87* 

13-432* 
13-732 

7-0# 

A-905# 
13-A08* 
13-926* 
13-aiO 
13-E75* 
13-fl08* 
13-C63* 
13-C16* 

7-0* 
13-299 
13-881 

7-Oit 

4-903* 

7-0* 

7-0* 

4-897* 

7-0* 

7-0* 

4-898* 
13-=63 
13-777* 
13-A43* 
13-C04* 
13-E17* 
13-103* 
13-K38* 
13-fl05* 
13-N58* 
13-095* 
13-R10* 
13-T18 
13-W71* 
13-Y63* 
13-Z69* 
13-C42* 
13-\81* 
13-J92* 
13-28* 
13-'47* 
13-a14* 
13-a94 
13-C34* 
13-d33* 



3-432 

3-720 

3-<16 

3-E74* 

3-M73 

3-S56 

3-r56* 

3-D05* 

3-' 95* 

3-h14 

3-120* 

3-434* 

3-K66* 

3-113* 

3-414 

3-927* 

3-314* 

3-F11* 

3-N47* 

3-\24* 

3-c86* 

3-121* 

3-392* 

3-889 

3-371 * 
3-: 64* 
3- .02* 
3-409* 



3-144* 
3-=85* 
3-?79* 
3-A44* 
3-C05* 
3-E41* 
3-104* 
3-K55* 
3-M06* 
3-N59* 
3-096* 
3-R51* 
3-U67* 
3-W72* 
3-r68* 
3-Z70* 
3-C61* 
3-\82* 
3-J97* 
3- 29* 
3-'50* 
3-a27* 
3-a98* 
3-c35* 
3-d34» 



13-445* 

13-728 

13-<46 

13-F10* 

13-M80 

13-360 

13-Y76 

13-318 

13-a55* 

l3-h19 

13-128 

13-435 

13-K71 

13-121 

13-449* 

13-928 

13-ai5 

13-G31* 

13-N90* 

13-\65* 

13-d26* 

13-125* 

13-398* 

13-897 

13-410* 

13-:04* 



13-149 
13-=95* 

i3-ai3* 

13-A45* 

13-C39* 

13-E72* 

13-148 

13-K74* 

13-«23* 

13-N87* 

13-P55* 

13-R55* 

13-U70* 

13-X12* 

13-r70* 

13-Z75* 

13-C85* 

13-J02* 

13--02* 

13-^52* 

13-'55* 

13-a31* 

13-502* 

13-C42* 

13-d39* 



13-451 

13-737 

13-715* 

13-G30* 

13-N46* 

13-375 

13-Y81 

13- J 22 

13-b27* 

13-h31* 

13-147* 

13-451* 

13-K81 

13-143* 

13-468* 

13-954* 

13-325* 

13-H81* 

13-P79* 

13-] 06* 

13-e18* 

13-130 

13-399 

13-907* 

13-562 

13-: 25 



13-370* 

13-=96* 

13-324* 

13-A46 

13-C40* 

13-E73* 

13-154* 

13-K75* 

13-«24* 

13-N88* 

13-P57* 

13-R56* 

13-U71* 

13-X20* 

13-V71* 

13-Z76* 

13-C86* 

13-312* 

13--03* 

13-,62* 

13-' 56* 

13-a32* 

13-503* 

13-C43* 

13-d43* 



13-483* 

13-743* 

13-725 

13-H80* 

13-N89* 

13-383* 

13-y94* 

13-339* 

13-C15* 

13-i19* 

13-150* 

13-454 

13-K92 

13-148 

13-472 

13-955 

13-327 

13-157* 

13-584* 

13-D40* 

13-e78* 

13-148* 

13-414* 

13-910 

13-570 

13-:37 



13-=22 

13->16* 

13-326* 

13-A54* 

13-C44* 

13-F08* 

13-155* 

13-K95* 

13-M65* 

13-N96* 

13-P58* 

13-R96* 

13-U99* 

13-X22* 

13-Y93* 

13-Z81* 

13-\20* 

13-313* 

13-- 16* 

13- 63* 

13-'62* 

13-a52* 

13-624* 

13-C44 

13-d44* 



13-487 

13-74^* 

13-730 

13-J56* 

13-017* 

13-593 

13-Z32* 

13-384* 

13-C60 

13-i53 

13-182* 

13-487* 

13-L02 

13-169* 

13-486* 

13-: 10 

13-341* 

13-J87 

13-V01* 

13-385* 

13-f50* 

13-152* 

13-420* 

13-918 

13-581 

13-:44* 



13-=27 

13->17* 

13-340* 

13-A55* 

13-C45* 

13-f09* 

13-160 

13-K96* 

l3-fl69* 

13-^7* 

13-P71 

13-R99* 

13-V02* 

13-X90 

13-Z01* 

13-Z82* 

13-\29* 

13-336* 

13-*20* 

13-68* 

13-'63* 

13-a61* 

13-540* 

13-C52 

13-d51* 



3-502* 

3-745 

3-''58 

3-J95* 

3-018* 

3-VOO* 

3-Z45 

3--45* 

3-C68 

3-163 

3-195* 

3-489 

3-L13 

3-177* 

3-500* 

3-708 

3-343 

3-J96* 

3-V38* 

3-*46* 

3-g88* 

3-185* 

3-421 

3-928* 

3-597 
3-: 52* 



13-=35* 

13->51* 

13-342* 

13-A56 

13-001* 

13-F35* 

13-184* 

13-L16* 

13-«70* 

13-015* 

13-P76* 

13-SOO* 

13-V36* 

13-X9A 

13-Z02* 

13-C04* 

13-\30* 

13-345* 

13-*21* 

13-,72* 

13-'64* 

1 3-a62* 

13-641* 

13-C58* 

13-d52* 



13-682* 

13-750 

13-763 

13-X39* 

13-P78* 

13-V37* 

13-Z49 

13- 14* 

13-C85* 

13-181* 

13-201 

13-685* 

13-L23 

13-185 

13-506 

13-714* 

13-895* 

13-J97 

13-V59* 

13- 15* 

13-R32* 

13-192* 

13-472* 

13-930 

13-:25* 

13-: 58* 



l3-=36* 
!3->60* 
13-374* 
!3-A71* 
13-002* 
!3-F36* 
13-185* 
!3-Ll7* 
I3-N03* 
13-016* 
I3-P77* 
I3-S34* 
!3-V39* 
!3-V05* 
I3-Z07* 
!3-C12* 
!3-\35* 
13-346* 
l3-*42* 
I3-.73* 
l3-'68* 
l3-a68* 
13-666* 
I3-C84* 
l3-d53 



3-685 

3-762* 

3-894* 

3-<71* 

3-Q40 

3-V58* 

3-Z63* 

3-34 

3-307 

3-i65* 

3-233* 

3-686 

5-LZ5 

3-226* 

3-868 

3-716 

3-D66* 

3-K12 

3-V92* 

3-,56* 

3-T20* 

3-198* 

3-475* 

3-938 

3-: 61* 

3-: 61 



13-=37 

13->61* 

13-375* 

13-A72* 

13-006* 

13-628* 

13-186 

13-L20 

13-N11* 

13-025* 

13-P86 

13-S46* 

13-V57* 

13-V08* 

13-Z11* 

13-C13* 

13-\37* 

13-351* 

13-*69* 

13-,96* 

13-'69* 

13-a71* 

13-667* 

13-C93* 

13-d61 



13-691 

13-763 

13-D65* 

13-K92* 

13-R15 

13-V91* 

13-C05* 

13- 39 

13-312 

13-100* 

13-246 

13-694 

13-L42* 

1 3-234 

13-874* 

13-743 

13-D94* 

13-K33 

13-Y57* 

13-00* 

13-f82* 

13-204 

13-476 

13-:10* 

13-: 64 

13-: 73 



13-=46* 

13->77* 

13-385* 

13-A73 

13-007* 

13-G29* 

13-J93* 

13-L27 

13-N12* 

13-026* 

13-024* 

13-S47* 

13-V63* 

13-r09* 

13-Z12* 

13-C18* 

13-\58* 

13-352* 

13-*70* 

13-06* 

13-92* 

13-a76* 

13-C14* 

13-C94* 

13-d69* 



1 3-699 

13-774 

13-D93* 

13-L13* 

13-R22 

13-V96* 

13-C62* 

13- 55* 

13-325* 

16-17* 

13-273* 

13-702 



13-267* 

13-878 

13-747 

13-E04* 

13-K40* 

13-V95* 

13-35* 

13-i66* 

13-234* 

13-506* 

13-: 15 



42-6 



13-707 

13-:09 

13-E03* 

13-L57* 

13-R61 

13-W15* 

13-\23* 

13- 99* 

13-e17* 

17-15* 

13-295 

13-714* 



13-274 

13-905* 

13-778* 

13-E19* 

13-K41 

13-Z33* 

13-96* 

13-101* 

13-240* 

13-512* 



13-712* 
13-:14 
13-E18* 
13-L84 
13-R66 
13-X27 
13-\43 
13- 12 
13-e77* 

13-372* 
13-715 



SEO 0312 

13-713* 
13-:26 
13-E20* 
13-L88 
1 3-S05 
13-X33 
13-\48 
13-16 
13-f49* 



13-386* 

13-906* 

13-780 

13-E43* 

13-K56 

13-Z64* 

13-a56* 

16-18* 

13-247 

13-513 



13-374 
13-723 



1 3-592 

13-907 

13-789 

13-E44* 

13-LS8* 

13-C06* 

13-628* 

17-16* 

13-274* 

13-878* 



13-=47* 


13-=48 


13-=61* 1 


13->78* 


13-713* 


13-741* 1 


13-AOl* 


13-A02* 


13-A30 1 


13-812 


13-621 


13-893* 1 


13-064* 


13-068* 


13-069* 1 


13-G66* 


13-G67* 


13-H78* 1 


13-J94* 


13-KlO* 


13HC11* 1 


13-L55* 


13-L56* 


13-L72 1 


13-N17 


13-N27 


13-N44* 1 


13-059* 


13-062* 


13-063* 1 


13-034* 


13-035* 


13-R02* 1 


13-552* 


13-S53* 


13-S81* 1 


13-V75* 


13-V90* 


13-U14* 1 


13-V16 


13-Y24 


13-Y55* 1 


13-Z31* 


13-Z39* 


13-Z40* 1 


13-C23* 


13-C24* 


13-C37* 1 


13-\61* 


13-\71* 


13-\72* 1 


13-357* 


13-358* 


13-381* 1 


13-Jl* 


13- 20* 
13-'31* 


13-^21* 1 
13-'40* 1 


13-'07* 


13-a02* 


13-a03* 


13-a08* 1 


13-a77* 


13-a84 


13-a87* 1 


13-C23* 


13-C24* 


13-C29* 1 


13-C99* 


13-d03* 


13-d04* 1 


13-d70* 


13-d77* 


13-d78* 1 



l3-=62* 
13-742*' 
I3-A35 
13-899*^ 
13-092** 
I3-M79W 
I3-K37^ 
I3-L76 
I3-N45^ 
l3-092^ 
I3-R09^ 
I3-S82^ 
l3-y65^ 
I3-Y62«( 
I3-Z62^ 
I3-C41^ 
l3-\77^ 
I3-39H 
13- 264 
I3-'411 
l3-al34 
l3-a884 
l3-c30^ 
l3-d24^ 
l3-d84 
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B 9 

4-APR-81 0': Part's daGE S-27 



SEQ 0515 



RMMRI I 
RMW10 
RMW2 



RMMR21 
RMW20 
RMOF 



RMO^ I 



RMOFO 



RMR 
RMSN 
RMSNI 
RMSNO 

Rnuc 
Rnuci 

RMWCO 
RQA 

ROB 

RTC 

SA1 

SA16 

SA2 

SM 

SA8 

SAOnSK 

SAVREG 

SC 

SCO 

SCI 

SC2 

SC3 

SC4 

SCOPE 



1 3-d89 

l3-t04* 

'5-t79* 

13-h5b« 

13-i25 

l3-i10* 

13-; 73 

13-k34* 

13-m10* 

7-0# 

7-0# 

4-90A* 
13-U77 
13-157 

7-0# 

7-0# 

4-901 # 
13-413 
1 3-824 • 
' 5-D50* 
•> 3-R48* 

7-0# 
13-596 
13-836 

7-0# 
13-C67* 
13-S67* 

C-771» 

4-900# 

7-0# 

7-0# 

4-968# 

7-0# 

7-0# 

4-863# 
13-133 

4-864# 
13-133 

4-705# 

i,-73SM 
4-74 1# 
4-740# 
4-739# 
4-746# 
26-13 
4-919# 
4-795# 
4-794# 
4-793# 
4-792# 
4-791* 
4-682# 
13-864 
13-a66 
13-K64 
1 3-R35 



1 3-d96« 

l3-t09« 

13-t90* 

1 3-h60* 

13-i33 

13-i14* 

13- J 81 

l3-k35» 

1 3-m28* 

13-149« 

1 3-389* 

13-U91 

13-ffl02 



13-81* 

13-446* 

13-825 

13-D51 

13-S35* 

13-88* 

13-413* 

13-870* 

13-C83* 

13-k61* 

13-687 

13-388* 



13-52 

13-k63* 

13-T81 

13-171 

13-T81 

13-171 

13-H23 



29-1* 



13-1 

13-973 

13-A26 

13-L96 

13-R85 



1 3-d97. 

l3-tl3* 

13-t91* 

i3-h64* 

l3-i40* 

13-i15* 

13-188* 

13-k35 

13-fn29* 

13-154 

13-F02 
1 3-C68 
13-fnH 



15-88 

13-452 

1 3-850* 

13-E45* 

13-S36 

13-99* 

13-417* 

13-877 

13-C98 

13-k71* 

13-716 

13-431* 



l3-e16« 

13-t14* 

13-g07* 

13-fi65* 

13-141* 

13-i20* 

13-)89* 

1 3-k46 

16-15* 

13-821* 

13-F15 
13-1:74 
13-«n34 



13-168* 
13-470* 
13-851* 
13-N52* 
13-k89* 
13-183* 
13-418 

13-953 
13-D24 
13-k89 
13-S94 
13-977 



13-339* 13-k95* 



13-k95 
13-T92 

13-TQ2 

13-J42 



13-U10 
13-U10 
1 3-093 



13-73 
13-996 
13-808 
13-M56 

13-S22 



13-106 
13-: 49 
13-876 
13-M92 
13-S72 



13-e25* 

13-t21* 

13-g08* 

l3-h71* 

13-147* 

13-i24* 

13-195* 

13-k99* 

16-16* 

13-822 

13-F41 
13-*51 



13-175* 
13-498* 
13-852 
13-N70 

13-190* 
13-452* 

13-813* 

13-D26* 

13-180 

13-S99 

13-981 



13-U21 
13-U21 
13-W97 



13-137 
13-: 77 
13-C78 
1 3-N40 
13-T29 



13-e26* 

13-f22* 

, 3-g86* 

13-R72* 

13- 148* 

13-i25* 

13-199* 

13-106 

17-14* 

13-843 

13-T80 
13--58 



13-183 
13-504 
13-877* 
13-N82 

13-196* 
13-456* 

13-818 
13-D36* 

13-T22 
13-985 



13-U39 
13-U39 



13-159 

13-: 97 
13-031 
13-N79 
13-T47 



13-e31 

13-t23 

1 3-g95 

13-F177' 

13-152* 

i3-i30* 

13-kOO* 

13-114 



13-y43 



13-U50 
13-U50 



13-329 
13-;41 
13-D84 
13-009 
13-170 



13-e36 

l3-f3^ 

13-h03 

13-h81* 

13-i55* 

l3-j34* 

13-k07* 

13-139* 



15-e43* 
l3-t48* 
15-h10* 
13-h82* 
15-180* 
13-i35* 
13-k08* 
13-l',0* 



13-e44* 

l3-t57 

13-h11* 

13-h89* 

l3-i87 

13-i42* 

13-k09 

13-152* 



l5-e76* 

13-t65 

13-h30* 

1 3 •h90* 

13-195 

13-143* 

13-k17 

13-153* 



1 3-e85 
13-f72* 
1 3-h39 
l3-h91 
13-j02* 
13-j44 
1 3-k22* 
13-195* 



i3-e93 
15-f73* 
1 3-h47 
13-h99 
13-i03* 
13-j52 
1 3-k26* 
13-196* 



l3-t03* 
13-t78- 
13-h54« 
13-1 18* 
13-) 09* 
l3-j64« 
13-k27* 
13-fn09* 



13-T91 
13-b48 


13-T95 
13-b55 


13-U09 
13-es7 


13-U20 
13-e63 


13-U24 
13-f99 


13-U38 
13-g31 


M-U49 
13-122 


13-053 
13-145 


15-21 7* 
13-784* 
13-953* 
1 3-N91 • 


13-223* 
13-785 
13-81S* 
(3-002 


13-231 
13-790 
13-819 
13-084* 


13-264* 
13-798 
1 3-897* 
13-P09 


13-271 
13-802* 
13-898 
13-P14 


13-385* 
13-803* 
13-C37* 
13-P51* 


13-391 
13-804 
13-C98* 
13-021* 


13-407* 
1 3-823* 
13-'" 99 
15-099* 


13-202 
13-457 


13-231* 
13-504* 


13-238* 
13-507* 


13-244 
13-804* 


13-271* 
13-807 


13-283 
13-815 


13-391* 
13-825* 


13-395* 
13-828 


13-825 
13-D50 


13-843 
13-D77 


13-863 
1 3-D 79* 


13-865* 
13-E36* 


13-880* 
13-E45 


13-897 
13-S24* 


13-C37 
13-535 


13-C65 
13-S65 



13-U78 
13-U78 



13-U82 13-C69 
13-U84 13-C69 



13--52 13-649 13-e55 13-gOO 
13--52 13-649 13-e55 13-gOO 



13-521 
13-<03 
13-E64 
13-048 
13-T99 



13-546 
13-=02 
13-E99 
13-074 
13-U28 



13-557 
13-=19 
13-G20 
13-P18 
13-U58 



13-610 
13-=77 
13-H70 
13-P39 
13-U95 



13-677 
13->42 
13-145 
13-P66 
13-V33 



13-781 
13-703 
13-J84 
13-010 
13-V53 



13-794 
13-a05 
15-K30 
15-087 
15-V86 



C 9 
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13-W07 


1 5-W56 


'3-xOl 


1 3-X71 


1 3-V48 


17 V 1 


17 /M 

1 3-_01 


17 _ A7 

1 5-c07 


SCTMSK 


1,-797 M 










17 PkC^ 

13-R52 


1 7 r\A7 

1 3-R97 


17 1 y 

13-_16 


SEARCH 


A-71 1# 


13-F99 


13-135 


13-J62 


47 F 0 

13-058 




13-c19 










13-\66 




17 ^ / 1 

13-J41 


SEEK 


4-700# 


13-H14 


13-J22 


1 3-Q61 


17 \ 

13-\25 


17 T A7 

1 3-J07 


SETOM 


13-085 


1 3-P26 


1 3-P49 


17 ^17 

13-1 13 


17 J 7Z 

1 3- 1 76 


i 7 L OA 


17 1 7m 
1 f-l 3* 


I 3-U 1 H 


SETW 


13-W60 


13-M98 


1 7 /%C / 

1 5-054 


1 3-0 ''9 


1 3-OoT 


1 3-P^3 




13-U30 


13-U62 


1 3-W60 


13-X05 


1 7 wAO 

1 3-X98 


13-V50 


13-Y88 


•13-Z26 




13- J 30 


13-375 


1 3-* 36 


13-05 




1 7 OA 

1 3-_90 


1 7_ ■ OC 

1 3- C3 


1 7^ Oil 

13- 00 




13-e71 


13-t43 


1 3-q81 


1 7 

1 3-n25 


1 7 

13-1 06 


13-169 


17 i CO 

13-]59 


13-k82 


SHUT 


27-1 


27-1 


27-5* 












SIZCLK 


11-28 


15-5* 








13-328 


1 7 -\7A 


1 3-344 


SKI 


4-876* 


1 3-1 52 


13-956 


1 7 O 

1 3-958 


17 1 y 

i3-ai6 


SNGPRT 


4-844* 


1 3-524 


13-529 


17 r 7 y 

13-534 








17 7 

i3-3cy 


STACK 


4-682* 


9-23 


1 V 1 

13-1 


1 7 ^7 

13-73 


17 1 Ay 

13-106 


17 17 7 

13-137 


17 1 CO 

13-1 59 


13-794 


1 7 oy y 

1 3-864 


1 7 ri7T 

1 3-973 


1 7 nr^z. 

1 3-996 


1 5-: 49 


17 . 77 

15' : f f 


1 7_ . Q7 

1 3— :y/^ 


13— 




13-a05 


13-S66 


17 « iy 

1 3-A26 


13-608 


1 5-6 '6 


17 r 70 


1 7_f\71 

1 3-D31 


1 3-Do*i 
1 7_rtno 




1 3-K30 


1 3-K64 


1 7 1 r»y 

13-L96 




1 i-MV2 


1 7 iki/ A 

1 5-N4U 


1 7_u70 




13-087 


1 7 rk7C 

1 3-R35 


1 3-R85 


1 T C 

1 




1 7_T 


1 T_TA7 


1 3— 1 ' w 




• 3-V86 




1 3-W30 


1 3-XUl 


1 'S_w 71 


1 7— 0 
1 J-THO 


1 5-\ 1 U 


1 T_ fll 
1 J _v 1 


STANDA 


9-67 


10-5* 














START 


5-1 


9-17* 


1 1 77 

1 1-33 


11 J 
1 1-42 


27-5 








START1 


5-3 


f\ 1 y M 

9-14* 














START2 


9-15 


n 1 O M 

9-18* 














STKLMT 


4-682* 












1 5-C05 


1 3— C f 1 


STOPCL 


7-0* 


17 C 1 

13-K52 


1 5-P92 




13-V21 


1 7_v71 


1 3-n44 


1 T L.CA 

1 3-n50 


1 3- 1 30 


13-136 


1 3- 1 


1 7_<QB 


1 3-J 'O 


13" J 0*1 


suo 


4-682* 














SUOO 


4-682 


4-682* 














swoi 


4-682 


4-682* 














SW/02 


4-682 
















Sfc/03 


4-682 


y ^ DIM 

4-682* 














sy04 


4-682 


4-682* 














SW05 


4-682 


y ^ o ^ 

4-682* 














SU06 


4-682 


y o ^ M 














SW07 


4-682 
















SU08 


4-682 


/ ^D 














sy09 


4-682 
















SWi 


y y o ^ M 

4-682* 
















SUlO 


y ^ o ^ M 

4-682* 
















SWT 1 


4-682* 
















SW12 


4-682* 
















SWI 3 


4-682* 


26-14 














SWT A 


4-682* 
















SUi5 


















SU2 


4-682* 
















SW3 


4-682* 
















SW4 


4-682* 
















SW5 


4-682* 
















sy6 


4-682* 
















SU7 


4-682* 
















sy8 


4-682* 






























9-28 




SUR 


6-0* 


9-23 


9-23 


9-23* 


9-23* 


9-23* 


24-1 


24-1* 


24-1* 


24-1 • 


25-1 


25-1 


25-1 


2'?-1 


25-1 


SWREG 


5-1* 


9-23 


9-28 


27-1 


27-1 


27-1 






SVSTAT 


9-77 


32-20* 















SFQ 0314 



13-c75 


13-gr7 


13-k51 


14-9 






17 f ^ 

13-_57 


13- 01 


1 7 7y 

13- 36 


13- 97 


13-a57 


1 3-b29 


13-J86 


13-*47 










1 7 /sm 

13-091 


1 3-R40 


1 7 f\€tf\ 

1 3-R89 


17 ^71 

13-S31 


17 » 7*^ 

13-T72 


1 3-001 


13-Z57 


1^-299 


13-r56 


13-\14 


13-\55 


13-\96 


13-a46 


13-b18 


13-C09 


15-C79 


13-d19 


1 3-e1 1 


16-13* 












17 y 0 

1 3-348 












17 f 

13-521 


17 C 1 £. 

13-546 


17 r C 7 

13-557 


17 y 1 A 

13-610 


1 7 ^ 77 

1 3-677 


1 7 701 

1 3-781 


13-<03 


13-=02 


13-=19 


l3-=77 


13->42 


l3-?03 


13-E64 


13-E99 


13-G20 


13-H70 


13-145 


13-J84 


13-048 


13-074 


13-P18 


13-P39 


13-P66 


13-01C 


13-T99 


13-U28 


13-U58 


13-U95 


13-V33 


13-V53 


13-C07 


13-C75 


13-g77 


13-k51 






13-e90 


13-e96 


13-f62 


13-f68 


13-hOO 


13-h06 


13-111 


13-117 


15-14* 


15-28* 






24-1 


24-1 


24-1 


24-1 


24-1 


24-1 • 


26-14 


27-1 


27-1 


27-1* 


5C-1 


30-' • 



CZRMPBO RMOS/3/2 DSKLS TST 1 MACRO V04.00 4-APR-81 01 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



D 9 
:?4:25 PAGE S-^<^ 



5EQ 



TA1 


4-735# 


13-C28 


13-gl8 




TA16 


4-731# 


11-63 


13-g19 




TA2 


4-734# 


11-63 




TA4 


4-733* 


11-55 






TA8 


4-732* 








TADMSK 


4-745* 








TAG 


4-865* 


13-C96 


13-C97 


13-C98 




13-b88 


1 3-b90 


13-b91 


13-b92 




13-m51 


13-ffl52 


13-ffl53 


13-m54 




13-ffl96 
5-9* 








TAGAOR 


6-0 






TAP 


4-840* 








TBITVE 


4-682* 








TIME 


7-0* 


15-5»'* 


1 5-70* 


15-72* 


TKVEC 


4-682* 


27-1* 


27-1* 




TPVEC 


4-682* 








TRAPVE 


4-682* 


9-23* 


9-23* 




TRE 


4-920* 








TRTVEC 


4-682* 








TST 


4-866* 


13-F 16 


13-F18 


13-F 19 




13-qOO 
13-f* 


13-133 


13-171 




TST1 


24-1 






TST10 


13-546* 


24-1 






TST100 


13-U28* 


24-1 






Tsnoi 


13-U58* 


24-1 






TST102 


13-U95* 


24-1 






Tsno3 


13-V33* 


24-1 






TsnoA 


13-V53* 


24-1 






TST105 


13-V86* 


24-1 






TST106 


13-W07* 


24-1 






TST107 


13-W56* 


24-1 






TSTII 


13-557* 


24-1 






TST110 


13-X01* 


24-1 






Tsnn 


13-X71* 


24-1 






TST112 


1 3-Y48* 


24-1 






TST113 


13-\10* 


24-1 






TST1K 


13- 01* 


24-1 






Tsnis 


13-c07* 


24-1 






TST116 


13-C75* 


24-1 






TST117 


13-g77* 
13-610* 


24-1 






TST12 


24-1 






Tsnpo 


13-k51* 


24-1 






Tsn3 


13-677* 


24-1 






TSTK 


13-781* 


24-1 






TST15 


13-794* 


24-1 






TST16 


13-864* 


24-1 






TST17 


13-973* 


24-1 






TST2 


13-73* 


24-1 






TST20 


13-996* 


24-1 






TST21 


13-: 49* 


24-1 






TST22 


13-: 77* 


24-1 






TST23 


13-: 97* 


24-1 






TST2A 


13-; 41* 


24-1 






TST25 


13-<03* 


24-1 






TST26 


l3-=02* 


24-1 






TST27 


13-= 19* 


24-1 






TST3 


13-106* 


24-1 







13-C99 
13-b93 
13-m60 



13-\00 13-\01 13--87 
13-e55 13-g40 13-g41 
13-m61 13-m62 13-ni63 



13-*88 l3-*89 15-*90 13-*91 
13-g4? 13-g44 l3-g45 13-g46 
13-ni64 13-ni65 13-m92 13-m93 



13--92 l3-b87 
' 3-m49 1 3-<n50 
13-ni94 13-ffl95 



13-f 42 13-F 69 13-F 77 13-F 85 13-F 93 13-601 13-G09 13-t69 13--52 13-649 



« 
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StO 0^1^ 



TST 30 

TST31 

TST32 

TST33 

TST3A 

TST35 

TST36 

TST37 

TSTA 

TSTAO 

TSTA1 

TSTA2 

TSTA3 

TST44 

TSTA5 

TSTA6 

TST47 

TST5 

TST50 

TST51 

TST52 

TST53 

TST54 

TST55 

TST56 

TST57 

TST6 

TST60 

TST61 

TST62 

TST63 

TST6A 

TST65 

TST66 

TST67 

TST7 

TST70 

TST71 

TST72 

TST73 

TST7A 

TST75 

TST76 

TST77 

TSTNMB 

TSTQUE 



ryPBN 

TYPDS 
TYPE 



13-=77# 
13->A2# 
13-?03# 
13-a05# 
13-366* 
13-A26# 
13-B08# 
13-676* 
13-137* 
13-C78* 
13-D31* 
1 3-D84# 
13-E6A* 
13-E99* 
1 3-G20# 
1 3-H70# 
13-IA5* 
13-159* 
13-J84* 
13-K30* 
13-K64* 
13-L96* 
13-M56* 
13-M92* 
13-NAO* 
13-N79* 
13-329* 
1 3-009* 
1 3-OA8* 
1 3-07A* 
13-P18* 
13-P39* 
1 3-P66* 
13-010* 
1 3-087* 
13-521* 
13-R35* 
1 3-R85* 
13-322* 
13-S 72* 
13-T29* 
13-TA7* 
13-T70* 
13-T99* 
26-A4» 

7-0* 
13-610 
l3-=77 
13-H70 
13-P39 
13-U9S 
13-k51 
26-1A9 
U-20 

9-6 

9-130 
10-AA 



2A--' 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-'; 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

2A-1 

26-A5* 

11-8 

1 3-677 

13->A2 

13-IA5 

13-P66 

13-V33 

lA-11 

29-1* 

1A-20 
9-28 
9-133 

10-A8 



26-A7 

11-9* 

13-781 

13-703 

13-J8A 

13-010 

13-V53 

lA-13* 

26-1 A3 
9-A2 
9-1 3A 

10- 5 A 



26-1 59* 

11-50 

13-79A 

13-a05 

13-K30 

13-087 

13-V86 

iA-17 

29-1* 
9-A8 
9-135 

10-61 



11-58 

13-86A 

13-366 

13-K6A 

13-R35 

13-W07 

lA-17* 



9-53 
9-1A2 
10-62 



13-1 

13-973 

1 3-A26 

13-L96 

13-R85 

13-W56 

18-11 



9-59 
10-11 
10-6A 



13-73 

13-996 

13-608 

13-M56 

13-S22 

13-X01 



9-60 
10-16 
10-69 



13-106 
13-:A9 
13-676 
13-M92 
13-S72 
13-X71 



9-77 
10-17 
10-75 



13-137 
13-:77 
13-C78 
13-NAO 
13-T29 
13-YA8 



9-81 
10-19 
10-86 



13-159 
13-: 97 
13-D31 
13-N79 
13-TA7 
13-\10 



9-83 

10-20 
10-87 



13-329 
13-;A1 
13-08A 
13-009 
13-170 
13-01 



9-108 
10-28 
10-92 



13-521 
13-<03 
13-E6A 
13-OA8 
13-T99 
13-C07 



9-nA 
10-32 
10-101 



13-5A6 
13- 02 
13-E99 
13-07A 
13-U28 
13-C75 



9-117 

10- 3A 

11- 3 



1 3-557 
13—19 
13-G20 
13-P18 
13-U58 
13-g77 



9-123 
10-AO 

r-6 
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11-7 


n-u 


11-25 


11-50 


n-67 




25-1 


26-20 


26-21 
26-1 54 


26-59 


26-40 




26-1 34 


26-152 


27-1 


27-1 




27-1 


27-1 


27-1 


27-1 


27-1 


TVPOC 


9-8 


10-33 


10-47 


26-146 


27-1 


TYPON 


29-1 # 








11-69 


TYPOS 


9-45 


9-56 


9-82 


11-16 


UO 


4-94 5# 










ui 


4-94 5# 












4-94 5# 








15-721 


UMS 


4-765# 


13-150 


1 3-767 


1 5-769 


untmsk. 


4-949# 


13-12 
32-28* 


13-33 


15-: 01 


15-V06 


UNTOFF 


9-123 








UNTON 


9-133 


32-29* 








UPE 


4-932# 










USE 


4-888# 








15-L68 


W 


4-759# 


13->10 


1 3-<79 


15-lOO 


yATCH 


7-0» 


1 3-K49* 


13-K50 


15-P84* 


1 5-P90 


13-g98 


1 3-h38» 


1 3-h42 


13-i24» 


15-i28 


UC 


4-829# 








13-076 


WCD 


4-715* 


13-F71 


13-L14 


13-003 


WCE 


4-931 # 


33-77 


33-78 






UCEHI 


4-956# 










UCELO 


4-957# 










WCF 


4-774# 


4-781 


13-695 


13-724 




JCH 


4-716# 


13-F79 


13-067 




15-X50 


WD 


4-719* 


13-F87 


1 3-Q73 


15-541 


UH 


4-720# 


13-F95 


13-064 




55-81 


^LE 


4-76&r 


4-781 


13-X28 


15-X52 


WRL 


4-754# 


l3->53 


1 3->63 


15->65 


15->80 


XNUDC 


4-858* 


13-97 


13-191 


15-224 


15-259 




13-; 72 


13-; 90 


13-N68 


15-041 




XNUER2 


4-883* 


13-125 


13-192 


15-226 


1 5-240 


13-940 


13-963 


13-E49 




1 5-225 


XNUOF 


4-853* 


13-81 


13-99 


15-190 


13-829 


1 3-837 


1 3-838 


1 3-854 


1 5-N71 


XSIZ 


9-71* 


10-71 


10-102 




9-39» 


XXDP 


7-0* 


9-33* 


9-36* 


9-57 


¥ 


32-31* 










ZEROS 


35-38* 











I 

1 
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SEO 051/ 



1 1 — 

1 1 DO 

26- 46 

27- 1 

C' 1 

29-1* 


1 *•— 

26- 51 

27- 1 

c ' 1 


26- 55 

27- 1 


26- 61 

27- 1 


26- 104 

27- 1 


?1 -1 

26- 110 

27- 1 


22-1 

26- 114 

27- 1 


25- 1 

26- 126 

27- 1 


P5-1 

26- 152 

27- 1 


26-22 


26-47 


26-52 


26-54 


29-1* 










15-726 


15-751 


15-756 


15-759 


15-764 


15-L42 








15-mo 

1 J T 1 ^ ^ 

13- 186* 


1 5-M28 
1 ^-Yl9 

13-190 


15-M51 

15-cS9* 

13-j72» 


16-21 

13-c65 

13-j76 


16-25 

15-e84* 

13-105* 


l5-e38 
13-109 


15-f56» 
15-73* 


1 5-t60 
1 5-75* 


l5-g94« 


1 J— AJH 


1^1 vO 
















J J oc 

15->84 
15-290 


1 5-295 


13-576 


15-457 


15-459 


15-509 


15-:90 


15-; 52 


15-; 62 


15-300 


15-505 


15-598 


15-420 


15-475 


15-512 


15-882 


15-931 


15-959 


13-238 
1 3-005 


13-284 


13-28/ 


15-595 


15-417 


15-456 


15-507 


13-808 


13-816 


9-44 


9-55 


9-126 


9-128 
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SfO 0^18 



$$C«RE 
tSCMTM 
ttESCA 
ISNEUT 



StSET 

tSSETM 

$$SKIP 

.lACTI 

.SAPTB 

.tAPTH 

.fAPTY 

.SCATC 

.ICMTA 

.IE OP 

.tERRO 

.SPOUE 

. SRDDE 

.tRDOC 

•IRE AD 

.SSAVE 

•SSCOP 

.tSIZE 

.STRAP 

.STYPB 

.ITYPD 

.$TYPE 

.STYPO 

.EQUAT 

.HEADE 

.SE TUP 

.SWRHl 

.SWRLQ 

CLEAR 



CLKOFF 

CLKON 

CLKSMC 

CGMMEN 

E^eSCH 

ENDCOM 

ERR 



5-10* 

5- 10* 
A-68?* 
A -682* 

13-86A 
13-366 
13-K6A 
13-R35 
13-U07 
29-1 
9-23 
A-682* 
A-67A* 
4-6^4* 
A-67A* 
A-67A* 
A -6 70* 
A-671* 
A-671* 
A-671* 
A-673* 
A -6 72* 
A -6 72* 
A -6 72* 
A-673* 
A-671* 
A-673* 
A-673* 
A-672* 
A-672* 
A-671* 
A-672* 
A -6 70* 
A -6 70* 
A-670* 
A -6 70* 
A-670* 
A-A85* 
1 3-AAA 
13-:08 
13-A3A 
13-153 
13-V56 
A-59A* 
1 3-hAA 
A-585* 
A-65A* 
A -682^ 
A-620* 
A-682* 
A-553* 
8-A3 
8-85 

6- 127 
8-169 
8-211 



6-0 

13-1 
13-973 
1 3-A26 
13-L96 
13-R85 
1 3-W56 

29- 1 
9-23* 

5- 5 

6- 0 
5-8 

31-1 

5-1 

5-10 
1A-20 
25-1 

30- 1 

2£-1 
27-1 

19- 1 
2A-1 

29-1 

20- 1 

21- 1 
23-1 

22- 1 
A-682 
A-678 
A-978 
A-679 
A -6 79* 

13-7 

13-A66 

13-: 60 

13-817 

13- J 92 

13-V89 

13-K52 

13-h50 

13-<A9 



8-3 

8-A6 

8-88 

8-130 

8-172 

8-21 A 



6-0 

13-73 
1 3-996 
1 3-808 
1 3-M56 
13-S22 
13-X01 
29-1 



6-0* 



A-680 
13-28 
13-A82 
13-: 79 
1 3-892 
13-K36 
13-W13 
13-P92 
13-f30 
13-P8A 



8-6 

8- A 9 

8-91 

8-133 

8-175 

8-217 



6-0 

13-106 
13-:A9 
13-876 
1 3-J"92 
13-S72 
13-X71 
29-1 



13-75 

13-A97 

13-; 00 

13-C36 

13-L5A 

13-X89 

13-P97 

13-i36 

13-yi5 



8-9 

8-52 

8-9A 

8-136 

8-178 

8-220 



6-0 

13-137 
13-: 77 
13-C78 
13-NAO 
13-T29 

i3-yA8 
29-1 



13-108 

13-5A8 

13-; A A 

13-C87 

13-riOA 

16-U 

13-y21 

13-192 

13-C59 



8-12 

8-55 

8-97 

8-139 

8-181 

8-2^3 



6-0 

13-159 
13-: 97 
13-D31 
13-N79 
13-TA7 
13-\10 
29-1 



13-116 
13-559 
13-<10 
13-C97 
13-N43 

13-Y31 
13-198 
1 3-e8A 



8-15 

8-58 

8-100 

8-1A2 

8-18A 

8-226 



13-329 
13-; 41 
13-D84 
13-009 
13-T70 
13- 01 
29-T 



1 3-1 39 
13-613 
1 3-=0A 
13-DA? 
13-N86 

1 3-C65 
13-j78 
13-f56 



8-18 

8-61 

8-103 

8-U5 

8-187 

8-229 



13-521 
13-<03 
13-E6A 
1 3-048 
13-T99 
13-C07 
29-1 



13-162 
13-618 
15-=iO 
13-D86 
13-014 

13-C71 
13-i84 
13-g94 



8-22 

8-64 

8-106 

8-148 

8-190 

8-232 



13-546 
13-=02 
13-E99 
13-074 
13-U28 
13-C75 
29-1 



13-212 
13-684 
1 3-=26 
13-E16 
13-P75 

13-e90 

13-111 
13-h38 



8-25 

8-67 

8-109 

8-151 

8-193 

3-235 



13-557 
13-=19 
13-G20 
13-P18 
13-U58 
13-g77 
29-T 



13-260 
13-761 
13-= 79 
13-E40 
13-S80 

13-e96 

13-117 
13- 124 



8-28 

8-70 

8-112 

8-154 

8-196 

8-238 



13-610 
13-=77 
13-H70 
13-P39 
13-U95 
13-k51 
29-1 



1 3-367 
13-783 
13->48 
13-E71 
13-132 



8-31 

8-73 

8-115 

8-157 

8-199 

8-241 



13-677 
13->42 
13-145 
13-P66 
13-V33 

29-1 



13-383 
13-876 
13-705 
13-F07 
13-150 



13-781 
13-703 
13-J8A 
13-010 
13-V53 

29-1 



1 3-A05 
13-952 
13-307 
13-G27 
13-U98 



8-3A 

8-76 

8-118 

8-160 

8-202 

8-24A 



8-37 

8-79 

8-121 

8-163 

8-205 

8-247 



13-794 
13-a05 
13-IC30 
1 3-087 
13-V86 

29-1* 



13-A27 
1 3-975 
13-368 
13-H77 
13-V35 



13-f62 13-f68 13-hOO 13-h06 
13-i86 13-j 72 13-105 



8-40 

8-82 

8-124 

8-166 

8-208 

8-2 5C 



I 
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ERROR 



ESCAPE 
GETA5 
GE TOA 
GET8AE 
GETCSl 



GETCS2 
GETDA 

GETDB 
GETDC 

GETOS 



6ETDT 
GETEC1 
GETec2 
GETER1 



GETER2 

CETHR 
GCTLA 
GETWl 



8-253 
8-295 
8-337 
8-37Q 
8-421 
8-464 
8-508 
8-552 
4-682* 
1 3-462 
13-700 
1 3-892 
13-; 11 
13-=52 
1 3-?69 
13-C51 
13-G86 
13-L37 
13-045 
- 3-P94 
13-T56 
13-V82 
1 3-Z26 
1 3-324 
13- 25 
1 3-d1 3 
1 3-q81 
13- J 59 
4-682* 
4-272* 
4-136* 
4-280* 
4-120* 
13-G68 
13-b06 
4-1 52* 
4-176* 
13-C48 
4-144* 
4-184* 
13-D08 
4-160* 
13-E05 
1 3-P59 
13-D63 
4-208* 
4-224* 
4-232* 
4-168* 
13-:09 
13-X27 
4-200* 
13-:10 
4-240* 
4-192* 
4-248* 
13-L 72 



8-256 
8-298 
8-340 
8-382 
8-424 
8-467 
8-511 
8-555 
13-16 
13-478 
1 3-708 
1 3-900 
13-; 22 
1 3-=69 
13-791 
13-Dll 
1 3-G99 
13-L65 
13-054 
13-Q14 
13-T66 
13-W03 
13-Z51 
13-330 
13-80 
13-d19 
l3-h04 
13-j82 

13-V23 



13-85 

13-H89 

1 3-eOO 

13-8 

13-86 

13-N64 

13-87 

13-N67 

13—86 

13-E21 

13-T34 

13-- 74 

13-523 



8-259 
8-301 
8-343 
8-385 
8-427 
8-470 
8-515 
8-558 
13-37 
1 3-493 
13-721 
13-913 
13-; 36 
13-=90 
13-ai9 
13-056 
l3-h93 
13-L 70 
13-071 
13-052 
13-T72 
1 3-W30 
13-Z57 
13-369 
13-86 
1 3-d62 
13-h20 
13-k18 



13-119 
13-105 

13-29 

13-181 

13-031 

13-184 

13-040 

13-=97 

13-E46 

13-T60 

16-20 

13-T33 



8-262 
8-304 
8-346 
8-388 
8-430 
8-473 
8-518 
8-561 
13-68 
13-515 
13-729 
13-921 
13-; 54 
13->01 
13-352 
13-D74 
13-111 
13-L 77 
13-079 
13-091 
13-T96 
13-W60 
13-Z93 
13-375 
13-a24 
13-d90 
13-h25 
13-k47 



13-180 
13-T51 



l3->09 

13-653 

13-r88 

17-18 

13-U76 



8-265 
8-307 
8-349 
8-391 
8-433 
8-476 
8-521 
8-564 
13-103 
13-542 
15-738 
13-933 
13-; 64 
13->13 
13-380 
13-D99 
13-119 
13-L89 
1 3-085 
13-R24 
13-U01 
13-W84 
1 3-Z99 
13-*13 
13-a40 
1 3-e05 
13-h48 
13-k82 



13-229 
13-785 



8-268 
8-310 
8-352 
S-394 
8-436 
8-479 
8-524 
8-567 
13-134 
13-554 
13-751 
13-943 
13-; 76 
13->28 
13-390 
13-E08 
13-164 
13-m3 
13-089 
13-R40 
13-U25 
13-X05 
13-C34 
13-*29 
13-a46 
13-el1 
13-iOO 
l3-k90 



13-549 
13-Z15 



8-271 
8-313 
8-355 
8-397 
8-439 
8-482 
8-527 
8-570 
13-156 
13-574 
13-775 
1 3-966 
13-; 95 
13->55 
13-A12 
13-E26 
13-194 
13-W32 
1 3-P05 
1 3-R68 
1 3-U30 
13-X36 
13-C50 
13--36 
1 3-a95 
13-e37 
13-i06 
13-115 



13-619 
13-C29 



8-274 
8-316 
8-358 
8-400 
8-442 
8-485 
8-530 
8-573 
13-210 
13-586 
13-791 
1 3-988 
13-<17 
13->66 
13-A38 
13-E56 
13-K01 
1 3-M60 
13-P15 
13-R89 
13-U54 
13-X96 
13-C56 
13-*59 
13-bl1 
l3-e64 
13-i13 
13-146 



13-632 
13-C45 



8-2^7 
8-319 
8-361 
8-403 
8-445 
8-488 
8-533 
8-576 
13-254 
13-602 
13-810 
1?-:17 
13-<43 
13->89 
13-A49 
13-E88 
13-K19 
13-M82 
13-P23 
13-S12 
1 3-U62 
1 3-X98 
13-C75 
13- 05 
13-B18 
13-e71 
13- 134 
13-fii03 



13-645 
13-\85 



8-280 
8-322 
8-364 
8-406 
8-448 
8-492 
8-537 
8-580 
13-314 
13-625 
13-818 
13-:19 
13-<53 
13-719 
13-A60 
13-F20 
1 3-K45 
13-M98 
1 3-P26 
13-S31 
13-U92 
13-y26 
13-\14 
13- 40 
13-B56 
13-e94 
13-164 
13-ffl35 



13-665 
13-*08 



8-283 
8-325 
8-367 
8-409 
8-451 
8-495 
8-540 
8-583 
13-379 
1 3-638 
13-831 
13-: 32 
13-<55 
13-733 
13-A81 
13-f46 
13-K60 
13-N28 
13-P35 
13-562 
13-V18 
13-Y50 
13-\49 
13- 46 
13-C09 
13-f32 
13-i69 
24-1 



13-:65 
13-*24 



8-28<^ 
8-3u'< 
8-370 
8-412 
8-454 
8-498 
8-543 
8-586 
13-401 
13-652 
13-841 
13-:34 
13-=15 
13-736 
13-637 
13-G44 
13-k86 
13-N75 
13-P46 
13-T01 
13-V30 
13-y82 
13-\55 
13- 81 
13-C53 
13-f43 
13-176 



15- 11 
13-_76 



8-289 
8-331 
8-375 
8-415 
8-457 
8-501 
8-546 
8-589 
13-423 
1 3-672 
1 3-858 
13-:68 
13-=31 
13-748 
13-655 
13-G59 
13-LC7 
13-005 
1 3-P49 
13-T03 
13-V49 
13-y88 
l3-\90 
13- 90 
13-C69 
13-t66 
13-196 



SEQ 0519 

8-292 
8-354 
8-576 
8-418 
8-460 
8-504 
8-549 

1 5-440 
13-692 
13-884 
13-:95 
15-=41 
15-766 
13-C09 
13-G78 
13-L28 
13-036 
13-P63 
13-T44 
13-V70 
13-Z20 
13-\96 
13- 18 
15-C79 
13-q32 
13- J 53 



13-E81 
13-a19 



13->18 
13-G93 
13-U17 



13->52 
13-K78 
13-U46 



13->62 
13-K99 
13-V12 



13->79 
13-L 62 
13-V43 



13-120 


13-147 


13-182 


13- 


•233 


13-273 


13-372 


13-432 


13-: 26 


13-<11 


13-<46 


13- 


•725 


13-758 


13-L84 


13-M73 


13-Y76 


13-Z45 


13-\43 


13- 


•318 


13- 34 


13-12 


13-C60 


13-121 


13-148 


13-185 


13- 


•234 


13-274 


13-392 


13-414 


13-716 


13-743 


13-780 


13- 


•315 


13-327 


13-343 


13-J97 


13-570 


13-581 


13-597 


13- 


•:64 








13-149 


13-=27 


13-=37 


13- 


=48 


13-=63 


13-A35 


13-A46 


13-N17 


13-P86 


13-X90 


13- 


"y16 


1 3-d84 


13-C44 


13-d53 



13-376 
13-L67 
13-V64 



13-451 
13-040 
13-d07 
13-472 
13-K12 



1 3-A56 
1 3-d84 



13-386 
13-f109 
13-V76 



13-487 
13-R15 
l3-hl4 
13-506 
13-K41 



13-A73 
1 3-e31 



13-A03 
13-M27 
13-V97 



13-685 
13-R61 
13-158 
13-878 
13-K56 



13-B21 
13-eF^ 



13-D52 
13-068 
13-W22 



13-714 
13-S05 



13-070 
13-P01 
13-W77 



13-745 
13-356 



13-G58 
13-a35 



13-230 13-270 13-390 13-412 13-471 13-488 13-:86 l3-;05 13-; 16 13-; 30 13-C06 
13-232 13-272 13-373 13-433 13-453 13-505 13-:87 13-;51 13-;61 13-:71 13-;91 



13-095 
13-P31 
13-Z87 



13-763 
13-S93 



13-907 13-928 13-955 



13-160 
13-f23 



T 3-186 
i3-f57 



13-L20 
i3-g95 



CZ»MPBO RM05/3/2 DSKLS TST 1 MACRO VOA.OO 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



I 9 
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GETMR2 

GETQF 

GETPRI 

GETSN 

GETSWR 

GETWC 

GE^X 

MSG 



MULT 
NEWTST 



l\WTST 



POP 

PUSH 

PUTAS 
PUTBA 
PUT8AE 
PUTCSl 



PUTCS2 
PUTDA 



PUTD8 
PUTDC 



PUTDS 



13-h39 
4-256# 

13-f99 
A-26A* 

13-898 
A-682# 
A-216# 
A-682# 
4-128i» 
4-n2# 

1 3-781 
1^-?03 
1 3-H70 
1 3-P39 
13-U95 
13-k51 

A-682# 

«-682# 
13-86A 
13-a66 
13-K6A 
13-R35 
13-U07 

4-A98# 
13-864 
13-366 
1 3-t(6A 
13-R35 
13-U07 

4-682* 

30- 1 
4-682* 

31- 1 
4-460* 
4-324* 
4-468* 
4-309* 

13—08 
13-L14 
13-R52 
13-Z34 
13-97 
13-102 
4-340* 
4-364* 
1 3-579 
13-C38 
^3-\62 
13-d27 
4-332* 
4-372* 
13-; 59 
13-R46 
13- 94 
13-k88 
4-348* 



1 3-h91 
13-F15 
13-122 
13-88 
13-C99 
15-58 
13-981 
9-28 



13-1 

13-794 

13-a05 

13-145 

1 3-P66 

13-V33 



13-1 

1?-973 

13-A26 

13-L96 

13-R85 

1 3-W56 

13-1 

13-973 

13-A26 

13-L96 

13-R85 

13-U56 

13-<33 

31-1 

13-<24 

31-1 

13-387 

13-S40 

13-78 

13-COO 

13-L83 

13-R97 

13-Z65 

13-a57 

16-19 

13-:24 

13-79 

13-580 

13-DOO 

13-:03 

13-el9 

13-80 
13-; 60 
13-R92 
13-a54 



13- 125 
13-F41 
13-157 
13-183 
13-D51 

13-985 
9-28* 



13-73 

13-864 

13-966 

13-J84 

13-010 

13-V53 



13-73 

13-996 

13-608 

13-M56 

13-S22 

13-X01 

13-73 

13-996 

13-808 

13-M56 

13-S22 

1 3-X01 

13-<34 

31-1 

13-<25 

13-U14 
13-k96 

13-111 
13-C41 
13-M20 
13-S41 
13-C07 
13-b29 
17-17 

13-166 
13-595 
13-D49 
13-337 
13-e79 

13-176 
13-; 69 
13-S37 
13-b26 



13-i87 
13-T80 
13-ffl14 
13-231 
13-N70 



13-106 
13-973 
13-A26 
13-K30 
13-087 
13-V86 



13-106 
13-:49 
13-676 
13-M92 
13-S72 
13-X71 
13-106 
13-: 49 
13-876 
13-M92 
13-S 72 
13-X71 
13-<38 

13-<67 

13-V09 



13-165 
13-D03 
13-W68 
13-S87 
13-C64 
13-C19 



13-173 
13-596 
13-N50 
13-J82 
13-f51 

13-218 
13-; 70 
13-y04 
i^-c17 



i3-i44 
l3-t91 

13-271 
13-002 



13-137 

13-996 

13-A95* 

1 3-K64 

13-R35 

13-W07 



13-137 
13-: 77 
13-C78 
13-N40 
13-T29 
13-Y48 
13-137 
13-: 77 
13-C78 
13-N40 
13-T29 
13-Y48 
13-<39 

13-<68 

13-V60 



13-172 
13-D67 
13-N06 
13-T77 
13-\25 
13-C89 



13-216 
13-: 82 
13-019 
13-*43 
1 3-g89 

13-224 
13-; 87 
13-\22 
13-C88 



13-j73 
13-U09 

13-391 
13-P09 



13-159 
13-: 49 
13-808 
13-L96 
13-R85 
13-W56 



13-159 
13-: 97 
13-D31 
13-N79 
13-T47 
13-\10 
13-159 
13-: 97 
13-D31 
13-N79 
13-747 
13-\10 
13-<98 

15-6 

13-V74 



13-221 
13-E80 
13-N55 
13-U06 
13-\66 
13-d29 



13-222 
13-:84 
13-P52 
13-^12 
13-R34 

13-265 
13-; 88 
l3-\63 
13-d28 



1 3-k09 
13-U20 

13-413 
13-S 36 



1 3-324* 
13-:77 
13-873* 
1 3-M56 

13-S22 
1 3-XOl 



13-329 
13-;41 
13-D84 
1 3-009 
13-T70 
13-01 
13-329 
13-; 41 
13-D84 
13-009 
13-T70 
13-,01 
13-<99 

15-7 

13-V93 



13-430 
13-F29 
13-N94 
13-U35 
13-]07 
13-e21 



13-263 
13-; 03 
13-019 
13-,53 
13-T12 

13-369 
13-C89 
13-]04 
13-e20 



13-k38 
13-U38 



13-106 
1 3-U49 



13-452 13-504 



13-U77 
1 3-785 



13-C68 
13-804 



15-*51 
13-825 



l5-b48 
13-852 



ifQ 0?2G 

13-e47 
13-619 



13-329 
13-: 97 
13-876 
13-M92 
13-S72 
13-X71 



13-521 
13-<03 
13-E64 
13-048 
13-T99 
13-C07 
13-521 
13-<03 
13-E64 
13-048 
13-T99 
13-C07 
15-45 

18-8 

13-W16 



13-617 
13-637 
13-023 
13-U68 
13-341 
13-e81 



13-384 
13-; 04 
13-097 
13- 97 
13-T74 

13-429 
13-D48 
13-338 
13-e80 



13-518* 

13-; 41 
13-C78 
13-N40 
13-T29 
13-y48 



13-546 
13-=02 
13-E99 
13-074 
13-U28 
13-C75 
13-546 
13-=02 
13-E99 
13-074 
13-U28 
13-C75 
15-46 

19-1 



13-630 
13-H88 
13-060 
13-V42 
13-386 
13-f53 



13-406 
13-; 14 
13-R47 
13-'32 
13-j67 

13-447 
13-N51 
13-383 
13-f52 



13-521 
13-<03 
13-D31 
1 3-N79 
13-T47 
13-V10 



13-557 
13-=19 
13-G20 
13-P18 
13-U58 
13-g77 
13-557 
13-=19 
13-620 
13-P18 
13-U58 
13-g77 
18-T2 

21-1 



13-631 
13- J 72 
13-093 
13-U68 
13-*47 
l3-g91 



13-467 
13-; 15 
13-R93 
13-93 
13-k87 

13-485 
13-020 
13-*44 
13-g90 



13-546 
13-=02 
13-D84 
13-009 
13-T70 
13- 01 



13-610 
13-=77 
13-H70 
13-P39 
13-U95 
13-k51 
13-610 
13-=77 
13-H70 
13-P39 
13-U95 
13-k51 
19-1 

28-1 



13-643 
13-K09 
13-P56 
13-X17 
13- 16 
13-F35 



13-484 
13-; 28 
13-S38 
13-a53 



13-499 
1 3-056 
13-^13 
13-R33 



13-557 
13-=19 
13-E64 
1 3-048 
13-T99 
13-C07 



13-677 
13->42 
13-145 
13-P66 
13-V33 

13-677 
13->42 
13-145 
13-P66 
13-V33 

21-1 

30-1 



13-644 
13-K48 
13-P85 
13-Y06 
13- 57 
13-T21 



13-503 
13-; 29 
13-U43 
13-b25 



13-:83 
1 3-P30 
13- 54 
13-Tn 



13-610 
13-=77 
13-E99 
13-074 
13-U28 
13-C75 



1 3-781 
13-703 
13-J84 
13-010 
13-V53 

13-781 
13-703 
13-J84 
13-010 
13-V53 

28-1 

30-1 



13-663 
13-K72 
13-028 
13-Y58 
13- 01 
13-183 



13-568 
13-620 
13-YC3 
13-C18 



13-:85 
13-020 
13- 98 
i3-T75 



1 3-677 
1 3->42 
1 3-G20 
13-P18 
13-U58 
1 3-g77 



13-794 
13-d05 
13-IC30 
13-087 
13-V86 

13-794 
13-a05 
13-K30 
13-087 
13-V86 



30- 1 

31- 1 



13-664 
13HC93 
13-R05 
13-Y96 
13- 36 
13-)69 



13-569 
13-696 
13-\21 
13-C87 



13-; 50 
13-098 
13- 33 
13-)68 



13-469 13-501 



.ZRMPBO RM05/3/2 DSKLS TST 1 MACRO V04.00 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



J 9 

4-APR-81 01:?4:25 PAGE M-A 



S£0 OV^ 



PUTDT 
PUTEC1 
PUTEC2 
PUTERl 



PUTER2 



PUTHR 
PUTLA 
PUTMR1 



PUTMR2 
PUTOF 



PUTSN 

PUTWC 

PUTX 

REPORT 

RG8FMC 

SCTCMP 

SE TlFS 



^-396* 
4-4 12# 
4-420# 
4-356# 
13-713 
13-G30 
13-P78 
13-C62 
13-c1!> 
4-388* 
13-905 
13-E19 
1 3-P79 
13-D06 
13-e18 
4-428# 
4-380* 
4-436* 
13->51 

3- 342 
13-699 
13-D92 
13-H79 
13-K74 
13-M70 
13-025 
13-Q34 
13-552 
13-V90 
13-Y68 
13-Z70 
13-C61 
1 3-\82 
1 3-D97 
13- 29 
13-''50 
13-a27 
13-b03 
13-C43 
13-d51 
13-f03 
13-g07 
1'^-h81 
13-]09 
13-j89 
13-152 

4- 444* 
4-452* 

13-803 
13-N91 
4-404* 
4-317* 
4-301* 
4-682* 
4-12* 
4-632* 
4-643* 



13-448 

13-450 

13-411 

13-112 

13-743 

1 3-H80 

13-583 

13-\23 

13-C85 

13-113 

13-906 

13-E43 

13-384 

13-340 

13-e78 

13-371 

13-409 

13-144 

13->60 

13-374 

13-C04 

13-E17 

13-103 

13-K75 

13-N03 

13-026 

13-035 

13-553 

13-U14 

13-Y70 

13-Z75 

13-C85 

13-J02 

13-*02 

13- 52 

13-'55 

13-a31 

13-b24 

13-C58 

13-d52 

13-f04 

13-q08 

13-R82 

13-jlO 

13-j95 

13-153 

13-389 

13-81 

13-823 

13-084 

13-388 

13-S39 



7-0 



3-142 
3-744 
3-156 
3-VOO 
3-\64 
3-a25 
3-143 
3-926 
3-E44 
3-V01 
3-D85 
3-f50 
3-410 

3-370 
3->61 
3-375 
3-C05 
3-E41 
3-104 
3-K95 
3-Nll 
3-059 
3-R02 
3-581 
3-W65 
3-Y71 
3-Z76 
3-C86 
3-: 12 
3--03 
3- 62 
3-'56 
3-a32 
3-b40 
3-C84 
3-d69 
3-f09 
3-q86 
3-fi89 
3-jl4 
3-j99 
3-L95 

3-168 
3-824 
3-P51 
3-431 
3-k95 



7-0 



13-167 
13-762 
13-J95 
13-V37 
13-105 
13-e17 
13-169 
13-927 
13-E75 
13-V38 
l3-*46 
13-g88 
13-; 25 

13-=35 
13->77 
13-385 
13-C39 
13-E 72 
13-154 
13-K96 
13-N12 
13-062 
13-R09 
13-582 
13-W71 
13-y93 
13-Z81 
13-\20 
13-J13 
13-*16 
13- 63 
13-'62 
13-a52 
13-b41 
13-C93 
13-d70 
13-fl3 
13-h10 
13-h90 
13-i15 
1 3-kOO 



13-175 
13-850 
13-021 



13-174 
13-715 
13-K39 
13-V58 
13-J39 
13-e77 
13-177 
13-954 
13-F11 
13-V59 
13- 15 
13-fi32 
13-: 61 

l3-=36 
13->78 
13-A01 
13-C40 
13-E 73 
13-155 
13-L16 
13-N44 
13-063 
13-R10 
13-U67 
13-W72 
13-Z01 
13-Z82 
13-\29 
13-J36 
13--20 
15-68 
l3-'63 
13-a61 
13-b66 
13-C94 
13-d77 
13-fl4 
13-h11 
13-118 
13-i20 
13-k07 



13-217 
13-851 
1 3-099 



13-225 
13-89'» 
13-K71 
13-V91 
13-J84 
13-f49 
13-226 
13-714 
13-G31 
13-V92 
13-,56 
13-T20 



13-=46 
13-713 
13-A02 
13-C44 
13-F08 
13-184 
13-L17 
13-N45 
13-092 
13-R51 
13-U70 
13-X12 
13-Z02 
13-C04 
13-\.30 
13-J45 
13-*21 
13- 72 
13-'64 
13-a62 
13-b67 
13-C99 
13-d78 
l3-f21 
13-h30 
13-i40 
13-T24 
13-k08 



13-196 13-m09 13-mlO 



13-223 
13-877 
13-R48 



1 3-266 
13-D65 
13-<92 
13-V96 
13-*45 
13-g87 
1 3-267 
13-778 
13-H81 
13-Y57 
13-00 
13-182 



13-=47 
13-741 
13-A43 
13-C4S 
13-F09 
13-185 
13-L55 
13-N58 
13-095 
13-R55 
13-U71 
13-X20 
13-Z07 
13-C12 
13-\35 
13-346 
13-*42 
13- 73 
13-'68 
l3-a68 
13-C14 
13-d03 
13-d96 
13-f22 
13-h54 
13-141 
13-1' 25 
13-k22 
13-ffl28 

13-264 
13-953 
13-535 



3-368 
3-D93 
3-L13 
3-W15 
3-, 14 
3-R31 
3-386 
3-314 
3-J57 
3-Y95 
3-35 
3-j66 



3-=61 
3-742 
3-A44 
3-DOl 
3-F35 
3-J93 
3-L56 
3-N59 
3-096 
3-R56 
3-U99 
3-X22 
3-Zll 
3-C13 
3-\37 
3-D 51 
3--69 
3-^96 
3-'69 
3-a71 
3-C23 
3-d04 
3-d97 
3-f48 
3-h55 
3-147 
3-i30 
3-k26 
3-m29 

3-385 
3-818 
3-k89 



13-428 
13-E03 
13-L57 
13-Y14 
13-,55 
13-T19 
13-408 
13-325 
13-J96 
13-Z33 
13-96 
13-101 



l3-=62 
13-777 
13-A45 
13-D02 
13-F36 
13-J94 
13-M05 
13-N87 
13-P55 
13-R96 
13-V02 
13-y05 
13-Z12 
13-C18 
13-\38 
13- J 52 
13-*70 
13-06 
13--92 
13-a76 
13-C24 
13-d24 
13-el6 
13-f72 
13-h60 
13-148 
13-i34 
13-k27 
16-15 

13-407 
13-897 



13-4',5 
13-^18 
1 3-M07 
13-Y56 
13- 99 
13-T81 
13-449 
13-341 
13-K40 
13-Z64 
13-a56 
16-18 



13-=85 
13-779 
13-A54 
13-D06 
13-G28 
13-KlO 
13-M06 
13-N88 
13-P57 
13-R99 
13-V36 
13-y08 
13-Z31 
13-C23 
13-\61 
13-357 
13-Jl 
13-'07 
13-a02 
13-a77 
13-C29 
13-d33 
13-e25 
13-f73 
13-h64 
13-i52 
13-i35 
13-k34 
16-16 

13-446 
13-C37 



13-483 
13-E 20 
1 3-N46 
13-Y94 
13- 34 
l3-j65 
13-468 
1 3-895 
13-L58 
13-C06 
1 3-b28 
17-16 



13-=95 
13-313 
1 3-A55 
13-D07 
13-G29 
13-Kll 
13-M23 
13-N96 
13-P58 
13-500 
13-V39 
13-Y09 
13-Z39 
13-C24 
13-\71 
13- J 58 
13- 20 
13-'31 
^ 3-a03 
13-a87 
13-C30 
13-d34 
13-e26 
13-f78 
13-h65 
13-153 
13-i42 
13-k35 
17-14 

13-470 
13-C98 



1 3-502 
13-E 42 
1 3-N89 
13-Z32 
1^-95 
13-100 
13-486 
1 3-D66 
13-M08 
13-C63 
13-C16 



13-=96 
13-324 
13-A71 
13-D64 
13-G66 
13-K37 
13-M24 
13-N97 
13-P76 
13-534 
13-V57 
13-Y55 
13-Z40 
13-C37 
13-\72 
13-381 
13- 21 
13-'40 
13-a08 
13-a88 
13-C34 
15-d39 
13-e43 
13-f79 
13-h71 
13-180 
13-i43 
13-k99 



1 3-498 
13-D50 



1 3-682 

13-E 74 

13-017 

13-Z63 

13-a55 

16-17 

13-500 

13-D94 

13-N47 

1 3-\24 

13-C86 



13->16 
13-326 
13-A72 
13-D68 
13-G67 
13-K38 
13-M65 
13-015 
13-P77 
13-546 
13-V63 
13-Y62 
1 3-Z62 
13-C41 
13-\77 
13-391 
13- 26 
13-'41 
13-al3 
13-a98 
13-C35 
13-d43 
13-e4'. 
13-f90 
13-h72 
13-j02 
13-i64 
13-139 



13-784 
13-E45 



13-712 

13-F10 

13-018 

1 3-C05 

l3-b27 

17-15 

13-874 

13-E 04 

13-f<90 

13-\65 

13-d26 



13->17 
13-340 
15-893 
13-D69 
15-H78 
15-K55 
15-M69 
15-016 
15-024 
15-547 
13-V75 
15-Y65 
15-Z69 
15-C42 
15-\81 
15-392 
15- 28 
15-'47 
15-a14 
15-b02 
15-C42 
15-d44 
15-e76 
15-f91 
15-h77 
13-]03 
13-iS8 
15-140 



15-802 
1 5-N52 



fZRMPBO RM05/3/? DSKLS TST 1 MACRO VOA.OO 
CROSS REFERENCE TA8LE (CREF VOI-05 ) 



K 9 

A-APR-81 01:34:25 PAGE M-i> 



SEQ 0522 



SETOM 

SETPRl 

SETTRA 

SETUP 

SETVV 



SKIP 

SLASH 

STARS 



SWRSU 

TAGS 

TPMTRP 

TYP8IN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 



4-609* 
4-682* 
29-1 
4-682* 
4-598* 
13-uOl 
1 5-\96 
13-e11 
4-682* 
4-682* 
4-682* 
15-137 
13-677 
13-:77 
1 5->42 
13-C78 
13-145 
13-M92 
13-P39 
13-S72 
13-U95 
13-X71 
13-e49 
13-ffl16 
27-1 
4-682* 
4-46* 
29-1* 
4-682* 
4-682* 
4-670* 
4-682* 
4-682* 
4-682* 
4-682* 



1 3-085 
11-49 
29-1 
9-23 
13-M60 
13-U30 
13-D30 
l3-e71 



5- 5 

13-137 
13-677 
13-: 77 
1 3->42 
13-C78 
13-145 
13-M92 
13-P39 
13-S72 
13-U9S 
13-X71 
13-e57 
13-fn24 
28-1 
9-23 

6- 0 



14-20 
4-682* 

9-82 
10-33 
9-6 



1 5-P26 

15-63 

29-1 

13-M98 
13-U62 
13-J75 
13-f43 



5-8 
13-159 
13-781 
13-: 97 
13-703 
13-D31 
13-J84 
13-N40 
13-P66 
13-T29 
13-V33 
13-Y48 

13- f81 

14- 20 
29-1 

9-23* 



14-20 
9-28 

11-16 
27-1 
9-42 



13-r^49 

15-86 

t9'^ 

13-054 
13-W60 
13-*36 
1 3-g81 



5-8 

13-159 

13-781 

13-: 97 

13-?03 

13-D31 

13-J84 

13-N40 

13-P66 

13-T29 

13-V33 

13-Y48 

13-f95 

19-1 

30-1 



15-il3 

27-1 

29-1 


13-176 
29-1 


15-k90 
29-1 


29-1 


29-1 


?9- 


1 


29-1 


29-1 


29-1 


29-1* 


13-079 
13-X05 
13-05 
13-F25 


13-089 
13-X98 
13-46 
13-T06 


13-P23 
13-Y50 
13- 90 
13-T69 


13-P46 
13-y88 
13-'25 
13-j59 


13-OU 
15-226 
13- 86 
13-k82 


13- 
13- 
13- 


■091 
•257 
-a46 


13-H40 
1 3-299 
13-b18 


1 ^-R89 
13-C56 
13-C09 


13-S31 
13-\14 
13-C79 


13-T 72 
13-\55 
13-dl9 



5-8 

13-329 

13-794 

13-; 41 

13-a05 

13-D84 

13-K30 

13-N79 

13-0(0 

13-T47 

13-V53 

13-\10 

13-g77 

20-T 

30-1 



6-0 
13-329 
13-794 
13-; 41 
13-a05 
13-D84 
13-K30 
13-N79 
13-010 
13-T47 
13-V53 
13-\10 
13-g77 
21 -T 
31-1 



6-0 
13-521 
13-864 
13-<03 
13-366 
13-E64 
1 3-K64 
1 3-009 
13-087 
13-T70 
13-V86 
13-01 
13-C51 
22-1 



6-0 
13-521 
13-864 
13-<03 
13-866 
13-E64 
13-K64 
13-009 
13-087 
13-T70 
13-V86 
13- 01 
13-C51 
23-1 



13-1 

13-546 

13-973 

13-=02 

13-A26 

13-E99 

13-L47 

13-048 

13-R35 

13-T99 

13-W07 

13-b31 

13-k77 

24-1 



13-1 

13-546 

13-973 

13-=02 

13-A26 

13-E99 

13-L49 

13-048 

13-R35 

13-T99 

13-W07 

13-b45 

13-k79 

25-1 



13-73 

13-557 

13-996 

13-=19 

13-808 

13-G20 

13-L96 

13-074 

13-R85 

13-U28 

13-W56 

13-C07 

13-124 

27-1 



13-73 

13-557 

13-996 

13-=19 

15-808 

13-620 

13-L96 

13-074 

13-R85 

13-U28 

13-U56 

13-C07 

13-131 

27-1 



13-106 
1i-610 
13-:49 
13-=77 
13-876 
13-H70 
13-M56 
13-P18 
13-S22 
13-U58 
13-XOl 
13-C75 
13-159 
27-1 



13-106 
13-610 
1^-:49 
13-=77 
15-876 
1 3-H70 
13-M56 
13-P18 
1 3-S22 
13-U58 
13-XOl 
13-C75 
13-L69 
27-1 



11-69 
9-53 



26-22 
9-59 



26-47 
9-60 



26-52 
11-30 



26-54 
U-20 



14-20 



L 



